インディケータ: iGDR_Fractal_Levels

新しいコメント
 

iGDR_Fractal_Levels:

 iGDR_Fractal_Levelsは、 フラクタルの時間の一定期間の平均値を示します。

フラクタルを使用する取引はそれらのフラクタルブレイクアウトの方向にのみで実行されることを心に留めなければなりません。レベルについても同じ です。市場参入は、これらの最強シグナルであるレベルの方向に従わなければなりません。近くのレベルは初期のストップレベルと利益目標として使用すること ができます。

iGDR_Fractal_Levels

作者: Nikolay Kositsin

 
なぜ200バールの制限しかないのですか？
 
良い指標...グッドジョブ
 
Automated-Trading:

iGDR_Fractal_Levels：

著者：ニコライ・コシツィン

インジケータが動作しない
 
残念ながら、そうだ。うまくいかない。4つのコンパイル・エラー、しかもくだらないものだ。しかし、インジケーターは面白い。
 

コンパイル中にエラーが発生

修正方法

 
エラーでコンパイルできない
 
Benkele Goitsemodimo #:  エラーでコンパイルできない

修正しました。

ファイル:
igdr_fractal_levels_9fixedy.mq5  38 kb
 

//インジケーターが面白い。 コードの修正

      //+------------------------------------------------------------------+
//|iGDR_Fractal_Levels.mq5
//| 著作権 © 2008-2009, GreenDog, ロシア
//|krot@inbox.ru
//+------------------------------------------------------------------+
//---- インジケータの著者名
#property copyright "著作権 © 2008-2009, GreenDog."
//---- 著者のウェブサイトへのリンク
#property link      "krot@inbox.ru"
//---- インジケータのバージョン番号
#property version   "1.00"
//---- メイン・ウィンドウにインジケータを描画する。
#property indicator_chart_window 
#property indicator_buffers  1
#property indicator_plots    1
//+----------------------------------------------+
//|| 列挙を宣言する
//+----------------------------------------------+
enum FRACTAL_MODE
  {
   MODE_HIGH_LOW=0, // by extrema
   MODE_LOW,        // 頂点別
   MODE_HIGH        // 谷による
  };
//+----------------------------------------------+
//|| 列挙を宣言する
//+----------------------------------------------+
enum FRACTAL_TYPE
  {
   TYPE1=0, // strict
   TYPE2    // 非制限
  };
//+----------------------------------------------+
//|| インジケータ入力パラメータ
//+----------------------------------------------+
input uint frNum_=2;                      // フラクタルのバーの数。2=5バーフラクタル、3=7バーフラクタルなど。
input FRACTAL_TYPE frType= TYPE2;         // フラクタル定義のタイプ 0=厳密、1=非厳密
input FRACTAL_MODE frMode =MODE_HIGH_LOW; // モード 
input double dlt_=0.24;                   // 平均棒の高さからの誤差
input uint sBars_=200;                    // バーの数（最大200本）
//----
input color  BG1_Color = PaleGreen;  // 最初のレベルの背景色
input color  TL1Color  = Green;      // 第一レベル行の色
input color  BG2_Color = Yellow;     // 第2レベルの背景色
input color  TL2Color  = DarkOrange; // 第2レベルの線の色
input color  BG3_Color = Pink;       // 第3レベルの背景色
input color  TL3Color  = Red;        // 第3レベルの線の色
//+----------------------------------------------+
uint lastBars=0;
uint frNum,sBars;
datetime lastTime=0;
color BGColor[3],TLColor[3];
double aData[240][2],aRes[3][2];
//+------------------------------------------------------------------+
//| カスタムインジケータ初期化関数
//+------------------------------------------------------------------+ 
void OnInit()
  {
//---- 定数の初期化
   frNum=frNum_;
   if(frNum_<2) frNum=2;
   sBars=sBars_;
   if(sBars_>200) sBars=200;
   if(sBars_<10) sBars=10;
   BGColor[0]=BG1_Color;
   BGColor[1]=BG2_Color;
   BGColor[2]=BG3_Color;
   TLColor[0]=TL1Color;
   TLColor[1]=TL2Color;
   TLColor[2]=TL3Color;
//----
  }
