AIME 5820 Crossover Alert

//compile//
//+------------------------------------------------------------------+
//|                           EMA_58_Crossover_alert.mq4 |
//|                  Copyright ?2006, Robert Hill         |
//|                                             |
//| Written Robert Hill for use with AIME for the EMA 5/8 cross to   |
//| draw arrows and popup alert or send email                 |
//+------------------------------------------------------------------+

#property copyright Copyright ?2006, Robert Hill

#property indicator_chart_window
#property indicator_buffers 5
#property indicator_color1 LawnGreen
#property indicator_color2 Red
#property indicator_color3 Red
#property indicator_color4 Aqua
#property indicator_color5 Yellow
#property indicator_width1 2
#property indicator_width2 2
#property indicator_width3 2
#property indicator_width4 2
#property indicator_width5 2

extern bool SoundON=true;
extern bool EmailON=false;

double CrossUp[];
double CrossDown[];
double Ema5[];
double Ema8[];
double Ema20[];
int flagval1 = 0;
int flagval2 = 0;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                  |
//+------------------------------------------------------------------+
int init()
 {
//---- indicators
   SetIndexStyle(0, DRAW_ARROW, EMPTY);
   SetIndexArrow(0, 233);
   SetIndexBuffer(0, CrossUp);
   SetIndexStyle(1, DRAW_ARROW, EMPTY);
   SetIndexArrow(1, 234);
   SetIndexBuffer(1, CrossDown);
   SetIndexStyle(2, DRAW_LINE, STYLE_SOLID);
   SetIndexBuffer(2, Ema5);
   SetIndexStyle(3, DRAW_LINE, STYLE_SOLID);
   SetIndexBuffer(3, Ema8);
   SetIndexStyle(4, DRAW_LINE, STYLE_SOLID);
   SetIndexBuffer(4, Ema20);
//----
   return(0);
 }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function               |
//+------------------------------------------------------------------+
int deinit()
 {
//----

//----
   return(0);
 }


//+------------------------------------------------------------------+
//| Custom indicator iteration function                     |
//+------------------------------------------------------------------+
int start() {
   int limit, i, counter;
   double tmp=0;
   double fastMAnow, slowMAnow, fastMAprevious, slowMAprevious;
   double Range, AvgRange;
   int counted_bars=IndicatorCounted();
//---- check for possible errors
   if(counted_bars 0) return(-1);
//---- last counted bar will be recounted
   if(counted_bars 0) counted_bars--;

   limit=Bars-counted_bars;
   
   for(i = 1; i = limit; i++) {
   
     counter=i;
     Range=0;
     AvgRange=0;
     for (counter=i ;counter =i+9;counter++)
     {
       AvgRange=AvgRange+MathAbs(High[counter]-Low[counter]);
     }
     Range=AvgRange/10;
     
     fastMAnow = iMA(NULL, 0, 5, -1, MODE_EMA, PRICE_CLOSE, i);
     fastMAprevious = iMA(NULL, 0, 5, -1, MODE_EMA, PRICE_CLOSE, i+1);

     slowMAnow = iMA(NULL, 0, 8, 0, MODE_EMA, PRICE_OPEN, i);
     slowMAprevious = iMA(NULL, 0, 8, 0, MODE_EMA, PRICE_OPEN, i+1);
     
     Ema20[i] = iMA(NULL, 0, 20, 0, MODE_EMA, PRICE_CLOSE, i);
     Ema5[i] = fastMAnow;
     Ema8[i] = slowMAnow;
     CrossUp[i] = 0;
     CrossDown[i] = 0;
     if ((fastMAnow slowMAnow) (fastMAprevious slowMAprevious))
     {
       if (i == 1 flagval1==0)
       {
       flagval1=1;
       flagval2=0;
       if (SoundON) alert( BUY signal at Ask= ,Ask, n Bid= ,Bid, n Time= ,TimeToStr(CurTime(),TIME_DATE), ,TimeHour(CurTime()), : ,TimeMinute(CurTime()), n Symbol= ,Symbol(), Period= ,Period());
       if (EmailON) SendMail( BUY signal alert , BUY signal at Ask= +DoubleToStr(Ask,4)+ , Bid= +DoubleToStr(Bid,4)+ , Date= +TimeToStr(CurTime(),TIME_DATE)+ +TimeHour(CurTime())+ : +TimeMinute(CurTime())+ Symbol= +Symbol()+ Period= +Period());
       }
       CrossUp[i] = Low[i] - Range*0.75;
     }
     else if ((fastMAnow slowMAnow) (fastMAprevious slowMAprevious))
     {
       if (i == 1 flagval2==0)
       {
        flagval2=1;
        flagval1=0;
       if (SoundON) alert( SELL signal at Ask= ,Ask, n Bid= ,Bid, n Date= ,TimeToStr(CurTime(),TIME_DATE), ,TimeHour(CurTime()), : ,TimeMinute(CurTime()), n Symbol= ,Symbol(), Period= ,Period());
       if (EmailON) SendMail( SELL signal alert , SELL signal at Ask= +DoubleToStr(Ask,4)+ , Bid= +DoubleToStr(Bid,4)+ , Date= +TimeToStr(CurTime(),TIME_DATE)+ +TimeHour(CurTime())+ : +TimeMinute(CurTime())+ Symbol= +Symbol()+ Period= +Period());
       }
       CrossDown[i] = High[i] + Range*0.75;
     }
   }

   return(0);
}
复制代码

外汇交易有很大的风险性,本站所有资源均来自网络,请选择使用,如若出现亏损,本站不承担任何责任!