外汇EA编写教程：开发基于振荡器的之字折线 (ZigZag) 指标。 执行需求规范的示例

因此，必须要注意由此产生的某些特征。 

图形界面。 图形界面的需求相对简单。 控件集合是恒定的，它不需要依据所选的振荡器而变化。 仅用到了两个数字参数 (超买/超卖水平)，并且它们的设置对于所有振荡器是相同的。

在理解了任务的所有功能之后，我们可以开始开发指标。 在每个开发阶段结束时，我们在附件中设置相应的文件名。 如果您在进一步阅读中对于所添加代码的顺序难以理解的话，我们建议您在编辑器中打开相应阶段的文件并进行检查。

阶段 1 — 开发之字折线

#property indicator_color1  clrGold,clrLimeGreen

input int      Input1;

input int         WPRperiod   =  14;
input double      WPRmax      =  -20;
input double      WPRmin      =  -80;

int h;

h=iWPR(Symbol(),Period(),WPRperiod);
if(h==INVALID_HANDLE){
   Print("无法加载指标");
   return(INIT_FAILED);
}  

void OnDeinit(const int reason){
   if(h!=INVALID_HANDLE){
      IndicatorRelease(h);
   }
}  

#property indicator_buffers 5

double         wpr[];

SetIndexBuffer(4,wpr,INDICATOR_CALCULATIONS); 

int start;

if(prev_calculated==0){
   start=0;
}
else{
   start=prev_calculated-1;
}

if(CopyBuffer(h,0,0,rates_total-start,wpr)==-1){
   return(0);
}

for(int i=start;i<rates_total;i++){
   HighLowBuffer[i]=EMPTY_VALUE;
   if(wpr[i]>WPRmax){
      HighLowBuffer[i]=high[i];
      HighLowColors[i]=0;
   }
   else if(wpr[i]<WPRmin){
      HighLowBuffer[i]=low[i];
      HighLowColors[i]=1;      
   }      
}

double         dir[]; // 方向
double         lhb[]; // 最后的顶端柱线索引
double         llb[]; // 最后的底端柱线索引

#property indicator_buffers 8

SetIndexBuffer(5,dir,INDICATOR_CALCULATIONS);  
SetIndexBuffer(6,lhb,INDICATOR_CALCULATIONS);   
SetIndexBuffer(7,llb,INDICATOR_CALCULATIONS);    

PlotIndexSetDouble(1,PLOT_EMPTY_VALUE,0); 

lhb[i]=lhb[i-1];      
llb[i]=llb[i-1];
dir[i]=dir[i-1];

if(wpr[i]>WPRmax){
   HighLowBuffer[i]=high[i];
   HighLowColors[i]=0;
   dir[i]=1;
}
else if(wpr[i]<WPRmin){
   HighLowBuffer[i]=low[i];
   HighLowColors[i]=1;      
   dir[i]=-1;
} 

if(dir[i]==1){
   if(dir[i-1]==-1){ 
      // 方向转变上行
   }
   else{
      // 上行走势延续
   }      
}
else if(dir[i]==-1){
   if(dir[i-1]==1){ 
      // 方向转变下行
   }
   else{
      // 下行走势延续
   }      
}

if(dir[i]==1){
   if(dir[i-1]==-1){ 
      // 方向转变上行
      // 搜索最大值
      int hb=i;
      for(int j=i;j>llb[i];j--){
         if(high[j]>high[hb]){
            hb=j;
         }
      }
      //...
   }
   else{
      // 上行走势延续
   }      
}

ZigZagBuffer[hb]=high[hb];
lhb[i]=hb;            
ZigZagColors[hb]=0;

ZigZagBuffer[i]=0;

NewDotTime=time[i];
NewDotBar=hb;

if(NewDotTime==time[i]){
   ZigZagBuffer[NewDotBar]=0;  
}

if(high[i]>ZigZagBuffer[(int)lhb[i]]){ 
   // 删除旧端点
   ZigZagBuffer[(int)lhb[i]]=0;
   // 设置新端点
   ZigZagBuffer[i]=high[i];
   ZigZagColors[i]=0;
   lhb[i]=i;
}