//+------------------------------------------------------------------+
//| テキストラベルの作成|
//+------------------------------------------------------------------+
void CreateTextLabel(long     chart_id,   // チャートの識別子
                     string   name,       // オブジェクト名
                     int      nwin,       // ウィンドウのインデックス
                     datetime time1,      // 1価格レベルの時間
                     double   price1,     // 1価格レベル
                     color    Color,      // 線の色
                     string   text,       // テキスト
                     string   font,       // フォント 
                     int      fontsize)   // フォントサイズ
  {
//----
   ObjectCreate(chart_id,name,OBJ_TEXT,nwin,time1,price1);
   ObjectSetInteger(chart_id,name,OBJPROP_COLOR,Color);
   ObjectSetInteger(chart_id,name,OBJPROP_BACK,true);
   ObjectSetInteger(chart_id,name,OBJPROP_SELECTED,true);
   ObjectSetInteger(chart_id,name,OBJPROP_SELECTABLE,true);
   ObjectSetInteger(chart_id,name,OBJPROP_ZORDER,true);
   ObjectSetString(chart_id,name,OBJPROP_FONT,font);
   ObjectSetString(chart_id,name,OBJPROP_TEXT,text);
   ObjectSetInteger(chart_id,name,OBJPROP_FONTSIZE,fontsize);
//----
  }
//+------------------------------------------------------------------+
//|| テキスト・ラベルのリセット|
//+------------------------------------------------------------------+
void SetTextLabel(long     chart_id,    // チャートの識別子
                  string   name,        // オブジェクト名
                  int      nwin,        // ウィンドウのインデックス
                  datetime time1,       // 1価格レベルの時間
                  double   price1,      // 1価格レベル
                  color    Color,       // 線の色
                  int      style,       // ラインスタイル
                  int      width,       // 線の太さ
                  string   text,        // テキスト
                  string   font,        // フォント
                  int      fontsize)    // フォントサイズ
  {
//----
   if(ObjectFind(chart_id,name)==-1)
     {
      CreateTextLabel(chart_id,name,nwin,time1,price1,Color,text,font,fontsize);
     }
   else
     {
      ObjectSetString(chart_id,name,OBJPROP_TEXT,text);
      ObjectMove(chart_id,name,0,time1,price1);
      ObjectSetInteger(chart_id,name,OBJPROP_COLOR,Color);
     }
//----
  }
//+------------------------------------------------------------------+
//| チャンネルの作成|
//+------------------------------------------------------------------+
void CreateChannel(long     chart_id,      // チャートの識別子
                   string   name,          // オブジェクト名
                   int      nwin,          // ウィンドウのインデックス
                   datetime time1,         // 1価格レベルの時間
                   double   price1,        // 1価格レベル
                   datetime time2,         // 価格水準2の時期
                   double   price2,        // 2 価格水準
                   datetime time3,         // 価格水準3の時期
                   double   price3,        // 3 価格水準
                   color    Color,         // 線の色
                   int      style,         // ラインスタイル
                   int      width,         // 線の太さ
                   string   text)          // テキスト
  {
//----
   ObjectCreate(chart_id,name,OBJ_CHANNEL,nwin,time1,price1,time2,price2);
   ObjectSetInteger(chart_id,name,OBJPROP_COLOR,Color);
   ObjectSetInteger(chart_id,name,OBJPROP_STYLE,style);
   ObjectSetInteger(chart_id,name,OBJPROP_WIDTH,width);
   ObjectSetString(chart_id,name,OBJPROP_TEXT,text);
   ObjectSetInteger(chart_id,name,OBJPROP_FILL,true);
   ObjectSetInteger(chart_id,name,OBJPROP_BACK,true);
   ObjectSetInteger(chart_id,name,OBJPROP_RAY_RIGHT,true);
   ObjectSetInteger(chart_id,name,OBJPROP_RAY,true);
   ObjectSetInteger(chart_id,name,OBJPROP_SELECTED,true);
   ObjectSetInteger(chart_id,name,OBJPROP_SELECTABLE,true);
   ObjectSetInteger(chart_id,name,OBJPROP_ZORDER,true);
//----
  }
