优化的CDL指标

源码：
INPUT:S(8,1,20,1);
买:C,COLORFFFFFF;
止:买/(1+0.005+2/100-S/1000),COLOR00FF00;
平:买*(1+S/1000),COLORYELLOW;
二点五:买*(1.025+S/1000),COLORRED;
四:买*(1.04+S/1000),COLOR00FF00;
五:买*(1.05+S/1000),COLORFFFFFF;
十:买*(1.10+S/1000),COLOR00FF00;
最高:H,COLORMAGENTA;
逃命:H/1.11,COLORFFFFFF;
C1:="1A0001$CLOSE";
PN:=(C1/C1)*3;
DIFF:(10000*( EMA(CLOSE,12) - EMA(CLOSE,26)))*PN,COLORRED;
DEA:EMA(DIFF,6),COLORYELLOW;
MACD:2*(DIFF-DEA), COLORSTICK;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,MACD,0,8,0),COLOR0000AA;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,MACD,0,5,0),COLOR0000CC;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,MACD,0,2.5,0),COLOR0000DD;
STICKLINE(MACD0,MACD,0,8 ,0 ),Color0000FF;
STICKLINE(MACD0,MACD,0,7.8 ,0),Color0018FF;
STICKLINE(MACD0,MACD,0,7.5 ,0 ),Color001BFF;
STICKLINE(MACD0,MACD,0,7.3 ,0 ),Color0022FF;
STICKLINE(MACD0,MACD,0,7 ,0 ),Color0035FF;
STICKLINE(MACD0,MACD,0,6.8 ,0 ),Color0041FF;
STICKLINE(MACD0,MACD,0,6.5 ,0 ),Color0050FF;
STICKLINE(MACD0,MACD,0,6.3 ,0 ),Color0059FF;
STICKLINE(MACD0,MACD,0,6 ,0 ),Color0062FF;
STICKLINE(MACD0,MACD,0,5.7 ,0 ),Color006CFF;
STICKLINE(MACD0,MACD,0,5.5 ,0 ),Color007AFF;
STICKLINE(MACD0,MACD,0,5.3 ,0 ),Color0080FF;
STICKLINE(MACD0,MACD,0,5 ,0 ),Color0089FF;
STICKLINE(MACD0,MACD,0,4.5 ,0 ),Color0095FF;
STICKLINE(MACD0,MACD,0,3.5 ,0 ),Color009CFF;
STICKLINE(MACD0,MACD,0,3 ,0 ),Color00ABFF;
STICKLINE(MACD0,MACD,0,2.5 ,0 ),Color00C0FF;
STICKLINE(MACD0,MACD,0,1.5 ,0 ),Color00D1FF;
STICKLINE(MACD0,MACD,0,1 ,0 ),Color00EAFF;
STICKLINE(MACD0,MACD,0,0.7 ,0 ),Color00FFFF;
STICKLINE(MACD STICKLINE(MACD STICKLINE(MACD STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,8,0 ),Color006800;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,7.8,0 ),Color007F00;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,7,5 ),Color008B00;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,7,3 ),Color008B00;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,7,0 ),Color009000;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,6.8,0 ),Color009500;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,6.5,0 ),Color009C00;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,6.3,0 ),Color00A300;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,6,0 ),Color00AB00;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,5.7,0 ),Color00AF00;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,5.5,0 ),Color00B900;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,5.3,0 ),Color00C000;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,5,0 ),Color00C100;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,4.5,0 ),Color00CA00;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,3.5,0 ),Color00D300;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,3,0 ),Color00DB00;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,2.5,0 ),Color00EA00;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,1.5,0 ),Color00FF00;  
PARTLINE(DIFF>REF(DIFF,1),DIFF),COLORRED,LINETHICK2;
PARTLINE(DIFF PARTLINE(DEA<>0,DEA),COLORYELLOW;

E40:=EMA(C,40);
E40GL:=(C-E40)/E40*100;
负乖离:=E40GL<-12;
DI:=5*(EMA(CLOSE,6) - EMA(CLOSE,20));
DE:=EMA(DI,5);
MD:=(DI-DE);
L1:=TROUGHBARS(3,5,1);
L2:=TROUGHBARS(3,5,2);
L3:=TROUGHBARS(3,5,3);
L4:=TROUGHBARS(3,5,4);
M30:=MA(C,30);
M40:=MA(C,40);
乖底天数:=BARSLAST(E40GL<= LLV( E40GL,20));
RSVK:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
KK:=SMA(RSVK,3,1);
DK:=SMA(KK,3,1);
JK:=3*KK-2*DK;
顶:(JK<120 AND JK>98 AND JK>REF(JK,1))*5000,COLORYELLOW;
A1:=(C/MA(C,3)>=(1+0.07) AND C=HHV(C,3) AND MA(V,2)/MA(V,40)>=3 AND
MA(V,2)=HHV(MA(V,2),3) AND V>REF(V,1) AND C>REF(C,1));
A9:=MA(C,30);
A10:=(C-A9)/A9*100;
A11:=MA(A10,3);
A15:=BARSLAST(CROSS(-10,A11)=1);
DRAWTEXT(FILTER(顶,10),顶*1.2,'顶' ),COLORRED;
RR8:=MA(CLOSE,27);
RR9:=(CLOSE-RR8)/RR8*100;
RRA:=MA(RR9,2);
RRB:=BARSLAST(CROSS(-10,RRA)=1);
RRD:=RRA<-10 AND RRB>3;
黄金坑:IF(RRD,-2000,0),COLORYELLOW,LINETHICK2