//+------------------------------------------------------------------+ //| IchimokuAlert.mq5 | //| Copyright 2009, MetaQuotes Software Corp. | //| http://www.mql5.com | //+------------------------------------------------------------------+ #property copyright "2010, MetaQuotes Software Corp." #property link "http://www.mql5.com" #property description "Ichimoku Kinko Hyo" //--- indicator settings enum tupeAlert { No_alert, Tenkan_crosses_Kjiun, Kijun_crosses_Price, both }; #property indicator_chart_window #property indicator_buffers 5 #property indicator_plots 4 #property indicator_type1 DRAW_LINE #property indicator_type2 DRAW_LINE #property indicator_type3 DRAW_FILLING #property indicator_type4 DRAW_LINE #property indicator_color1 Red #property indicator_color2 Blue #property indicator_color3 SandyBrown,Thistle #property indicator_color4 Lime #property indicator_label1 "Tenkan-sen" #property indicator_label2 "Kijun-sen" #property indicator_label3 "Senkou Span A;Senkou Span B" #property indicator_label4 "Chikou Span" //--- input parameters input int InpTenkan=9; // Tenkan-sen input int InpKijun=26; // Kijun-sen input int InpSenkou=52; // Senkou Span B input tupeAlert AlertType=1;// Type Alert bool UptrendAlert1,DntrendAlert1,UptrendAlert2,DntrendAlert2; //--- indicator buffers double ExtTenkanBuffer[]; double ExtKijunBuffer[]; double ExtSpanABuffer[]; double ExtSpanBBuffer[]; double ExtChikouBuffer[]; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ void OnInit() { //--- indicator buffers mapping SetIndexBuffer(0,ExtTenkanBuffer,INDICATOR_DATA); SetIndexBuffer(1,ExtKijunBuffer,INDICATOR_DATA); SetIndexBuffer(2,ExtSpanABuffer,INDICATOR_DATA); SetIndexBuffer(3,ExtSpanBBuffer,INDICATOR_DATA); SetIndexBuffer(4,ExtChikouBuffer,INDICATOR_DATA); //--- IndicatorSetInteger(INDICATOR_DIGITS,_Digits+1); //--- sets first bar from what index will be drawn PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,InpTenkan); PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,InpKijun); PlotIndexSetInteger(2,PLOT_DRAW_BEGIN,InpSenkou-1); //--- lines shifts when drawing PlotIndexSetInteger(2,PLOT_SHIFT,InpKijun); PlotIndexSetInteger(3,PLOT_SHIFT,-InpKijun); //--- change labels for DataWindow PlotIndexSetString(0,PLOT_LABEL,"Tenkan-sen("+string(InpTenkan)+")"); PlotIndexSetString(1,PLOT_LABEL,"Kijun-sen("+string(InpKijun)+")"); PlotIndexSetString(2,PLOT_LABEL,"Senkou Span A;Senkou Span B("+string(InpSenkou)+")"); //--- initialization done } //+------------------------------------------------------------------+ //| get highest value for range | //+------------------------------------------------------------------+ double Highest(const double&array[],int range,int fromIndex) { double res=0; //--- res=array[fromIndex]; for(int i=fromIndex;i>fromIndex-range && i>=0;i--) { if(resfromIndex-range && i>=0;i--) { if(res>array[i]) res=array[i]; } //--- return(res); } //+------------------------------------------------------------------+ //| Ichimoku Kinko Hyo | //+------------------------------------------------------------------+ 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[]) { int i,limit; //--- if(prev_calculated==0) limit=0; else limit=prev_calculated-1; //--- for(i=limit;iExtKijunBuffer[rates_total-1] && ExtTenkanBuffer[rates_total-2]ExtKijunBuffer[rates_total-2] && !DntrendAlert1) { StringConcatenate(Msg,"SELL Signal --- : Tenkan crosses Kijun: ",Symbol()," on ",(ENUM_TIMEFRAMES)Period() , " @ ",DoubleToString(close[rates_total-1],_Digits),", @ ",TimeToString(TimeLocal(),TIME_SECONDS)); UptrendAlert1 = false; DntrendAlert1 = true; Alert(Msg); } } if(AlertType==2 || AlertType==3) { if(close[rates_total-1]>close[rates_total-1-InpKijun] && close[rates_total-2]close[rates_total-2-InpKijun] && !DntrendAlert2) { StringConcatenate(Msg,"SELL Signal --- : Tenkan crosses Price: ",Symbol()," on ",(ENUM_TIMEFRAMES)Period() , " @ ",DoubleToString(close[rates_total-1],_Digits),", @ ",TimeToString(TimeLocal(),TIME_SECONDS)); DntrendAlert2 = true; UptrendAlert2 = false; Alert(Msg); } } return(rates_total); } //+------------------------------------------------------------------+