著者:
ポール・ストリンガー
このインディケーターはハラミパターンを定義し、アラート、メール、プッシュ通知の機能を備えています。
アラート、メール、プッシュ通知機能を実装するために、インディケーターのコードに以下の変更が加えられました:
- 新しい入力パラメータを追加しました。
input uint NumberofBar=1;// シグナルのためのバー番号 input bool SoundON=true; // アラートを有効にする input uint NumberofAlerts=2;// アラートの数 input bool EMailON=false; // シグナルをメールで送信する input bool PushON=false; // モバイルデバイスにシグナルを送信する
- インディケーターコードの最後に3つの新しい関数を追加しました: BuySignal()、SellSignal()、GetStringTimeframe()。
//+------------------------------------------------------------------+ //| バイシグナル関数 | //+------------------------------------------------------------------+ void BuySignal(string SignalSirname, // メール及びプッシュメッセージのインディケーター名のテキスト double &BuyArrow[], // バイシグナル用のインディケーターバッファ const int Rates_total, // 現在のバー数 const int Prev_calculated, // 前回のティックのバー数 const double &Close[], // クローズ価格 const int &Spread[]) // スプレッド { //--- static uint counter=0; if(Rates_total!=Prev_calculated) counter=0; bool BuySignal=false; bool SeriesTest=ArrayGetAsSeries(BuyArrow); int index; if(SeriesTest) index=int(NumberofBar); else index=Rates_total-int(NumberofBar)-1; if(NormalizeDouble(BuyArrow[index],_Digits) && BuyArrow[index]!=EMPTY_VALUE) BuySignal=true; if(BuySignal && counter<=NumberofAlerts) { counter++; MqlDateTime tm; TimeToStruct(TimeCurrent(),tm); string text=TimeToString(TimeCurrent(),TIME_DATE)+" "+string(tm.hour)+":"+string(tm.min); SeriesTest=ArrayGetAsSeries(Close); if(SeriesTest) index=int(NumberofBar); else index=Rates_total-int(NumberofBar)-1; double Ask=Close[index]; double Bid=Close[index]; SeriesTest=ArrayGetAsSeries(Spread); if(SeriesTest) index=int(NumberofBar); else index=Rates_total-int(NumberofBar)-1; Bid+=Spread[index]*_Point; string sAsk=DoubleToString(Ask,_Digits); string sBid=DoubleToString(Bid,_Digits); string sPeriod=GetStringTimeframe(ChartPeriod()); if(SoundON) Alert("BUY signal \n Ask=",Ask,"\n Bid=",Bid,"\n currtime=",text,"\n Symbol=",Symbol()," Period=",sPeriod); if(EMailON) SendMail(SignalSirname+": BUY signal alert","BUY signal at Ask="+sAsk+", Bid="+sBid+", Date="+text+" Symbol="+Symbol()+" Period="+sPeriod); if(PushON) SendNotification(SignalSirname+": BUY signal at Ask="+sAsk+", Bid="+sBid+", Date="+text+" Symbol="+Symbol()+" Period="+sPeriod); } //--- } //+------------------------------------------------------------------+ //| セルシグナル関数 | //+------------------------------------------------------------------+ void SellSignal(string SignalSirname, // メール及びプッシュメッセージのインディケーター名のテキスト double &SellArrow[], // セルシグナル用のインディケーターバッファ const int Rates_total, // 現在のバー数 const int Prev_calculated, // 前回のティックのバー数 const double &Close[], // クローズ価格 const int &Spread[]) // スプレッド { //--- static uint counter=0; if(Rates_total!=Prev_calculated) counter=0; bool SellSignal=false; bool SeriesTest=ArrayGetAsSeries(SellArrow); int index; if(SeriesTest) index=int(NumberofBar); else index=Rates_total-int(NumberofBar)-1; if(NormalizeDouble(SellArrow[index],_Digits) && SellArrow[index]!=EMPTY_VALUE) SellSignal=true; if(SellSignal && counter<=NumberofAlerts) { counter++; MqlDateTime tm; TimeToStruct(TimeCurrent(),tm); string text=TimeToString(TimeCurrent(),TIME_DATE)+" "+string(tm.hour)+":"+string(tm.min); SeriesTest=ArrayGetAsSeries(Close); if(SeriesTest) index=int(NumberofBar); else index=Rates_total-int(NumberofBar)-1; double Ask=Close[index]; double Bid=Close[index]; SeriesTest=ArrayGetAsSeries(Spread); if(SeriesTest) index=int(NumberofBar); else index=Rates_total-int(NumberofBar)-1; Bid+=Spread[index]*_Point; string sAsk=DoubleToString(Ask,_Digits); string sBid=DoubleToString(Bid,_Digits); string sPeriod=GetStringTimeframe(ChartPeriod()); if(SoundON) Alert("SELL signal \n Ask=",Ask,"\n Bid=",Bid,"\n currtime=",text,"\n Symbol=",Symbol()," Period=",sPeriod); if(EMailON) SendMail(SignalSirname+": SELL signal alert","SELL signal at Ask="+sAsk+", Bid="+sBid+", Date="+text+" Symbol="+Symbol()+" Period="+sPeriod); if(PushON) SendNotification(SignalSirname+": SELL signal at Ask="+sAsk+", Bid="+sBid+", Date="+text+" Symbol="+Symbol()+" Period="+sPeriod); } //--- } //+------------------------------------------------------------------+ //| タイムフレームを文字列として取得 | //+------------------------------------------------------------------+ string GetStringTimeframe(ENUM_TIMEFRAMES timeframe) { //---- return(StringSubstr(EnumToString(timeframe),7,-1)); //---- }
- インディケーター計算サイクルの後にBuySignal()およびSellSignal()関数を追加しました。
//--- BuySignal("Harami_Alert",BuyBuffer,rates_total,prev_calculated,close,spread); SellSignal("Harami_Alert",SellBuffer,rates_total,prev_calculated,close,spread); //---
BuyBufferおよびSellBufferは、バイおよびセルシグナルを保存するためのインディケーターバッファの名前です。インディケーターバッファ内の空の値は、ゼロまたはEMPTY_VALUEに設定する必要があります。
BuySignal()およびSellSignal()関数は、インディケーターコードのOnCalculate()ブロック内で1回だけ呼び出されることが想定されています。
元々、このインディケーターはMQL4で書かれ、2016年6月14日にコードベースで最初に公開されました。
図1. ハラミアラートインディケーターのチャート
図2. ハラミアラート - アラートの生成