MT4编程实例.doc

MT4编程实例：会变色的均线这里实际上有两条均线，一条红线，一条绿线：当价格在均线上方时，红线显示，绿线隐藏；当价格在均线下方时，红线隐藏，绿线显示，所以看起来就只是一条会变色的均线。要隐藏一条指标线中的其中一段，也很简单，只要把这一段指标线的值赋为空值（EMPTY_VALUE）就行了。说说容易，但实际操作的时候，我们又遇到了一个小问题，那就是红绿转换点的“断点”问题，红线和绿线不连续了。图：这个问题着实困扰了我好一阵，后来终于想通了。原来，画线的条件是：前后两个时点上都必须有值，才能画出线来。而上图中2和3之间应该画上红线，但在3点位上，红线的值为空，所以，红线画不出来。要让红线、绿线连续，必须使3点位上，既有绿线值又有红线值，这样2和3之间才能出现红线，红线绿才会连续。为了做到这一点，我们在给指标线循环赋值的时候：1、在 i 时点上，除了给 i 时点赋值，同时还要给 i+1时点赋同色值（以上图为例：我们在给3时点赋绿线值时，同时给4时点赋绿线值；在给2时点赋红线值时，同时再给3点赋红线值；这样3时点上就既有红线值，又有绿线值）；2、赋值的顺序为从左向右，即递减循环，以避免前一操作所赋的值被清空。这样我们的目的就达到了。下面这是经过测试的源代码-#property indicator_chart_window#property indicator_buffers 2#property indicator_color1 Red#property indicator_color2 Greenextern int 变色均线=18;double duo;double kong;int init() SetIndexBuffer(0,duo); SetIndexBuffer(1,kong); SetIndexStyle(0,DRAW_LINE); SetIndexStyle(1,DRAW_LINE); SetIndexDrawBegin(0,变色均线); SetIndexDrawBegin(1,变色均线); IndicatorDigits(Digits); return(0); int start() double temp0,temp1; int limit; int counted_bars=IndicatorCounted(); if(counted_bars0) counted_bars-; limit=Bars-counted_bars; for(int i=limit; i=0; i-) duoi=EMPTY_VALUE; kongi=EMPTY_VALUE; temp0=iMA(NULL,0,变色均线,0,MODE_SMA,PRICE_CLOSE,i); temp1=iMA(NULL,0,变色均线,0,MODE_SMA,PRICE_CLOSE,i+1); if(iClose(NULL,0,i)=iMA(NULL,0,变色均线,0,MODE_SMA,PRICE_CLOSE,i) duoi=temp0; duoi+1=temp1; else kongi=temp0; kongi+1=temp1; return(0); -当然，上面这个是以价格在均线上下方为条件的，我们也可以以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 duoi=EMPTY_VALUE; kongi=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) 判断条件语句：如果价格高于均线 duoi=temp0; duoi+1=temp1; 判断执行语句：给数组元素duoi、duoi+1分别赋值 else kongi=temp0; kongi+1=temp1; 如果判断条件不成立，即价格低于均线：则给数组元素kongi、kongi+1分别赋值 return(0); start函数结束，返回零值 MT4编程实例：在欧元图上显示英磅的RSI指标作者：秃鹫 来自：韬客外汇论坛下面这个图是AUD图上，叠加了英磅的RSI指标。（当然也可以不叠加，分两个窗口）从RSI指标图上我们看到，英磅强势，而澳元很弱下面是指标源码-#property indicator_separate_window#property indicator_buffers 1#property indicator_color1 Aqua#property indicator_level1 30#property indicator_level2 70extern int RSI=12;extern string 商品=GBPUSD;double ind_buffer;int init() SetIndexBuffer(0,ind_buffer); SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,1); IndicatorShortName(RSI(+商品+, +RSI+); return(0); int start() int limit; int counted_bars=IndicatorCounted(); if(counted_bars0) counted_bars-; limit=Bars-counted_bars; for(int i=0; ilimit; i+) ind_bufferi=iRSI(商品,0,RSI,PRICE_CLOSE,i); return(0); -下面是指标叠加的操作方法：下面是指标叠加的操作方法： 当然这里用的是RSI指标，别的指标如KDJ、威廉等指标也可以类似操作，只要把上面源码中的取值函数和参数换一个行了。=语句简要解释如下：=#property indicator_separate_window指标放在副图#property indicator_buffers 1设置指标线数组为1个#property indicator_color1 Aqua设置第一条指标线颜色值为Aqua，即介于蓝绿之间的一种颜色#property indicator_level1 30在副图中，30值位置上画一条水平直线#property indicator_level2 70在副图中，70值位置上画一条水平直线extern int RSI=12;设立一个自定义变量,允许外部值修改,整数型,变量名为RSI,默认值12extern string 商品=GBPUSD;设立一个自定义变量,允许外部值修改,字符串型,变量名为商品,默认值GBPUSDdouble ind_buffer;设立一个自定义数组,双精度型int init()设立初始化函数init。init为系统规定函数名，函数内容自定义。该函数在指标被加载时运行一次 SetIndexBuffer(0,ind_buffer); 设置第一条指标线的数组为ind_buffer SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,1); 设置第一条指标线的样式，DRAW_LINE表示连续曲线，STYLE_SOLID表示实心线，1号粗线 IndicatorShortName(RSI(+商品+, +RSI+); 设置指标线的显示简称 return(0); 初始化函数结束 int start()设立触发函数start。start为系统规定函数名，函数内容自定义。当数据变动时，start函数被触发 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=0; ilimit; i+) 循环语句，括号中有三个语句： 第一句int i=0; 表示循环从i=0开始 第二句i0) counted_bars-; limit=Bars-counted_bars-均线; for(int i=0; itemp0 & Closei+1temp1) mki=temp0; if(Closeitemp1) mki=temp0; return(0); /源码到此已结束=语句简要解释如下：=#property indicator_chart_window指标放在主图#property indicator_buffers 1 设置指标线数为1条#property indicator_color1 Yellow设置第一条指标线颜色为黄色extern int 均线=10;设立一个自定义变量,允许外部值修改,整数形,变量名为均线,默认值10double mk;设立一个自定义数组,双精度型double temp0,temp1;设立二个自定义变量,双精度型,变量名为temp0、temp1int init()设立初始化函数init。init为系统规定函数名，函数内容自定义。该函数在指标被加载时仅运行一次 IndicatorBuffers(1); 指标线数量为1条 SetIndexBuffer(0,mk); 第一条指标线的数组为mk SetIndexStyle(0,DRAW_ARROW); 第一条指标线的线型为箭头符号 SetIndexArrow(0,204); 第一条指标线的箭头符号为第204种符号，如果换一个编号，那出现的就是另一种符号。箭头符号的编码详见MT4编程参考 IndicatorDigits(Digits); 设置指标线的小数位数 Digits=当前汇率的小数位数，如日元叉盘Digits=2，其他币对Digits=4 return(0); 函数结束，返回零值 int start()设立触发函数start。start为系统规定函数名，函数内容自定义。当数据变动时，start函数被触发 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=0; ilimit; i+) 循环语句，括号中有三个语句： 第一句int i=0; 表示循环从i=0开始 第二句itemp0 & Closei+1temp1) mki=temp0; 条件判断语句。如果在i位置上价格大于均线，并且在(i+1)位置上价格小于均线(即价格上穿均线)，则给数组mk在i位置上赋该位置的均线值 Closei：在i位置上收盘价。 &：逻辑运算符“并且” if(Closeitemp1) mki=temp0; 与上一句相似 return(0); start函数结束语句把所有时段MACD一起显示上一篇 / 下一篇 2008-04-12 14:14:46 / 个人分类：MT4查看( 625 ) / 评论( 6 ) / 评分( 5 / 0 )很久之前就有网友叫我写这个指标，并上传来能把所有时段KDJ一起显示的指标源码，说实在的，当时我第一次看到这个指标时相当吃惊，非常佩服源码作者能有这样的作品，也很希望自己能读懂这段源码增长自己见识，无奈不是专业出身，粗粗看了几遍没能理清这个程序编写思路，由于工作较忙的原因，这件事被搁在一旁。在年终结算工作基本完成的今天，我终于有时间静下心来认真阅读这段程序源码，边阅读边学习，在学习过程中也弥补了不少知识盲点。在弄明白了源码思路之后，感觉眼界大开，对程序构思惊叹不已。思路一通，问题就迎刃而解了。下面是参照All.Stochastic指标而编写的All.MACD指标截图和源码/=/这是把所有时段MACD一起显示的指标源码/由韬客秃鹫对All.Stochastic指标修改而来/=#define indicatorName All MACD#property indicator_separate_window#property indicator_buffers 4#property indicator_color1 DarkGray#property indicator_color2 Red#property indicator_color3 Green#property indicator_color4 Yellow#property indicator_level1 0#property indicator_levelcolor DimGrayextern int FastEMA=12;extern int SlowEMA=26;extern int SignalSMA=9;extern string timeFrames = M1;M5;M15;M30;H1;H4;D1;W1;MN;extern int barsPerTimeFrame = 50;extern bool shiftRight = False;extern bool currentFirst = False;extern color txtColor = Silver;extern color separatorColor = Red;int multiple9=128,128,64,32,16,8,4,2,1;double MacdBuffer0;double MacdBuffer1;double MacdBuffer2;double SignalBuffer;string shortName;string labels;int periods;int Shift;int init() if (shiftRight) Shift = 1; else Shift = 0; barsPerTimeFrame= MathMax(barsPerTimeFrame,15); shortName = MACD2线3色(+FastEMA+,+SlowEMA+,+SignalSMA+); IndicatorShortName(shortName); SetIndexBuffer(0,MacdBuffer0); SetIndexBuffer(1,MacdBuffer1); SetIndexBuffer(2,MacdBuffer2); SetIndexBuffer(3,SignalBuffer); SetIndexStyle(0,DRAW_LINE); SetIndexStyle(1,DRAW_HISTOGRAM); SetIndexStyle(2,DRAW_HISTOGRAM); SetIndexStyle(3,DRAW_LINE); SetIndexDrawBegin(3,SignalSMA); IndicatorDigits(Digits+1); SetIndexShift(0,Shift*(barsPerTimeFrame+1); SetIndexShift(1,Shift*(barsPerTimeFrame+1); SetIndexShift(2,Shift*(barsPerTimeFrame+1); SetIndexShift(3,Shift*(barsPerTimeFrame+1); SetIndexLabel(0,MACD); SetIndexLabel(1,MACD); SetIndexLabel(2,MACD); SetIndexLabel(3,Signal); timeFrames = StringUpperCase(StringTrimLeft(StringTrimRight(timeFrames); if (StringSubstr(timeFrames,StringLen(timeFrames),1) != ;) timeFrames = StringConcatenate(timeFrames,;); int s = 0; int i = StringFind(timeFrames,;,s); int time; string current; while (i 0) current = StringSubstr(timeFrames,s,i-s); time = stringToTimeFrame(current); if (time 0) ArrayResize(labels ,ArraySize(labels)+1); ArrayResize(periods,ArraySize(periods)+1); labelsArraySize(labels)-1 = current; periodsArraySize(periods)-1 = time; s = i + 1; i = StringFind(timeFrames,;,s); if(currentFirst) for (i=1;i0; k-) labelsk = labelsk-1; periodsk = periodsk-1; labels0 = tmpLbl; periods0 = tmpPer; return(0);int deinit() for(int l=0;lArraySize(periods);l+) ObjectDelete(indicatorName+l); ObjectDelete(indicatorName+l+label); return(0);int start() string separator; int window=WindowFind(shortName); int k=0; for(int p=0; pArraySize(periods);p+) for(int i=0; i=0) MacdBuffer1k=temp;MacdBuffer2k=EMPTY_VALUE; else MacdBuffer2k=temp;MacdBuffer1k=EMPTY_VALUE; MacdBuffer0k = EMPTY_VALUE; SignalBufferk = EMPTY_VALUE; MacdBuffer1k = EMPTY_VALUE; MacdBuffer2k = EMPTY_VALUE; k += 1; separator = indicatorName+p; if(ObjectFind(separator)=-1) ObjectCreate(separator,OBJ_TREND,window,0,0); ObjectSet(separator,OBJPROP_TIME1,barTime(k-Shift*(barsPerTimeFrame+1)-1); ObjectSet(separator,OBJPROP_TIME2,barTime(k-Shift*(barsPerTimeFrame+1)-1); ObjectSet(separator,OBJPROP_PRICE1,-0.1); ObjectSet(separator,OBJPROP_PRICE2,0.1); ObjectSet(separator,OBJPROP_COLOR ,separatorColor); ObjectSet(separator,OBJPROP_WIDTH ,2); separator = indicatorName+p+label; if(ObjectFind(separator)=-1) ObjectCreate(separator,OBJ_TEXT,window,0,0); ObjectSet(separator,OBJPROP_TIME1,barTime(k-Shift*(barsPerTimeFrame+1)-5); ObjectSet(separator,OBJPROP_PRICE1,0); ObjectSetText(separator,labelsp,9,Arial,txtColor); SetIndexDrawBegin(0,Bars-k); SetIndexDrawBegin(1,Bars-k); return(0);int barTime(int a) if(a= 0) char = StringGetChar(s, lenght); if(char 96 & char 223 & char -33 & char 0) s = StringSetChar(s, lenght, char + 224); lenght-; return(s);/-源码到此已结束原帖由masonjiao于2008-07-02 00:52:12发表这份源代码我进行编译时出现如下错误提示:barsPerTimeFrame. - variable not defined D:Program .把2个货币的K线图重叠在一起上一篇 / 下一篇 2008-06-28 10:36:11 / 个人分类：MT4查看( 254 ) / 评论( 0 ) / 评分( 0 / 0 )源码如下：/-#property indicator_chart_window#property indicator_buffers 4#property ind