通达信随波逐流源码附图

DIF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORLIBLUE;
 DEA:EMA(DIF,9),COLORBLUE;
 MACD:(DIF-DEA)*2,COLORSTICK;
 STICKLINE(MACD<REF(MACD,1) AND MACD>0,0,MACD,1,0),COLORLIBLUE;
 STICKLINE(MACD>REF(MACD,1) AND MACD<0,0,MACD,1,0),COLORFF00FF;
 IF(DEA<DIF,DEA,DRAWNULL),COLORRED;
 IF(DIF>=REF(DIF,1),DIF,DRAWNULL),COLORBLACK;

C底:ABS((CROSS("MACD.DIF","MACD.DEA")
 &&"MACD.DEA"<=-0.07)*"MACD.DIF")*1.50,COLORLIMAGENTA;
 DRAWTEXT(ABS(C底)>0,C底*1.30,' 抄底'),COLORRED;
 DRAWICON(ABS(C底)>0,C底*1.10,4);

{低位金叉,二次金叉,背离}
低位金叉:=CROSS(DIF,DEA) AND DIF<-0.1;
 STICKLINE(低位金叉,0,0.3,2,0),COLORYELLOW;
 DRAWTEXT(低位金叉,0.16,' 低位金叉'),COLORBLACK;
 JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
 STICKLINE(二次金叉,0,0.2,2,0),COLORFF00FF;
 DRAWICON(二次金叉,DEA*0.9,1) ;
 DRAWTEXT(二次金叉,0.2,' 二次金叉'),COLORYELLOW;
 A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);
 STICKLINE(底背离,0,0.1,2,0),COLOR00FF00;
底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK2;
 DRAWTEXT(底背离,0.12,' 底背离'),COLORFF00FF;
 A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF,A2+1)> DIF AND CROSS(DEA,DIF);
顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN,LINETHICK2;
 DRAWTEXT(低位金叉 AND 二次金叉 AND 底背离,0.25,'三全项'),COLOR0000FF,LINETHICK2;
 {黄金坑}
RR8:=MA(CLOSE,27);
 RR9:=(CLOSE-RR8)/RR8;
 RRA:=MA(RR9,2);
 RRB:=BARSLAST(CROSS(-0.1,RRA)=1);
 RRD:=RRA<-0.1 AND RRB>0.3;
黄金坑:IF(RRD,-0.15,DRAWNULL),COLORYELLOW,STICK,LINETHICK3;