//+------------------------------------------------------------------+
//|| チャンネルの再インストール|
//+------------------------------------------------------------------+
void SetChannel(long     chart_id,    // チャートの識別子
                string   name,        // オブジェクト名
                int      nwin,        // ウィンドウのインデックス
                datetime time1,       // 1価格レベルの時間
                double   price1,      // 1価格レベル
                datetime time2,       // 価格水準2の時期
                double   price2,      // 2 価格水準
                datetime time3,       // 価格水準3の時期
                double   price3,      // 3 価格水準
                color    Color,       // 線の色
                int      style,       // ラインスタイル
                int      width,       // 線の太さ
                string   text)        // テキスト
  {
//----
   if(ObjectFind(chart_id,name)==-1)
     {
      CreateChannel(chart_id,name,nwin,time1,price1,time2,price2,time3,price3,Color,style,width,text);
     }
   else
     {
      ObjectSetString(chart_id,name,OBJPROP_TEXT,text);
      ObjectMove(chart_id,name,0,time1,price1);
      ObjectMove(chart_id,name,1,time2,price2);
      ObjectMove(chart_id,name,2,time3,price3);
      ObjectSetInteger(chart_id,name,OBJPROP_COLOR,Color);
     }
//----
  }
//+------------------------------------------------------------------+
//| トレンドラインの作成|
//+------------------------------------------------------------------+
void CreateTline(long     chart_id,    // チャートの識別子
                 string   name,        // オブジェクト名
                 int      nwin,        // ウィンドウのインデックス
                 datetime time1,       // 1価格レベルの時間
                 double   price1,      // 1価格レベル
                 datetime time2,       // 価格水準2の時期
                 double   price2,      // 2 価格水準
                 color    Color,       // 線の色
                 int      style,       // ラインスタイル
                 int      width,       // 線の太さ
                 string   text)        // テキスト
  {
//----
   ObjectCreate(chart_id,name,OBJ_TREND,nwin,time1,price1,time2,price2);
   ObjectSetInteger(chart_id,name,OBJPROP_COLOR,Color);
   ObjectSetInteger(chart_id,name,OBJPROP_STYLE,style);
   ObjectSetInteger(chart_id,name,OBJPROP_WIDTH,width);
   ObjectSetString(chart_id,name,OBJPROP_TEXT,text);
   ObjectSetInteger(chart_id,name,OBJPROP_BACK,false);
   ObjectSetInteger(chart_id,name,OBJPROP_RAY_RIGHT,true);
   ObjectSetInteger(chart_id,name,OBJPROP_RAY,true);
   ObjectSetInteger(chart_id,name,OBJPROP_SELECTED,true);
   ObjectSetInteger(chart_id,name,OBJPROP_SELECTABLE,true);
   ObjectSetInteger(chart_id,name,OBJPROP_ZORDER,true);
//----
  }
//+------------------------------------------------------------------+
//|| トレンドラインのリセット|
//+------------------------------------------------------------------+
void SetTline(long     chart_id,    // チャートの識別子
              string   name,        // オブジェクト名
              int      nwin,        // ウィンドウのインデックス
              datetime time1,       // 1価格レベルの時間
              double   price1,      // 1価格レベル
              datetime time2,       // 価格水準2の時期
              double   price2,      // 2 価格水準
              color    Color,       // 線の色
              int      style,       // ラインスタイル
              int      width,       // 線の太さ
              string   text)        // テキスト
  {
//----
   if(ObjectFind(chart_id,name)==-1)
     {
      CreateTline(chart_id,name,nwin,time1,price1,time2,price2,Color,style,width,text);
     }
   else
     {
      ObjectSetString(chart_id,name,OBJPROP_TEXT,text);
      ObjectMove(chart_id,name,0,time1,price1);
      ObjectMove(chart_id,name,1,time2,price2);
      ObjectSetInteger(chart_id,name,OBJPROP_COLOR,Color);
     }
//----
  }
