Coding Tutorial

void fibo_d1()
{
int d1bars=1;
if(DayOfWeek()==1)d1bars=2;else d1bars=1;
double d1_high= iHigh(NULL,1440,d1bars);
double d1_low= iLow(NULL,1440,d1bars);

double d1_mmm= d1_high-d1_low;
double d1_pivot= NormalizeDouble(d1_mmm/100*50+d1_low,Digits);

double d1_target1= 161.8;
double d1_target2= 261.8;
double d1_target3= -61.8;
double d1_target4= -161.8;
double d1_target5= -323.6;
double d1_target6= 423.6;

double d1_t1=NormalizeDouble( d1_mmm/100*d1_target1+d1_low,Digits);
double d1_t2= NormalizeDouble(d1_mmm/100*d1_target2+d1_low,Digits);
double d1_t3= NormalizeDouble(d1_mmm/100*d1_target3+d1_low,Digits);
double d1_t4= NormalizeDouble(d1_mmm/100*d1_target4+d1_low,Digits);
double d1_t5= NormalizeDouble(d1_mmm/100*d1_target5+d1_low,Digits);
double d1_t6= NormalizeDouble(d1_mmm/100*d1_target6+d1_low,Digits);

double d1_23= NormalizeDouble(d1_mmm/100*23.6+d1_low,Digits);
double d1_38= NormalizeDouble(d1_mmm/100*38.2+d1_low,Digits);
double d1_61= NormalizeDouble(d1_mmm/100*61.8+d1_low,Digits);
double d1_76= NormalizeDouble(d1_mmm/100*76.2+d1_low,Digits);


if (ObjectFind("d1_t6") == -1 ){
ObjectCreate("d1_t6", OBJ_HLINE, 0, d1_t6, 0);
ObjectSet("d1_t6", OBJPROP_WIDTH, 5);
ObjectSet("d1_t6", OBJPROP_COLOR, daily_color_target);}
ObjectSet("d1_t6", OBJPROP_PRICE1, d1_t6);

if (ObjectFind("d1_t5") == -1 ){
ObjectCreate("d1_t5", OBJ_HLINE, 0, d1_t5, 0);
ObjectSet("d1_t5", OBJPROP_WIDTH, 5);
ObjectSet("d1_t5", OBJPROP_COLOR, daily_color_target);}
ObjectSet("d1_t5", OBJPROP_PRICE1, d1_t5);

if (ObjectFind("d1_t4") == -1 ){
ObjectCreate("d1_t4", OBJ_HLINE, 0, d1_t4, 0);
ObjectSet("d1_t4", OBJPROP_WIDTH, 5);
ObjectSet("d1_t4", OBJPROP_COLOR, daily_color_target);}
ObjectSet("d1_t4", OBJPROP_PRICE1, d1_t4);

if (ObjectFind("d1_t3") == -1 ){
ObjectCreate("d1_t3", OBJ_HLINE, 0, d1_t3, 0);
ObjectSet("d1_t3", OBJPROP_WIDTH, 5);
ObjectSet("d1_t3", OBJPROP_COLOR, daily_color_target);}
ObjectSet("d1_t3", OBJPROP_PRICE1, d1_t3);

if (ObjectFind("d1_t2") == -1 ){
ObjectCreate("d1_t2", OBJ_HLINE, 0, d1_t2, 0);
ObjectSet("d1_t2", OBJPROP_WIDTH, 5);
ObjectSet("d1_t2", OBJPROP_COLOR, daily_color_target);}
ObjectSet("d1_t2", OBJPROP_PRICE1, d1_t2);

if (ObjectFind("d1_t1") == -1 ){
ObjectCreate("d1_t1", OBJ_HLINE, 0, d1_t1, 0);
ObjectSet("d1_t1", OBJPROP_WIDTH, 5);
ObjectSet("d1_t1", OBJPROP_COLOR, daily_color_target);}
ObjectSet("d1_t1", OBJPROP_PRICE1, d1_t1);

if (ObjectFind("d1_76") == -1 ){
ObjectCreate("d1_76", OBJ_HLINE, 0, d1_76, 0);
ObjectSet("d1_76", OBJPROP_STYLE, STYLE_DOT);
ObjectSet("d1_76", OBJPROP_COLOR, daily_color);}
ObjectSet("d1_76", OBJPROP_PRICE1, d1_76);

if (ObjectFind("d1_61") == -1 ){
ObjectCreate("d1_61", OBJ_HLINE, 0, d1_61, 0);
ObjectSet("d1_61", OBJPROP_STYLE, STYLE_DOT);
ObjectSet("d1_61", OBJPROP_COLOR, daily_color);}
ObjectSet("d1_61", OBJPROP_PRICE1, d1_61);

if (ObjectFind("d1_38") == -1 ){
ObjectCreate("d1_38", OBJ_HLINE, 0, d1_38, 0);
ObjectSet("d1_38", OBJPROP_STYLE, STYLE_DOT);
ObjectSet("d1_38", OBJPROP_COLOR, daily_color);}
ObjectSet("d1_38", OBJPROP_PRICE1, d1_38);


if (ObjectFind("d1_23") == -1 ){
ObjectCreate("d1_23", OBJ_HLINE, 0, d1_23, 0);
ObjectSet("d1_23", OBJPROP_STYLE, STYLE_DOT);
ObjectSet("d1_23", OBJPROP_COLOR, daily_color);}
ObjectSet("d1_23", OBJPROP_PRICE1, d1_23);

if (ObjectFind("d1_pivot") == -1 ){
ObjectCreate("d1_pivot", OBJ_HLINE, 0, d1_pivot, 0);
ObjectSet("d1_pivot", OBJPROP_WIDTH, 2);
ObjectSet("d1_pivot", OBJPROP_COLOR, daily_color_pivot);}
ObjectSet("d1_pivot", OBJPROP_PRICE1, d1_pivot);

if (ObjectFind("d1_low") == -1 ){
ObjectCreate("d1_low", OBJ_HLINE, 0, d1_low, 0);
ObjectSet("d1_low", OBJPROP_WIDTH, 2);
ObjectSet("d1_low", OBJPROP_COLOR, daily_color_low);}
ObjectSet("d1_low", OBJPROP_PRICE1, d1_low);

if (ObjectFind("d1_high") == -1 ){
ObjectCreate("d1_high", OBJ_HLINE, 0, d1_high, 0);
ObjectSet("d1_high", OBJPROP_WIDTH, 2);
ObjectSet("d1_high", OBJPROP_COLOR, daily_color_high);}
ObjectSet("d1_high", OBJPROP_PRICE1, d1_high);

}

 
//+------------------------------------------------------------------+
//|                                          RSI-Crossover_Alert.mq5 |
//|         Copyright © 2005, Jason Robinson (jnrtrading)            |
//|                   http://www.jnrtading.co.uk                     |
//+------------------------------------------------------------------+
/*
  +------------------------------------------------------------------+
  | Allows you to enter two RSI periods and it will then show you at |
  | Which point they crossed over. It is more usful on the shorter   |
  | periods that get obscured by the bars / candlesticks and when    |
  | the zoom level is out. Also allows you then to remove the  RSIs  |
  | from the chart. (eRSIs are initially set at 5 and 20)            |
  +------------------------------------------------------------------+
*/
#property copyright "Copyright © 2005, Jason Robinson (jnrtrading)"
#property link      "http://www.jnrtrading.co.uk"
//---- indicator version number
#property version   "1.00"
//---- drawing the indicator in the main window
#property indicator_chart_window
//----two buffers are used for calculation of drawing of the indicator
#property indicator_buffers 2
//---- only two plots are used
#property indicator_plots   2
//+----------------------------------------------+
//|  Parameters of drawing the bearish indicator |
//+----------------------------------------------+
//---- drawing the indicator 1 as a symbol
#property indicator_type1   DRAW_ARROW
//---- red color is used for the indicator bearish line
#property indicator_color1  Red
//---- thickness of line of the indicator 1 is equal to 4
#property indicator_width1  4
//---- displaying the bearish label of the indicator line
#property indicator_label1  "RSI-Crossover_Alert Sell"
//+----------------------------------------------+
//|  Bullish indicator drawing parameters        |
//+----------------------------------------------+
//---- drawing the indicator 2 as a line
#property indicator_type2   DRAW_ARROW
//---- DodgerBlue color is used as the color of the bullish indicator line
#property indicator_color2  DodgerBlue
//---- thickness of the indicator line 2 is equal to 4
#property indicator_width2  4
//---- displaying of the bullish label of the indicator
#property indicator_label2 "RSI-Crossover_Alert Buy"
//+----------------------------------------------+
//|  Declaration of constants                    |
//+----------------------------------------------+
#define RESET 0 // the constant for getting the command for the indicator recalculation back to the terminal
//+----------------------------------------------+
//|  Indicator input parameters                  |
//+----------------------------------------------+
input uint FastRSI_Period=5; //Period of averaging for fast moving
input ENUM_APPLIED_PRICE FastPriceMode=PRICE_CLOSE;//Price for fast moving
input uint SlowRSI_Period=20; //Period of averaging for slow moving
input ENUM_APPLIED_PRICE SlowPriceMode=PRICE_CLOSE;//Price for slow moving
extern bool SoundON=true; //Allow alert
extern bool EMailON=false; //Allow mailing signal
extern bool PushON=false; //Allow to send a signal to the mobile
input uint NumberofAlerts=2;
//+----------------------------------------------+
//---- declaration of dynamic arrays that
// will be used as indicator buffers
double SellBuffer[];
double BuyBuffer[];
//----
uint counter=0;
//----Declaration of variables for storing the indicators handles
int FastRSI_Handle,SlowRSI_Handle;
//---- declaration of the integer variables for the start of data calculation
int min_rates_total;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
void OnInit()
  {
//---- initialization of variables of the start of data calculation
   min_rates_total=int(MathMax(FastRSI_Period,SlowRSI_Period)+3+9);
//---- obtaining the indicators handles
   FastRSI_Handle=iRSI(NULL,0,FastRSI_Period,FastPriceMode);
   if(FastRSI_Handle==INVALID_HANDLE) Print(" Failed to get handle of the FastRSI indicator");
   SlowRSI_Handle=iRSI(NULL,0,SlowRSI_Period,SlowPriceMode);
   if(SlowRSI_Handle==INVALID_HANDLE) Print(" Failed to get handle of the SlowRSI indicator");
//---- set dynamic array as an indicator buffer
   SetIndexBuffer(0,SellBuffer,INDICATOR_DATA);
//---- shifting the start of drawing of the indicator 1
   PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total);
