*

一目均衡表(関数版)

公開日: : 最終更新日:2015/02/20 マネー

MetaTrader4 に付属している一目均衡表のソースを見てみるとずいぶん複雑なので、関数を使って簡単に記述し直してみました。

書き換えたのはほとんど start 関数だけです(バッファ名も長いので変えましたけど)。

これをちょっと変えるとリアルタイム雲のフィルタが簡単に作れます。

プログラムソース

//+------------------------------------------------------------------+
//|              一目均衡表(関数版)          yasciiIchimoku01.mq4 |
//+------------------------------------------------------------------+

#property strict

#property indicator_chart_window
#property indicator_buffers 7
#property indicator_color1 Red          // Tenkan-sen
#property indicator_color2 Blue         // Kijun-sen
#property indicator_color3 SandyBrown   // Up Kumo
#property indicator_color4 Thistle      // Down Kumo
#property indicator_color5 Yellow         // Chikou Span
#property indicator_color6 SandyBrown   // Up Kumo bounding line
#property indicator_color7 Thistle      // Down Kumo bounding line
//--- input parameters
input int InpTenkan=9;   // Tenkan-sen
input int InpKijun=26;   // Kijun-sen
input int InpSenkou=52;  // Senkou Span B
//--- buffers
double tenkan[];
double kijun[];
double senkouA[];
double senkouB[];
double chikou[];
double senkouAL[];
double senkouBL[];
//---
int    ExtBegin;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
void OnInit(void)
  {
   IndicatorDigits(Digits);
//---
   SetIndexStyle(0,DRAW_LINE);
   SetIndexBuffer(0,tenkan);
   SetIndexDrawBegin(0,InpTenkan-1);
   SetIndexLabel(0,"Tenkan Sen");
//---
   SetIndexStyle(1,DRAW_LINE);
   SetIndexBuffer(1,kijun);
   SetIndexDrawBegin(1,InpKijun-1);
   SetIndexLabel(1,"Kijun Sen");
//---
   ExtBegin = InpKijun;
   if(ExtBegin < InpTenkan) ExtBegin = InpTenkan;
//---
   SetIndexStyle(2,DRAW_HISTOGRAM,STYLE_DOT);
   SetIndexBuffer(2,senkouA);
   SetIndexDrawBegin(2,InpKijun+ExtBegin-1);
   SetIndexShift(2,InpKijun-1);
   SetIndexLabel(2,NULL);
   SetIndexStyle(5,DRAW_LINE,STYLE_DOT);
   SetIndexBuffer(5,senkouAL);
   SetIndexDrawBegin(5,InpKijun+ExtBegin-1);
   SetIndexShift(5,InpKijun-1);
   SetIndexLabel(5,"Senkou Span A");
//---
   SetIndexStyle(3,DRAW_HISTOGRAM,STYLE_DOT);
   SetIndexBuffer(3,senkouB);
   SetIndexDrawBegin(3,InpKijun+InpSenkou-1);
   SetIndexShift(3,InpKijun-1);
   SetIndexLabel(3,NULL);
   SetIndexStyle(6,DRAW_LINE,STYLE_DOT);
   SetIndexBuffer(6,senkouBL);
   SetIndexDrawBegin(6,InpKijun+InpSenkou-1);
   SetIndexShift(6,InpKijun-1);
   SetIndexLabel(6,"Senkou Span B");
//---
   SetIndexStyle(4,DRAW_LINE);
   SetIndexBuffer(4,chikou);
   SetIndexShift(4,1-InpKijun);
   SetIndexLabel(4,"Chikou Span");
//--- initialization done
  }
//+------------------------------------------------------------------+
//| Ichimoku Kinko Hyo                                               |
//+------------------------------------------------------------------+
int start()
{
   int limit = Bars - IndicatorCounted();
   if(limit == Bars) limit -= InpKijun+InpSenkou-1;
   for (int i =limit -1; i>=0; i--)
   {
        tenkan[i] = (High[iHighest(NULL, 0, MODE_HIGH, InpTenkan, i)] + Low[iLowest(NULL, 0, MODE_LOW, InpTenkan, i)]) / 2.0 ;
        kijun[i] = (High[iHighest(NULL, 0, MODE_HIGH, InpKijun, i)] + Low[iLowest(NULL, 0, MODE_LOW, InpKijun, i)]) / 2.0 ;
        senkouA[i] = (High[iHighest(NULL, 0, MODE_HIGH, InpKijun, i)] + Low[iLowest(NULL, 0, MODE_LOW, InpKijun, i)] + High[iHighest(NULL, 0, MODE_HIGH, InpTenkan, i)] + Low[iLowest(NULL, 0, MODE_LOW, InpTenkan, i)]) / 4.0 ;
        senkouB[i] = (High[iHighest(NULL, 0, MODE_HIGH, InpSenkou, i)] + Low[iLowest(NULL, 0, MODE_LOW, InpSenkou, i)])/2.0 ;
        senkouAL[i] = senkouA[i] ;
        senkouBL[i] = senkouB[i] ;
        chikou[i] = Close[i];
     }

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

###

関連記事

【FX】Hippo Trader という EA

Hippo Trader という EA 1ヶ月ほど前に Hippo Trader という EAが紹

記事を読む

見栄をはっても意味はない

世の中は たった一人の絶対的金持ち と 残りの相対的貧乏人 からなっていますよね。 金持ち→貧

記事を読む

アメリカ株投資 2021-7-2

「アメリカ株投資 2021-6-26」の続きです。 前回は 130万円を超えたと言いま

記事を読む

MACDのマルチタイムフレームシステム(FX自動売買プログラム)

ある本に載っていたある人の売買法をプログラムにして自動売買してみました。 長期の時間足と日足を

記事を読む

【FX】朝スキャ

朝スキャという言葉はご存じでしょうか。普通の方は聞いたこともないでしょう。 え、夜明けのスキャ

記事を読む

[FX] MACDマルチタイムフレーム 15分足用(5) 実戦投入後の経過

以前の記事 「 MACDマルチタイムフレーム 15分足用(4) 実戦投入 」でおとといの月曜日か

記事を読む

[FX] 今週の戦略 2015/6/29-7/4

先週は FX の記事を書くのを忘れていましたが、本日朝は大きな窓開けがありました。 ギリシ

記事を読む

バケツ一杯の宝石

ある本(ホリエモンの新・資本論)を読んでいると、トルコ石の原石を eBay で仕入れて日本で

記事を読む

[FX]デイリーピボットへの回帰

FX では前日のピボット値を目安にすることがよく行われています。 上下どちらから始まっても一日

記事を読む

【FX】Evening Scalper Pro

Evening Scalper Pro とはアメリカのとあるサイトから拾ってきた EA(自動売買プロ

記事を読む

Message

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

無意味ダーと叫ぶ人

「ある事故を減らすにはどうしたらいいか」という命題を考えましょう。

Lexar NM620 M.2 SSD NVMe 256GB

【正規代理店】Lexar NM

クラシック音楽へのおさそい~Blue Sky Label~

「クラシック音楽へのおさそい~Blue Sky Label~」というサ

66歳の誕生日

不肖イワサキ、本日をもちまして 66歳になりました。 66年前に

牛たん炭焼利久監修 牛たんごはん

ファミリーマートの新作です。348円(税込375円)。

→もっと見る

  • アクセスカウンター
PAGE TOP ↑