//+------------------------------------------------------------------+
//| トップフラクタル|
//+------------------------------------------------------------------+ 
bool upFrac(int cnt,const double &High[])
  {
//----
   for(int i=1; i<=int(frNum); i++)
     {
      if(frType==TYPE1)
        {
        //---- 厳密な条件で、ポストバーまたはプレバーが隣接するバーと等しい場合 - フラクタルなし
         if(High[cnt+i]>=High[cnt+i-1] || High[cnt-i]>=High[cnt-i+1]) return(false);
        }
      else
        { 
        //---- 条件が厳密でなく、ポストバーまたはプレバーが中央より上にある場合 - フラクタルなし
         if(High[cnt+i]>High[cnt] || High[cnt-i]>High[cnt]) return(false);
        }
     }
//----
   return(true);
  }
//+------------------------------------------------------------------+
//| 底辺のフラクタル図形を探す|
//+------------------------------------------------------------------+ 
bool dwFrac(int cnt,const double &Low[])
  {
//----
   for(int i=1; i<=int(frNum); i++)
     {
      if(frType==TYPE1)
        { 
         //---- 厳密な条件で、ポストバーまたはプレバーが隣と等しい場合 - フラクタルなし
         if(Low[cnt+i]<=Low[cnt+i-1] || Low[cnt-i]<=Low[cnt-i+1]) return(false);
        }
      else
        { 
         //---- 条件が厳密でなく、ポストバーまたはプレバーが中央より下にある場合 - フラクタルなし
         if(Low[cnt+i]<Low[cnt] || Low[cnt-i]<Low[cnt]) return(false);
        }
     }
//----
   return(true);
  }
//+------------------------------------------------------------------+
//| カスタム・インジケータの初期化関数
//+------------------------------------------------------------------+ 
void OnDeinit(const int reason)
  {
//----
   Comment("");
   for(int i=0; i<3; i++)
     {
      string name="IPGDR_Lv"+string(i);
      ObjectDelete(0,name);
      ObjectDelete(0,name+"Up");
      ObjectDelete(0,name+"Dw");
      ObjectDelete(0,name+"Tx");
     }
//----
  }
