通达信『蚂蚁上树』主图+指标。突破上轨加速上树 波段操作无未来函数不漂移 源码分享
1. 蚂蚁上树指标以短中长线的均线为依据并结合EMA判断突破拐点信号。
2.设置动态通道，当价格突破上轨时提示加速信号，整体通过颜色变化，红涨绿跌来直观展示趋势转折点，适用于波段。
3.指标不含未来函数，信号不漂移。
蚂蚁上树主图
{主图源码如下}
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
ZBGS1:=EMA(CLOSE,7);
ZBGS2:=EMA(CLOSE,14);
ZBGS3:=EMA(CLOSE,25);
ZBGS4:=EMA(CLOSE,45);
ZBGS5:=ZBGS1>ZBGS2;
STICKLINE(C/REF(C,1)>1.095,C,O,2,0),COLOR0000FF;
DRAWTEXT(C/REF(C,1)>1.095,L*0.96,' ★加速上树'),COLORLIRED;
STICKLINE(H< REF(LOW,0),H,REF(LOW,0),10,0);
STICKLINE(LOW>REF(H,0) ,LOW,REF(H,0),10,0);
STICKLINE(C=O,H,L,0,0);
STICKLINE((C=O)AND(C>REF(C,0)),C,O,8,0);
STICKLINE((C=O)AND(C< REF(C,0)),C,O,8,0);
STICKLINE(CROSS(ZBGS1,ZBGS2) AND ZBGS5,CLOSE,OPEN,2,0),COLORMAGENTA;
DRAWICON(CROSS(ZBGS1,ZBGS2) AND ZBGS5,L*1.002,9);
DRAWTEXT(CROSS(ZBGS1,ZBGS2) AND ZBGS5,L*0.98,' ★蚂蚁上树'),COLOR00FFFF;
STICKLINE(CROSS(ZBGS3,ZBGS1),CLOSE,OPEN,2,0),COLORFF0000;
ZBGS6:=ABS((2*CLOSE+H+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);
DRAWTEXT_FIX(1,0.980,20,1,'股朋网'),COLOR333333;
ZBGS7:=DMA(CLOSE,ZBGS6);
上轨:(1+7/100)*ZBGS7,DOTLINE,COLOR00FF00;
下轨:(1-7/100)*ZBGS7,DOTLINE,COLOR00FF00;
中轨:(上轨+下轨)/2,DOTLINE,COLOR00FF00;
FK:(1+14/100)*ZBGS7,DOTLINE,COLORGRAY;
CD:(1-14/100)*ZBGS7,DOTLINE,COLORGRAY;
DRAWNUMBER(ISLASTBAR,上轨,上轨),COLOR00FFFF;
DRAWNUMBER(ISLASTBAR,下轨,下轨),COLORFFFF00;
DRAWNUMBER(ISLASTBAR,中轨,中轨),COLOR00FF00;
DRAWNUMBER(ISLASTBAR,FK,FK),COLOR0000FF;
DRAWNUMBER(ISLASTBAR,CD,CD),COLORWHITE;
上轨绿:IF(上轨>=REF(上轨,1),上轨,DRAWNULL),DOTLINE,COLOR00FF00,LINETHICK1;
上轨红:IF(上轨>=REF(上轨,1),上轨,DRAWNULL),DOTLINE COLORRED,LINETHICK1;
中轨绿:IF(中轨>=REF(中轨,1), 中轨,DRAWNULL),DOTLINE,COLOR00FF00,LINETHICK1;
中轨红:IF(中轨>=REF(中轨,1), 中轨,DRAWNULL),DOTLINE COLORRED, LINETHICK1;
下轨绿:IF(下轨>=REF(下轨,1), 下轨,DRAWNULL),DOTLINE,COLOR00FF00,LINETHICK1;
下轨红:IF(下轨>=REF(下轨,1), 下轨,DRAWNULL),DOTLINE COLORRED,LINETHICK1;
IF(ZBGS1>REF(ZBGS1,1),ZBGS1,DRAWNULL),COLORRED,LINETHICK2;
IF(ZBGS1< REF(ZBGS1,1),ZBGS1,DRAWNULL),COLOR00FF00,LINETHICK2;
{副图/选股源码如下}
ZBGS31:=EMA(C,7);
ZBGS32:=EMA(C,14);
ZBGS33:=EMA(C,25);
ZBGS34:=EMA(C,45);
ZBGS35:=ZBGS31>ZBGS32;
ZBGS36:=NOT(CODELIKE('4'));
ZBGS37:=NOT(CODELIKE('688'));
ZBGS38:=IF(NAMELIKE('S'),0,1);
ZBGS39:=IF(NAMELIKE('*'),0,1);
ZBGS310:=NOT(CODELIKE('8'));
ZBGS311:=ZBGS36 AND ZBGS38 AND ZBGS37 AND ZBGS39 AND ZBGS310;
蚂蚁上树X:CROSS(ZBGS31,ZBGS32) AND ZBGS35 AND ZBGS311;
