MT4实例荟萃(入门者整理).doc

MT4实例荟萃实例一、画一条指标线2实例二、MT4的报警6实例三、MT4编程实例：会变色的均线9实例四、顶底判断(2011-04-04 03:52:29)15实例五、 Pivot Point指标源码.mq418实例六、双色MACD指标MACD_Colored_v102.mq422实例七、Zigzag在Mt4中的代码27实例一、画一条指标线要画指标线，只要在程序中写明以下几点就可以了：第一、明确指标线所在窗口，是主图还是副图第二、要建立数组，用以保存指标线在各个位置的值。第三、要建立指标线与数组的对应关系，哪个数组对应哪条指标线第四、要明确指标线的线型，是曲线还是柱线或者是箭头第五、如果指标线是箭头，还要说明是哪种箭头第六、给数组赋值 其中：第一、二条写在文件头部中，第三、四、五条写在init()函数中（init函数仅在指标加载时运行一次）第六条写在start()函数中（start函数在数据发动变动时运行，变动一次运行一次）下面以MACD为例说明我们知道，MACD指标由二条曲线和一组红绿柱线组成。（下图一）其中：白线是二根均线的差；紫线是白线的移动平均线；红绿柱线则是白线和紫线的差，白线上穿紫线，出现红柱，下穿则出现绿柱。我们从简单入手，先去除紫线和红绿柱线，仅保留其中的那根白线，来看白线是怎样画出来的。下面是全部语句：#property indicator_separate_window#property indicator_color1 White#property indicator_level1 0extern int FMA=12;extern int SMA=26;double buf;int init()SetIndexBuffer(0,buf);SetIndexStyle(0,DRAW_LINE);return(0);int start()int limit=Bars-IndicatorCounted();for(int i=0; i<limit; i+)buf=iMA(NULL,0,FMA,0,1,0,i)-iMA(NULL,0,SMA,0,1,0,i);return(0);说明如下：=以下为上述语句的简要说明#property indicator_separate_window指标放在副图#property indicator_color1 White第一条指标线为白色#property indicator_level1 0在副图中零值位置上画一条水平横线，extern int FMA=12;extern int SMA=26;设立二个整数型变量，默认值为12和26，允许外部修改值double buf;设立一个数组int init()初始化函数。该函数在指标加载时只运行一次。init是系统默认的函数名，但使用时仍需要进行创设，所以要加定义符intSetIndexBuffer(0,buf);设置数组buf为第一条指标线SetIndexStyle(0,DRAW_LINE);设置第一条指标线线型为连续曲线return(0);函数结束语句int start()指标触发函数。与init函数不同，该函数在有数据变化时被触发，如果数据被不断更新，则该函数将不断执行。start也是系统默认的函数名，但使用时也仍然需要进行创设，所以也要加定义符intint limit=Bars-IndicatorCounted();自定义一个变量limit，并赋值Bars是图表中的柱数IndicatorCounted()缓存中的柱数，就是已经计算过的有值的柱数这样limit的值就是未经计算的柱数，这样就可以起到优化程序的作用。for(int i=0; i<limit; i+)循环语句。循环从i=0开始，每循环一次i值增加1，一直循环到i<limit不满足时结束循环由于循环变量i为一个新变量，所以要先定义，加上整型变量定义符int下面大括中为循环体，此例中只一条语句buf=iMA(NULL,0,FMA,0,1,0,i)-iMA(NULL,0,SMA,0,1,0,i);给数组buf赋值，其值分别为相应位置上两条均线的差i是水平位置序号值，即烛柱从右到左的序号，右边第一个烛柱序号为0return(0);start函数结束实例二、MT4的报警报警功能是MT4的一大特色。它可以在预定的条件达到时，发出警报。与指标画线相比，报警语句显得非常简单，只要在判断语句中加一个报警语句即可报警方式有：弹出窗口报警、音乐报警、邮件报警等。如果邮箱开通了手机短信通知，则邮件报警的内容会即时转发到手机上。1、弹出窗口报警：当(条件达到)执行此语句时，以弹出窗口警告。格式：Alert(内容1,内容2,内容3,内容4);报警内容为字符串型，内容之间加逗号例如：Alert( Symbol(),"4小时图MACD上穿零轴");2、音乐报警：当(条件达到)执行此语句时，播放一段音乐。格式：PlaySound("音乐文件名.wav");文件类型为wav格式，并且保存在C:Program FilesMetaTrader4sounds目录中文件名加引号3、邮件报警：当(条件达到)执行此语句时，发送一个邮件。（收发件人地址在MT4系统中设置详见MT4编程实例1：一个简单的小程序，让你的手机摇身变成外汇行情接收机）格式：SendMail(标题1+标题2, 内容1+内容2);标题之间以加号连接，内容之间也以加号连接邮件标题和邮件内容以逗号间隔下面是价格穿越某均线报警举例+-#property indicator_chart_windowextern int 警戒均线=20;int mark=0;int start()if( iHigh(0,0,0) >= iMA(0,0,警戒均线,0,MODE_SMA,PRICE_CLOSE,0)&& iHigh(0,0,1) < iMA(0,0,警戒均线,0,MODE_SMA,PRICE_CLOSE,1)&& mark != 1 )Alert(Symbol(),"向上触及30均线");mark = 1;if( iLow(0,0,0) <= iMA(0,0,警戒均线,0,MODE_SMA,PRICE_CLOSE,0)&& iLow(0,0,1) > iMA(0,0,警戒均线,0,MODE_SMA,PRICE_CLOSE,1)&& mark != 2 )Alert(Symbol(),"向下触及",警戒均线,"均线");mark = 2;return(0);+-部分语句说明：#property indicator_chart_window此句是把程序放在主图，当然这此例中放在副图也一样extern int 定义一个外部参数变量，整数型，允许外部值修改int 定义一个整数型变量int start() 定义触发函数if() 判断iHigh() 最高价值函数iLow() 最低价值函数iMA() 移动平均线值函数Alert() 报警函数Symbol() 商品名称函数&& 逻辑运算符“并且”!= 逻辑运算符“不等于”MODE_SMA 简单移动平均模式PRICE_CLOSE 以收盘价计算再说一下自定义变量mark的作用：mark的初值是0，当上穿报警时给mark赋值1，当下穿报警时给mark赋值2。这样当mark的值为1时，说明已经对上穿报过警了，就不能再次对上穿报警；当mark的值为2时，说明已经对下穿报过警了，就不能再次对下穿报警。这样就起到了消除重复报警的作用。实例三、MT4编程实例：会变色的均线窗体顶端窗体底端 本站搜索更多关于“IndicatorCounted”的内容下面这个是示意图：均线会变色，看起来很神秘，但原理其实很简单：这里实际上有两条均线，一条红线，一条绿线：当价格在均线上方时，红线显示，绿线隐藏；当价格在均线下方时，红线隐藏，绿线显示，所以看起来就只是一条会变色的均线。要隐藏一条指标线中的其中一段，也很简单，只要把这一段指标线的值赋为空值（EMPTY_VALUE）就行了。说说容易，但实际操作的时候，我们又遇到了一个小问题，那就是红绿转换点的“断点”问题，红线和绿线不连续了。图：这个问题着实困扰了我好一阵，后来终于想通了。原来，画线的条件是：前后两个时点上都必须有值，才能画出线来。而上图中2和3之间应该画上红线，但在3点位上，红线的值为空，所以，红线画不出来。要让红线、绿线连续，必须使3点位上，既有绿线值又有红线值，这样2和3之间才能出现红线，红线绿才会连续。为了做到这一点，我们在给指标线循环赋值的时候：1、在 i 时点上，除了给 i 时点赋值，同时还要给 i+1时点赋同色值（以上图为例：我们在给3时点赋绿线值时，同时给4时点赋绿线值；在给2时点赋红线值时，同时再给3点赋红线值；这样3时点上就既有红线值，又有绿线值）；2、赋值的顺序为从左向右，即递减循环，以避免前一操作所赋的值被清空。这样我们的目的就达到了。下面这是经过测试的源代码:1.2. -3. #property indicator_chart_window4. #property indicator_buffers 25. #property indicator_color1 Red6. #property indicator_color2 Green7. extern int变色均线=18;8. double duo;9. double kong;10. int init()11. 12. SetIndexBuffer(0,duo);13. SetIndexBuffer(1,kong);14. SetIndexStyle(0,DRAW_LINE);15. SetIndexStyle(1,DRAW_LINE);16. SetIndexDrawBegin(0,变色均线);17. SetIndexDrawBegin(1,变色均线);18. IndicatorDigits(Digits);19. return(0);20. 21. int start()22. 23. double temp0,temp1;24. int limit;25. int counted_bars=IndicatorCounted();26. if(counted_bars0) counted_bars-;28. limit=Bars-counted_bars;29. for(int i=limit; i=0; i-)30. 31. duoi=EMPTY_VALUE;32. kongi=EMPTY_VALUE;33. temp0=iMA(NULL,0,变色均线,0,MODE_SMA,PRICE_CLOSE,i);34. temp1=iMA(NULL,0,变色均线,0,MODE_SMA,PRICE_CLOSE,i+1);35. if(iClose(NULL,0,i)=iMA(NULL,0,变色均线,0,MODE_SMA,PRICE_CLOSE,i)36. duoi=temp0; duoi+1=temp1;37. elsekongi=temp0; kongi+1=temp1;38. 39. return(0);40. 41. -复制代码当然，上面这个是以价格在均线上下方为条件的，我们也可以以MACD、KDJ、RSI等指标作为均线变色的条件。我们还可以更进一步，把双色线改为三色线等等=语句简要解释如下：=#property indicator_chart_window指标放在主图#property indicator_buffers 2设置指标线数组为2个#property indicator_color1 Red#property indicator_color2 Green设置第一条指标线颜色值为Red，第二条颜色值为Greenextern int变色均线=18;设立一个自定义变量,允许外部值修改,整数形,变量名为变色均线,默认值18double duo;设立一个自定义数组,双精度型，名称为duo该数组在后面用于存储红线数据double kong;设立一个自定义数组,双精度型，名称为kong该数组在后面用于存储绿线数据int init()设立初始化函数init。init为系统规定函数名，函数内容自定义。该函数在指标被加载时运行一次 SetIndexBuffer(0,duo); SetIndexBuffer(1,kong); 设置第一、二条指标线的数组为duo和kong SetIndexStyle(0,DRAW_LINE); SetIndexStyle(1,DRAW_LINE); 设置第一、二条指标线的样式，线型为连续曲线 SetIndexDrawBegin(0,变色均线); SetIndexDrawBegin(1,变色均线); 设置第一、二条指标线的最左边的起始划线位置 IndicatorDigits(Digits); 设置指标精确到的小数位数 Digits是当前汇率小数位，日系Digits=2，其他币对Digits=4 return(0); init函数结束，返回零值int start()设立触发函数start。start为系统规定函数名，函数内容自定义。当数据变动时，start函数被触发 double temp0,temp1; 设立双精度型自定义变量temp0、temp1 int limit; 设立自定义变量limit，整数型 int counted_bars=IndicatorCounted(); 设立整数型自定义变量counted_bars，并将IndicatorCounted()的值赋给counted_bars IndicatorCounted()为缓存数，即已经计算过值的烛柱数 if(counted_bars0) counted_bars-; 如果counted_bars值大于零，则counted_bars值减掉1。这是为了配合下一句，以避免limit相差1而出错 limit=Bars-counted_bars; 给limit赋值 Bars为图表中的烛柱数 counted_bars为缓存数，即已经运算过的烛柱数 这样limit的值就是未经运算的烛柱数 这样做的目的是避免重复运算，优化程序 for(int i=limit; i=0; i-) 循环语句，括号中有三个语句： 第一句int i=limit; 表示循环从i=limit开始 第二句i=0; 这是循环的条件，如果条件满足则执行大括号中的循环体，如果条件不满足，则中止循环，跳到大括号下面的语句执行 第三句i-，这是循环步调控制语句，每循环一次后执行一次此语句。 i-相当于i=i-1，即i值在原有数值上减少1 duo=EMPTY_VALUE; kong=EMPTY_VALUE; 给数组duo和kong在i位置上赋空值 EMPTY_VALUE：空值 temp0=iMA(NULL,0,变色均线,0,MODE_SMA,PRICE_CLOSE,i); temp1=iMA(NULL,0,变色均线,0,MODE_SMA,PRICE_CLOSE,i+1); 把均线在i和i+1位置上均线值，分别赋给temp0和temp1 这是为了使后面的语句看起来简洁 if(iClose(NULL,0,i)=iMA(NULL,0,变色均线,0,MODE_SMA,PRICE_CLOSE,i) 判断条件语句：如果价格高于均线 duo=temp0; duoi+1=temp1; 判断执行语句：给数组元素duo、duoi+1分别赋值 elsekong=temp0; kongi+1=temp1; 如果判断条件不成立，即价格低于均线：则给数组元素kong、kongi+1分别赋值 return(0); start函数结束，返回零值实例四、顶底判断(2011-04-04 03:52:29)分类：默认分类#property copyright Copyright ?2004, MetaQuotes Software Corp.#property link /#property indicator_separate_window#property indicator_buffers 4#property indicator_color1 Red#property indicator_color2 Lime#property indicator_color3 Black#property indicator_color4 Yellowdouble ID320329;double VARA;double VARtemp;double VAR9;double HIST_GH,HIST_GL;double HIST_RH;int init() IndicatorBuffers(8); IndicatorDigits(Digits + 1); SetIndexStyle(0, DRAW_HISTOGRAM,EMPTY,5); SetIndexStyle(1, DRAW_HISTOGRAM,EMPTY,5); SetIndexStyle(2, DRAW_HISTOGRAM,EMPTY,5); SetIndexStyle(3, DRAW_LINE,EMPTY,1);/SetIndexStyle(2, DRAW_HISTOGRAM,EMPTY,2); SetIndexBuffer(0, VAR9); SetIndexBuffer(1, VARA); SetIndexBuffer(2,HIST_GL); SetIndexBuffer(3, ID320329); SetIndexBuffer(4, VARtemp); SetIndexLabel(0, ddpd); SetIndexLabel(1, Signal); SetIndexLabel(2, main); return (0);int start() double VAR7; double VAR8; double VAR6; double lda_326; double lda_366; int i; int li_4 = IndicatorCounted(); if (li_4 0) li_4-; int li_0 = Bars - li_4; / if(TimeCurrent()D05.04.2011 ) return(0); /* for (i = 0; i li_0; i+) VAR7 = LowArrayMinimum(Low, 20, i); VAR8 = HighArrayMaximum(High, 20, i); VARtempi = 100.0 * (Closei - VAR7) / (VAR8 - VAR7); for (i = 0; i li_0; i+) g_ibuf_88i = iMAOnArray(VARtemp, Bars, 3, 0, MODE_EMA, i); for (i = 0; i li_0; i+) g_ibuf_92i = iMAOnArray(g_ibuf_88, Bars, 3, 0, MODE_EMA, i) / 28.57; for (i = 0; i li_0; i+) g_ibuf_96i = 3.0 * g_ibuf_92i - 2.0 * iMAOnArray(g_ibuf_92, Bars, 5, 0, MODE_SMA, i);*/ for (i = 0; i li_0; i+) VAR6 = (2.0 * Closei + Highi + Lowi) / 4.0; VAR7 = LowArrayMinimum(Low, 13, i); VAR8 = HighArrayMaximum(High, 13, i); VARtempi = 100.0 * (VAR6 - VAR7) / (VAR8 - VAR7); for (i = 0; i li_0; i+) VAR9i = iMAOnArray(VARtemp, Bars, 13, 0, MODE_EMA, i); for (i = 0; i li_0; i+) VARtempi = 0.667 * VAR9i+1 + 0.333 * VAR9i; for (i = 0; i li_0; i+) VARAi = iMAOnArray(VARtemp, Bars, 2, 0, MODE_EMA, i); for (i = 0; i li_0; i+) VARtempi = VAR9i+2 *0.382 + 0.618 * VAR9i; ID320329i = iMAOnArray(VARtemp, Bars, 12, 0, MODE_EMA, i); for (i = 0; i VARAi)HIST_GLi=VARAi;elseHIST_GLi=VAR9i; return (0);实例五、 Pivot Point指标源码.mq4/+-+/| Pivot.mq4 |/| Copyright ?2004, Poul_Trade_Forum |/| Aborigen |/| / |/+-+#property copyright Poul Trade Forum#property link /#property indicator_chart_window/#property indicator_separate_window#property indicator_buffers 7#property indicator_color1 Orange#property indicator_color2 DarkBlue#property indicator_color3 Maroon#property indicator_color4 DarkBlue#property indicator_color5 Maroon#property indicator_color6 Green#property indicator_color7 Green/- input parameters/- buffersdouble PBuffer;double S1Buffer;double R1Buffer;double S2Buffer;double R2Buffer;double S3Buffer;double R3Buffer;string Pivot=Pivot Point,Sup1=S 1, Res1=R 1;string Sup2=S 2, Res2=R 2, Sup3=S 3, Res3=R 3;int fontsize=10;double P,S1,R1,S2,R2,S3,R3;double LastHigh,LastLow,x;/+-+/| Custor indicator deinitialization function |/+-+int deinit()/- TODO: add your code hereObjectDelete(Pivot);ObjectDelete(Sup1);ObjectDelete(Res1);ObjectDelete(Sup2);ObjectDelete(Res2);ObjectDelete(Sup3);ObjectDelete(Res3);/-return(0);/+-+/| Custom indicator initialization function |/+-+int init()string short_name;/- indicator lineSetIndexStyle(0,DRAW_LINE,0,2,Orange);SetIndexStyle(1,DRAW_LINE,0,2,DarkBlue);SetIndexStyle(2,DRAW_LINE,0,2,Maroon);SetIndexStyle(3,DRAW_LINE,0,2,DarkBlue);SetIndexStyle(4,DRAW_LINE,0,2,Maroon);SetIndexStyle(5,DRAW_LINE,0,2,Green);SetIndexStyle(6,DRAW_LINE,0,2,Green);SetIndexBuffer(0,PBuffer);SetIndexBuffer(1,S1Buffer);SetIndexBuffer(2,R1Buffer);SetIndexBuffer(3,S2Buffer);SetIndexBuffer(4,R2Buffer);SetIndexBuffer(5,S3Buffer);SetIndexBuffer(6,R3Buffer);/- name for DataWindow and indicator subwindow labelshort_name=Pivot Point;IndicatorShortName(short_name);SetIndexLabel(0,short_name);/-SetIndexDrawBegin(0,1);/-/-return(0);/+-+/| Custom indicator iteration function |/+-+int start()int counted_bars=IndicatorCounted();int limit, i;/- indicator calculationif (counted_bars=0)x=Period();if (x 240) return(-1);ObjectCreate(Pivot, OBJ_TEXT, 0, 0,0);ObjectSetText(Pivot, Pivot Point,fontsize,Arial,Red);ObjectCreate(Sup1, OBJ_TEXT, 0, 0, 0);ObjectSetText(Sup1, S 1,fontsize,Arial,Red);ObjectCreate(Res1, OBJ_TEXT, 0, 0, 0);ObjectSetText(Res1, R 1,fontsize,Arial,Red);ObjectCreate(Sup2, OBJ_TEXT, 0, 0, 0);ObjectSetText(Sup2, S 2,fontsize,Arial,Red);ObjectCreate(Res2, OBJ_TEXT, 0, 0, 0);ObjectSetText(Res2, R 2,fontsize,Arial,Red);ObjectCreate(Sup3, OBJ_TEXT, 0, 0, 0);ObjectSetText(Sup3, S 3,fontsize,Arial,Red);ObjectCreate(Res3, OBJ_TEXT, 0, 0, 0);ObjectSetText(Res3, R 3,fontsize,Arial,Red);if(counted_bars 0) counted_bars-;limit=(Bars-counted_bars)-1;for (i=limit; i =0;i-)if (Highi+1 LastHigh) LastHigh=Highi+1;if (Lowi+1LastLow) LastLow=Lowi+1;if (TimeDay(Time)!=TimeDay(Timei+1)P=(LastHigh+LastLow+Closei+1)/3;R1 = (2*P)-LastLow;S1 = (2*P)-LastHigh;R2 = P+(LastHigh - LastLow);S2 = P-(LastHigh - LastLow);R3 = (2*P)+(LastHigh-(2*LastLow);S3 = (2*P)-(2* LastHigh)-LastLow);LastLow=Open; LastHigh=Open;ObjectMove(Pivot, 0, Time,P);ObjectMove(Sup1, 0, Time,S1);ObjectMove(Res1, 0, Time,R1);ObjectMove(Sup2, 0, Time,S2);ObjectMove(Res2, 0, Time,R2);ObjectMove(Sup3, 0, Time,S3);ObjectMove(Res3, 0, Time,R3);PBuffer=P;S1Buffer=S1;R1Buffer=R1;S2Buffer=S2;R2Buffer=R2;S3Buffer=S3;R3Buffer=R3;/-return(0);/+-+实例六、双色MACD指标MACD_Colored_v102.mq42011-04-20 13:14双色MACD指标，转载。/+-+/| Custom MACD.mq4 |/+-+#property copyright Copyright ?2007, Herb Spirit, Inc.#property link /mql#define INDICATOR_NAME MACD_Colored#define INDICATOR_VERSION v102/- indicator settings#property indicator_separate_window#property indicator_buffers 4#property indicator_color1 Lime#property indicator_color2 Red#property indicator_color3 Yellow#property indicator_color4 Silver#property indicator_style4 STYLE_DOT#property indicator_level1 0 #property indicator_level2 0 #property indicator_level3 0 #property indicator_level4 0 #property indicator_level5 0 #property indicator_level6 0 #property indicator_level7 0 #property indicator_levelcolor Gray#property indicator_levelstyle STYLE_DOT/- indicator parametersextern int FastEMA=5;extern int SlowEMA=13;extern int SignalSMA=1;extern double MinDiff=0;extern int FontSize=8;extern color FontColor=Silver;/- indicator buffersdouble MacdBuffer;double MacdBufferUp;double MacdBufferDn;double MacdBufferEq;double SignalBuffer;/bool firsttime=true;/+-+/| Custom indicator initialization function |/+-+int init() /- drawing settings SetIndexStyle(0,DRAW_HISTOGRAM); SetIndexStyle(1,DRAW_HISTOGRAM); SetIndexStyle(2,DRAW_HI