//+------------------------------------------------------------------+
//| カスタム・インジケータ反復関数
//+------------------------------------------------------------------+
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[])
  {
//---- 計算に必要な小節数をチェックする。
   if(rates_total<int(sBars)) return(0);

//---- 配列内の要素のインデックス付け（時系列と同様 
   ArraySetAsSeries(time,true);
   ArraySetAsSeries(close,true);
   ArraySetAsSeries(open,true);
   ArraySetAsSeries(high,true);
   ArraySetAsSeries(low,true);

   lastBars=rates_total;

//---- フラクタル図形を探し、配列に入れる。
   int sh=0;
   ArrayInitialize(aData,0);
   double lastExt=0;
   int total=int(sBars-2*frNum);
   int start=int(frNum+1);

   for(int i=start; i<total; i++)
     {
    // if(frMode!=MODE_LOW && upFrac(i,high))
    if(frMode!=FRACTAL_MODE::MODE_LOW && upFrac(i,high))
        { 
         //---- 頂点を追加する [トラフ・モードを除く]。
         //---- 厳密でない条件下では、隣接する頂点の重複をスキップする。
         if(!(frType!=TYPE1 && lastExt>0 && lastExt==high[i]))
           {
            aData[sh][0]=high[i];
            lastExt=high[i];
            sh++;
           }
        }

      if(sh>=240) break;

     // if(frMode!=MODE_HIGH && dwFrac(i,low))
     if(frMode!=FRACTAL_MODE::MODE_HIGH && dwFrac(i,low))
        { 
         //---- 頂点モードを除く）窪みを追加する。
         //---- 非厳密な条件下では、隣接する谷の重複をスキップする。
         if(!frType!=TYPE1 && lastExt>0 && lastExt==low[i])
           {
            aData[sh][0]=low[i];
            lastExt=low[i];
            sh++;
           }
        }
      if(sh>=240) break;
     }

//---- ローソク足の平均スプレッドと、それに対応する許容範囲を決定する。
   double dlt,sHL=0;
   for(int i=1; i<=int(sBars); i++) sHL+=(high[i]-low[i]);
   sHL/=sBars;
   dlt=sHL*dlt_;

//---- 各レベルのレーティングを定義する
   for(int i=0; i<sh; i++)
      for(int j=i+1; j<sh; j++)
         if(aData[j][0]>aData[i][0]-dlt && aData[j][0]<aData[i][0]+dlt)
           {
            aData[i][1]+=1;
            aData[j][1]+=1;
           }

//---- 3つの最強レベルを見極める
   double cur[2],tmp[2];
   aRes[0][0]=aData[0][0];
   aRes[0][1]=aData[0][1];

   for(int i=1; i<sh; i++)
     {
      cur[0]=aData[i][0];
      cur[1]=aData[i][1];

      if(cur[1]>aRes[0][1])
        { 
         //---- レーティングがランク1より大きい場合、ランク1が現在のレーティングになる。
         tmp[0]=aRes[0][0];
         tmp[1]=aRes[0][1];
         aRes[0][0]=cur[0];
         aRes[0][1]=cur[1];
         cur[0]=tmp[0];
         cur[1]=tmp[1];
        }

      //---- 評価が2位より高く、かつ1位に属していない場合、2位を置き換える。
      if(cur[1]>aRes[1][1] && (cur[0]<aRes[0][0]-dlt || cur[0]>aRes[0][0]+dlt))
        {
         tmp[0]=aRes[1][0]; tmp[1]=aRes[1][1]; aRes[1][0]=cur[0]; aRes[1][1]=cur[1]; cur[0]=tmp[0]; cur[1]=tmp[1];
        }
      //---- 評価が3位より高く、かつ1位と2位に属さない場合は、3位を代入する。
      if(cur[1]>aRes[2][1] && (cur[0]<aRes[0][0]-dlt || cur[0]>aRes[0][0]+dlt) && (cur[0]<aRes[1][0]-dlt || cur[0]>aRes[1][0]+dlt))
        {
         aRes[2][0]=cur[0];
         aRes[2][1]=cur[1];
        }
     }

   for(int i=0; i<3; i++)
     {
      double dwL=aRes[i][0]-dlt,upL=aRes[i][0]+dlt;
      string name="IPGDR_Lv"+string(i);

      SetChannel(0,name,0,time[24],upL,time[1],upL,time[24],dwL,BGColor[i],STYLE_SOLID,1,name);
      SetTline(0,name+"Up",0,time[24],upL,time[1],upL,TLColor[i],STYLE_SOLID,1,name+"Up");
      SetTline(0,name+"Dw",0,time[24],dwL,time[1],dwL,TLColor[i],STYLE_SOLID,1,name+"Dw");
      SetTextLabel(0,name+"Tx",0,time[32],upL+2*_Point,TLColor[i],STYLE_SOLID,1,DoubleToString(aRes[i][0],_Digits),"tahoma",14);
     }

//---- 出力コメント
   string rem1="",rem2="";
   if(frType==TYPE2) rem1=rem1+「クラシック;
   else rem1=rem1+"ストリクトリー";

   rem1=rem1+string(frNum*2+1)+「バー・フラクタル;
  // if(frMode==MODE_LOW) rem1=rem1+", 谷"；
 if(frMode==FRACTAL_MODE::MODE_LOW) rem1=rem1+"、ボトムス";
   //else if(frMode==MODE_HIGH) rem1=rem1+", vertex"；
else if(frMode==FRACTAL_MODE::MODE_HIGH) rem1=rem1+"、アッパー";
   rem1=rem1+"発見"+string(sh)+「フラクタルの最強レベル;

   StringConcatenate(rem2,aRes[0][0],"[",aRes[0][1],"], ",
                     aRes[1][0],"[",aRes[1][1],"], ",aRes[2][0],"[",aRes[2][1],
                     "], エラー±",NormalizeDouble(dlt/_Point,1),段落);
   Comment(rem1+rem2);

//----
   ChartRedraw(0);
//---- 
   return(rates_total);
  }
//+------------------------------------------------------------------+
新しいコメント