ZigZagBuffer[(int)lhb[i]]=high[(int)lhb[i]];
ZigZagBuffer[(int)llb[i]]=low[(int)llb[i]];  

if(prev_calculated==0){
   start=1;
   lhb[0]=0;
   llb[0]=0;   
   NewDotTime=0; 
}
else{
   start=prev_calculated-1;
}

我们来描述一下枚举:

enum EIType{
   WPR,
   CCI,
   Chaikin, 
   RSI,
   Stochastic
};

声明用来选择振荡器的外部变量:

input EIType               Type        =  WPR;

添加其余振荡器的参数:

// CCI
input int                  CCIperiod   =  14;
input ENUM_APPLIED_PRICE   CCIprice    =  PRICE_TYPICAL;
input double               CCImax      =  100;
input double               CCImin      =  -100;
// Chaikin
input int                  CHfperiod   =  3;
input int                  CHsperiod   =  10;
input ENUM_MA_METHOD       CHmethod    =  MODE_EMA;
input ENUM_APPLIED_VOLUME  CHvolume    =  VOLUME_TICK;
input double               CHmax       =  1000;
input double               CHmin       =  -1000;
// RSI
input int                  RSIperiod   =  14;
input ENUM_APPLIED_PRICE   RSIprice    =  PRICE_CLOSE;
input double               RSImax      =  70;
input double               RSImin      =  30;
// Stochastic
input int                  STperiodK   =  5;  
input int                  STperiodD   =  3;
input int                  STperiodS   =  3;
input ENUM_MA_METHOD       STmethod    =  MODE_EMA;
input ENUM_STO_PRICE       STprice     =  STO_LOWHIGH;
input double               STmax       =  80;
input double               STmin       =  20; 

声明级别的变量:

double max,min;

在 OnStart 函数之初选择一个振荡器:

switch(Type){
   case WPR:
      max=WPRmax;
      min=WPRmin;  
      h=iWPR(Symbol(),Period(),WPRperiod);      
   break;
   case CCI:
      max=CCImax;
      min=CCImin;  
      h=iCCI(Symbol(),Period(),CCIperiod,CCIprice);  
   break;      
   case Chaikin:
      max=CHmax;
      min=CHmin;  
      h=iChaikin(Symbol(),Period(),CHfperiod,CHsperiod,CHmethod,CHvolume);  
   break;          
   case RSI:
      max=RSImax;
      min=RSImin;  
      h=iRSI(Symbol(),Period(),RSIperiod,RSIprice);  
   break;   
   case Stochastic:
      max=STmax;
      min=STmin;  
      h=iStochastic(Symbol(),Period(),STperiodK,STperiodD,STperiodS,STmethod,STprice);  
   break; 
}

if(h==INVALID_HANDLE){
   Print("无法加载指标");
   return(INIT_FAILED);
}

在 OnCalculate() 函数中以 max 和 min 变量替换 WPRmax 和 WPmin 变量。 

开发指标的第三阶段业已完成。 现在，我们可以在指标属性窗口中选择振荡器。 在下面的附件中，此阶段的指标名为 OscZigZagStep3.mq5。

阶段 4 — 开发图形界面

控件初始化。 在 OnInitEvent() 方法中初始化控件。

初始化第一套框架，宽度/高度为 85/97 像素，”Osc Type” 标题宽度为 44 像素:

m_frm1.Init("frame1",85,97,"Osc Type",44);

一组单选按钮位于此框架中。

第二套框架具有相同的尺寸，”Levels” 标题宽度为 32 像素:

m_frm2.Init("frame2",85,97,"Levels",32);

输入级别的字段位于此框架中。

初始化单选按钮组:

m_rg.Init();

向组中添加单选按钮:

m_rg.AddButton(" WPR",0,0);
m_rg.AddButton(" CCI",0,16);
m_rg.AddButton(" Chaikin",0,32);
m_rg.AddButton(" RSI",0,48);            
m_rg.AddButton(" Stochastik",0,64); 

初始化输入上边界和下边界的文本字段:

m_txt_max.Init("max",45,-1," Max");
m_txt_min.Init("min",45,-1," Min");

两个字段的宽度均为 45 像素，允许文本输入 (第三个参数为 -1)，其中一个标签为 “Max”，第二个字段为 — “Min”。

显示控件。 在 OnShowEvent() 方法中，调用所有控件的 Show() 方法并在窗体中设置它们的坐标:

m_frm1.Show(aLeft+10,aTop+10);
m_frm2.Show(aLeft+105,aTop+10);
m_rg.Show(aLeft+17,aTop+20);
m_txt_max.Show(aLeft+115,aTop+30);
m_txt_min.Show(aLeft+115,aTop+50);     

隐藏控件。 在 OnHideEvent() 方法中隐藏所有控件:

m_frm1.Hide();
m_frm2.Hide();            
m_rg.Hide();
m_txt_max.Hide();
m_txt_min.Hide(); 

窗体标题。 在选择不同的振荡器时，最好在窗体标题中显示它们的名称，因此在窗体类的 “public” 部分中，我们添加了一个方法来更改标题中的文本:

void SetCaption(string str){
   m_Caption="ZigZag on "+str;
   ObjectSetString(0,m_Name+"_Caption",OBJPROP_TEXT,m_Caption);
}

创建窗体对象。 创建 CForm 类对象:

CForm form;

窗体事件。 为了令窗体和控件响应用户操作，应该从指标的 OnChartEvent() 函数里调用 Event() 方法。 取决于事件的类型，该方法返回不同的值。 窗体关闭对应于 1。 应从图表中删除指标:

if(form.Event(id,lparam,dparam,sparam)==1){
   ChartIndicatorDelete(0,0,MQLInfoString(MQL_PROGRAM_NAME)); 
   ChartRedraw();
}

控件事件。 单选按钮组事件会改变指标，而更改跨入字段值的事件应替换超买/超卖级别。 在这两种情况下，指标都会全部重新计算。 

在 OnInit() 函数中选择指标的代码部分将被转移到单独的函数中:

bool LoadIndicator(int aType){
   switch(aType){
      case WPR:
         max=WPRmax;
         min=WPRmin;  
         h=iWPR(Symbol(),Period(),WPRperiod);      
      break;
      case CCI:
         max=CCImax;
         min=CCImin;  
         h=iCCI(Symbol(),Period(),CCIperiod,CCIprice);  
      break;      
      case Chaikin:
         max=CHmax;
         min=CHmin;  
         h=iChaikin(Symbol(),Period(),CHfperiod,CHsperiod,CHmethod,CHvolume);  
      break;          
      case RSI:
         max=RSImax;
         min=RSImin;  
         h=iRSI(Symbol(),Period(),RSIperiod,RSIprice);  
      break;   
      case Stochastic:
         max=STmax;
         min=STmin;  
         h=iStochastic(Symbol(),Period(),STperiodK,STperiodD,STperiodS,STmethod,STprice);  
      break; 
   }
   
   if(h==INVALID_HANDLE){
      Print("无法加载指标");
      return(false);
   }   
   
   return(true);
   
}   

它会从 OnInit() 指标函数 (在一开始) 和单选按钮事件里调用。 在 OnInit() 函数中选择指标之后，立即初始化窗体，设置控件的值并显示窗体:

if(!LoadIndicator(Type)){
   return(INIT_FAILED);
}

form.Init(1);
form.m_rg.SetValue(Type);
form.m_txt_max.SetValue(max);   
form.m_txt_min.SetValue(min);  
form.SetCaption(EnumToString(Type));
form.Show(5,20);

在 OnChartEvent() 函数中处理控件事件。 用于更改指标的单选按钮事件:

if(form.m_rg.Event(id,lparam,dparam,sparam)==1){
   
   if(h!=INVALID_HANDLE){
      IndicatorRelease(h);
      h=INVALID_HANDLE;
   }      
   
   if(!LoadIndicator(form.m_rg.Value())){
      Alert("无法加载指标");
   }
   
   form.m_txt_max.SetValue(max);   
   form.m_txt_min.SetValue(min);    

   EventSetMillisecondTimer(100);
}