//---- indicator symbol
   PlotIndexSetInteger(0,PLOT_ARROW,234);
//---- setting the indicator values that won't be visible on a chart
   PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,0);
//---- indexing elements in the buffer as in timeseries
   ArraySetAsSeries(SellBuffer,true);
//---- set dynamic array as an indicator buffer
   SetIndexBuffer(1,BuyBuffer,INDICATOR_DATA);
//---- shifting the start of drawing of the indicator 2
   PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,min_rates_total);
//---- indicator symbol
   PlotIndexSetInteger(1,PLOT_ARROW,233);
//---- setting the indicator values that won't be visible on a chart
   PlotIndexSetDouble(1,PLOT_EMPTY_VALUE,0);
//---- indexing elements in the buffer as in timeseries
   ArraySetAsSeries(BuyBuffer,true);
//---- Setting the format of accuracy of displaying the indicator
   IndicatorSetInteger(INDICATOR_DIGITS,_Digits);
//---- name for the data window and the label for sub-windows
   string short_name="RSI-Crossover_Alert";
   IndicatorSetString(INDICATOR_SHORTNAME,short_name);
//----  
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//----
//----  
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime &time[],
                const double &open[],
                const double &high[],
                const double &low[],
                const double &close[],
                const long &tick_volume[],
                const long &volume[],
                const int &spread[])
  {
//---- checking the number of bars to be enough for the calculation
   if(rates_total<min_rates_total
      || BarsCalculated(FastRSI_Handle)<rates_total
      || BarsCalculated(SlowRSI_Handle)<rates_total) return(RESET);
//---- declaration of local variables
   int limit,count;
   double FastRSInow,SlowRSInow,FastRSIprevious,SlowRSIprevious,Range,AvgRange,RSI[],Ask,Bid;
   string text,sAsk,sBid,sPeriod;
//---- calculations of the necessary amount of data to be copied
//---- and the 'limit' starting index for the bars recalculation loop
   if(prev_calculated>rates_total || prev_calculated<=0)// checking for the first start of the indicator calculation
     {
      limit=rates_total-min_rates_total;       // starting index for calculation of all bars
     }
   else
     {
      limit=rates_total-prev_calculated; // starting index for calculation of new bars
     }
//---- indexing elements in arrays as time series
   ArraySetAsSeries(open,true);
   ArraySetAsSeries(high,true);
   ArraySetAsSeries(low,true);
   ArraySetAsSeries(close,true);
   ArraySetAsSeries(RSI,true);
//---- main loop of the indicator calculation
   for(int bar=limit; bar>=0; bar--)
     {
      count=bar;
      Range=0;
      AvgRange=0;
      for(count=bar;count<=bar+9;count++) AvgRange=AvgRange+MathAbs(high[count]-low[count]);
      Range=AvgRange/10;
      //--- copy newly appeared data in the array
      if(CopyBuffer(FastRSI_Handle,0,bar,2,RSI)<=0) return(RESET);
      FastRSInow=RSI[0];
      FastRSIprevious=RSI[1];
      //--- copy newly appeared data in the array
      if(CopyBuffer(SlowRSI_Handle,0,bar,2,RSI)<=0) return(RESET);
      SlowRSInow=RSI[0];
      SlowRSIprevious=RSI[1];
      BuyBuffer[bar]=0.0;
      SellBuffer[bar]=0.0;
      if(FastRSInow>SlowRSInow && FastRSIprevious<SlowRSIprevious) BuyBuffer[bar]=low[bar]-Range*0.75;
      if(FastRSInow<SlowRSInow && FastRSIprevious>SlowRSIprevious) SellBuffer[bar]=high[bar]+Range*0.75;
     }
   if(rates_total!=prev_calculated) counter=0;
   if(BuyBuffer[1] && counter<=NumberofAlerts)
     {
      counter++;
      MqlDateTime tm;
      TimeToStruct(TimeCurrent(),tm);
      text=TimeToString(TimeCurrent(),TIME_DATE)+" "+string(tm.hour)+":"+string(tm.min);
      Ask=close[0];
      Bid=close[0]+spread[0];
      sAsk=DoubleToString(Ask,_Digits);
      sBid=DoubleToString(Bid,_Digits);
      sPeriod=EnumToString(ChartPeriod());
      if(SoundON) Alert("BUY signal at Ask=",Ask,"\n Bid=",Bid,"\n currtime=",text,"\n Symbol=",Symbol()," Period=",sPeriod);
      if(EMailON) SendMail("RSI-Crossover_Alert: BUY signal alert","BUY signal at Ask="+sAsk+", Bid="+sBid+", Date="+text+" Symbol="+Symbol()+" Period="+sPeriod);
      if(PushON) SendNotification("RSI-Crossover_Alert: BUY signal at Ask="+sAsk+", Bid="+sBid+", Date="+text+" Symbol="+Symbol()+" Period="+sPeriod);
     }
   if(SellBuffer[1] && counter<=NumberofAlerts)
     {
      counter++;
      MqlDateTime tm;
      TimeToStruct(TimeCurrent(),tm);
      text=TimeToString(TimeCurrent(),TIME_DATE)+" "+string(tm.hour)+":"+string(tm.min);
      Ask=close[0];
      Bid=close[0]+spread[0];
      sAsk=DoubleToString(Ask,_Digits);
      sBid=DoubleToString(Bid,_Digits);
      sPeriod=EnumToString(ChartPeriod());
      if(SoundON) Alert("SELL signal at Ask=",sAsk,"\n Bid=",sBid,"\n Date=",text,"\n Symbol=",Symbol()," Period=",sPeriod);
      if(EMailON) SendMail("RSI-Crossover_Alert: SELL signal alert","SELL signal at Ask="+sAsk+", Bid="+sBid+", Date="+text+" Symbol="+Symbol()+" Period="+sPeriod);
      if(PushON) SendNotification("RSI-Crossover_Alert: SELL signal at Ask="+sAsk+", Bid="+sBid+", Date="+text+" Symbol="+Symbol()+" Period="+sPeriod);
     }
//----    
   return(rates_total);
  }
//+------------------------------------------------------------------+

Quoting anjanbabu

Disliked

hi guys, I am recently trying to code myself. I have a simple doubt. I guess that this the best thread to ask someone even though there is not much activity in the thread recently. My question is that I am trying to make an EA Lets say Stoch A & Stoch B where each Stoch is of different Time Period. I have mentioned the periods in the editor as m15 and H4. that is what my EA is basically. now the problem is !! Whenever I load the strategy tester on the H4 time frame only the H4 stoch works. And when I test the strategy on the M15 only the M15 Stoch...

Ignored