通达信版本
顶:82,COLORFFFF00,LINETHICK1;
顶A:90,COLORFF0000,LINETHICK9;
低:18,COLOR208FFF,LINETHICK1;
VAR2:=(C-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
VAR3:=SMA(VAR2,13,8);
多方: SMA(VAR3,13,8),COLORRED,LINETHICK2;
IF(多方<50,多方,DRAWNULL),LINETHICK2,COLORFF0000;
LSG:=多方-45;
STICKLINE(LSG >=0,(多方- LSG *0.05),(多方- LSG *0.15),0,0) ,COLOR00FFFF;
STICKLINE(LSG >=0,(多方- LSG *0.2),(多方- LSG *0.35),0,0) ,COLOR00CCFF;
STICKLINE(LSG >=0,(多方- LSG *0.4),(多方- LSG *0.55),0,0) ,COLOR0099FF;
STICKLINE(LSG >=0,(多方- LSG *0.6),(多方- LSG *0.75),0,0) ,COLOR0066FF;
STICKLINE(LSG >=0,(多方- LSG *0.8),(多方- LSG *0.95),0,0) ,COLOR0000CC;
STICKLINE(LSG <0,(45+ LSG *0.05),(45+ LSG *0.15),0,0) ,COLOR006600;
STICKLINE(LSG <0,(45+ LSG *0.2),(45+ LSG *0.35),0,0) ,COLOR009900;
STICKLINE(LSG <0,(45+ LSG *0.4),(45+ LSG *0.55),0,0) ,COLOR00CC00;
STICKLINE(LSG <0,(45+ LSG *0.6),(45+ LSG *0.75),0,0) ,COLOR00FF00;
STICKLINE(LSG <0,(45+ LSG *0.8),(45+ LSG *0.95),0,0) ,COLOR66FF00;
中轴:45,COLORFFFFCC;
B:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
CS:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100;
YJD: (EMA(CS,3)),COLOR00FFFF,LINETHICK1;
短期线:B+100,COLOREEEEEE,LINETHICK2;
DRAWTEXT(ISLASTBAR AND YJD>REF(YJD,1),YJD,'↑'),COLOR00FFFF;
DRAWTEXT(ISLASTBAR AND YJD<REF(YJD,1),YJD,'↓'),COLOR00FFFF;
DRAWTEXT(ISLASTBAR,顶,'  顶'),COLORFFFF00;
DRAWTEXT(ISLASTBAR,低,'  低'),COLOR208FFF;
R2:=TROUGHBARS(3,15,1)<10;
R3:=PEAKBARS(3,15,1)<10;
R4:=IF(R2=1,50,0);
R5:=IF(R3=1,50,0);
底部:=IF(R4=50,10,0);
买入:IF(底部=10 AND REF(底部,1)=10 AND REF(底部,2)=0,7,0),COLOR0000FF,LINETHICK3;
DRAWICON(底部=10 AND REF(底部,1)=10 AND REF(底部,2)=0,10,11);
买入延迟线:IF(底部=10 AND REF(底部,1)=10,5,0),COLOR00CCFF,LINETHICK1;
STICKLINE(底部=10 AND REF(底部,1)=10 AND REF(底部,2)=0,0,3,2,0),COLOR00FFFF;
VA:=(C*2+H+L)/4;
SK:=EMA(VA,13)-EMA(VA,21);
SD:=EMA(SK,2);
SF:=SD>REF(SD,1);
缘:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
中:=SMA(缘,3,1);
慢:=SMA(中,3,1);
快:=3*中-2*慢;
DRAWICON(CROSS(快,中) AND SF,2,15);
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
DRAWICON(CROSS(DIFF,DEA),10,23);
DRAWTEXT(CROSS(DIFF,DEA),12,'  MACD金叉');
DRAWTEXT(CROSS(快,中) AND SF,3,'  KD金叉');
OK:=SMA((C-LLV(L,8))/(HHV(H,8)-LLV(L,8))*100,2.5,1);
BY:=OK>REF(OK,1) AND CROSS(OK,SMA(OK,2.5,1)) AND OK<50;
DRAWICON(BY,低,26);
*******************************************
感谢版主提议！！此指标结合MACD决策【已改通达信】
MACD的精华就8个字：买小卖小，缩头缩脚。小指的是，红绿柱的堆而言，缩头缩脚是指红绿柱的长短而言。当股价一波比一波高时，反而红柱的堆，一堆比一堆小，证明产生了顶背离现象，应该及时卖出；当股价一波比一波低时，反而绿柱的堆一堆比一堆小，证明产生了底背离，应该买进。买点在绿堆小时，一根比一根短买进，也就是说缩脚时买进。当红堆小时，红柱一根比一根短时，叫缩头，卖出。这里的“大”和“小”是指MACD中的大绿柱，小绿柱，和大红柱，小红柱。我们只注重红绿柱的变化。
*****************************************************


{飞狐版本已改动}
顶:82,COLORFFFF00,LINETHICK1;
顶A:90,COLORFF0000,LINETHICK9;
低:18,COLOR208FFF,LINETHICK1;
Var2:=(C-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
Var3:=SMA(Var2,13,8);
0;
多方: SMA(Var3,13,8),COLORRED,linethick2;
PARTLINE(多方<45,多方),color00ff00,linethick2;
LSG:=多方-45;
STICKLINE(LSG >=0,(多方- LSG *0.05),(多方- LSG *0.15),0,0) ,COLOR00FFFF;
STICKLINE(LSG >=0,(多方- LSG *0.2),(多方- LSG *0.35),0,0) ,COLOR00CCFF;
STICKLINE(LSG >=0,(多方- LSG *0.4),(多方- LSG *0.55),0,0) ,COLOR0099FF;
STICKLINE(LSG >=0,(多方- LSG *0.6),(多方- LSG *0.75),0,0) ,COLOR0066FF;
STICKLINE(LSG >=0,(多方- LSG *0.8),(多方- LSG *0.95),0,0) ,COLOR0000CC;
STICKLINE(LSG <0,(45+ LSG *0.05),(45+ LSG *0.15),0,0) ,COLOR006600;
STICKLINE(LSG <0,(45+ LSG *0.2),(45+ LSG *0.35),0,0) ,COLOR009900;
STICKLINE(LSG <0,(45+ LSG *0.4),(45+ LSG *0.55),0,0) ,COLOR00CC00;
STICKLINE(LSG <0,(45+ LSG *0.6),(45+ LSG *0.75),0,0) ,COLOR00FF00;
STICKLINE(LSG <0,(45+ LSG *0.8),(45+ LSG *0.95),0,0) ,COLOR66FF00;
中轴:45,Colorffffcc;
B:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
CS:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100;
YJD: (EMA(CS,3)),COLOR00FFFF,LINETHICK1;
短期线:B+100,coloreeeeee,LINETHICK2;
DRAWTEXT(ISLASTBAR AND YJD>REF(YJD,1),YJD,'↑'),COLOR00FFFF;
DRAWTEXT(ISLASTBAR AND YJD<REF(YJD,1),YJD,'↓'),COLOR00FFFF;
DRAWTEXT(ISLASTBAR,顶,'  顶'),COLORFFFF00;
DRAWTEXT(ISLASTBAR,低,'  低'),COLOR208FFF;
DIFF:=EMA(CLOSE,5) - EMA(CLOSE,35);
DEA:=EMA(DIFF,5);
MACD:=2*(DIFF-DEA),;
G:=IF((SYSPARAM(1) = (BARSSINCE((C > 0)) + 1)),1,0);
DRAWTEXT(((G > 0) AND CROSS(DIff,DEa) AND MACD>0),20,'MACD金叉 '),colorFFEE00,pxdn20,ALIGN2;
DRAWICON(CROSS(DIff,DEa),20,12){,pxdn25},ALIGN0;
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
DRAWICON(CROSS(K,D) AND K>20 AND D<50,20,8);
DRAWTEXT(((G > 0) AND CROSS(k,d) AND k>20 and d<50),20,' KD金叉'),colorFFEE00,pxUP15,ALIGN1;
OK:=SMA((C-LLV(L,8))/(HHV(H,8)-LLV(L,8))*100,2.5,1);
BY:=OK>REF(OK,1) AND CROSS(OK,SMA(OK,2.5,1)) AND OK<50;
DRAWICON(BY,低,1);
R2:=TROUGHBARS(3,15,1)<10;
R4:=IF(R2=1,50,0);
R6:=IF(R4=50,10,0);
买入:IF(R6=10 AND REF(R6,1)=10 AND REF(R6,2)=0,4,0),COLOR0000ff,LINETHICK3;
买入延迟线:IF(R6=10 AND REF(R6,1)=10,2,0),COLOR00FFff,LINETHICK1;
STICKLINE(买入,0,3,6,0)COLOR00ffEE;
DRAWICON(买入>0,5,8),pxup0,align0;
DRAWTEXT(((G > 0) AND 买入>2),8,'研判进场'),colorffFFEE,pxdn10,ALIGN2;