首先，通过 IndicatorRelease() 函数释放指标句柄，然后选择新指标，为输入字段设置新值并启动计时器。 由于在重新计算指标时可能出现数据更新错误，因此必须使用计时器。 在此情况下，您需要重复尝试重新计算，直到成功为止。

修改级别:

if(form.m_txt_max.Event(id,lparam,dparam,sparam)==1 ||
   form.m_txt_min.Event(id,lparam,dparam,sparam)==1
){
   max=form.m_txt_max.ValueDouble();
   min=form.m_txt_min.ValueDouble();      
   EventSetMillisecondTimer(100);
}

输入字段事件为 “min” 和 “max” 变量分配新值，并启动计时器。  

在 OnTimer() 函数中重新计算指标。 如果成功，计时器关闭，指标将照常继续工作 — 依据逐笔报价。 在上述文章《拥有图形界面的通用振荡器》一文中详细阐述了指标重新计算所需的所有动作。 所以，我们在此仅考查有本质差异的部分。 通用振荡器在类方法中计算，且不需要价格数据。 在此，我们需要调用 OnCalculate() 函数并传递包含价格的数组。 声明数组:

datetime time[];
double open[];
double high[];
double low[];
double close[];
long tick_volume[];
long volume[];
int spread[];

获得柱线数量:

int bars=Bars(Symbol(),Period());
      
if(bars<=0){
   return;
}

我们不需要所有价格数据来构建之字折线。 只需要三个数组: ‘时间’，’最高价’ 和 ‘最低价’。 这些是我们复制的数组:

if(CopyTime(Symbol(),Period(),0,bars,time)==-1){
   return;
}

if(CopyHigh(Symbol(),Period(),0,bars,high)==-1){
   return;
}      

if(CopyLow(Symbol(),Period(),0,bars,low)==-1){
   return;
} 

在测试指标时，我们遇到了一个问题: 复制的数据数量有时小于自 Bars() 函数获得的柱线数量。 指标缓冲区的大小对应于 Bars() 函数值。 因此，为了正确显示指标，必须增加复制数据的数组，同时将数据附加到它们的末尾:

if(ArraySize(time)<bars){
   int sz=ArraySize(time);
   ArrayResize(time,bars);
   for(int i=sz-1,j=bars-1;i>=0;i--,j--){
      time[j]=time[i];
   }   
}

if(ArraySize(high)<bars){
   int sz=ArraySize(high);
   ArrayResize(high,bars);
   for(int i=sz-1,j=bars-1;i>=0;i--,j--){
      high[j]=high[i];
   }
}      

if(ArraySize(low)<bars){
   int sz=ArraySize(low);
   ArrayResize(low,bars);
   for(int i=sz-1,j=bars-1;i>=0;i--,j--){
      low[j]=low[i];
   }
} 

现在，我们只需要调用 OnCalculate() 函数:

int rv=OnCalculate(
            bars,
            0,
            time,
            open,
            high,
            low,
            close,
            tick_volume,
            volume,
            spread
);

如果 OnCalculte() 函数没有出错，则禁用计时器: 

if(rv!=0){
   ChartRedraw();     
   EventKillTimer();
   form.SetCaption(EnumToString((EIType)form.m_rg.Value()));
}

OnTimer() 函数的完整代码，以及完整的指标可以在附带的 OscZigZagStep4.mq5 文件中看到。

在图表上启动指标时，带有控件的窗体应显示在左上角 (图例 8)。

图例 8. 阶段 4 的图形界面

这些文件需放在正确的文件夹中。 它们应保存到终端的相同文件夹中。 在 MQL5/Indicators 中, 有这些与指标开发阶段相对应的文件: OscZigZagStep1.mq5, OscZigZagStep2.mq5, ОscZigZagStep3.mq5 和 OscZigZagStep4.mq5。

在 MQL5/Includes 中, 有 IncGUI_v4.mqh 文件，它在 OscZigZagStep4 指标里用于开发图形界面。