通达信波浪指标源码

V1:=MA(HIGH,30)*1.15;
 V2:=MA(HIGH,3)*1.03;
 V3:=MA(LOW,3)*0.97;
 V4:=MA(LOW,30)*0.85;
 GET:ZIG(3,N),COLORYELLOW;PL5:=ZIG(3,5);
 EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3);
 EX1:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3);
 PL10:=ZIG(3,10);
 EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3);
 EX2:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3);
 PL20:=ZIG(3,20);
 EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3);
 EX3:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3);
 PL40:=ZIG(3,40);
走强1:=BARSLAST(PL5<REF(PL5,1));走弱1:=BARSLAST(PL5>REF(PL5,1));
走强2:=BARSLAST(PL10<REF(PL10,1));走弱2:=BARSLAST(PL10>REF(PL10,1));
走强3:=BARSLAST(PL20<REF(PL20,1));走弱3:=BARSLAST(PL20>REF(PL20,1));
 ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0);
 ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0);
 DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0);
 DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0);
 ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0);
 ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0);
 DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0);
 DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0);
 DRAWTEXT(EN1 AND DTJZ5=1,L*0.96,'㈠'),COLORLIMAGENTA;
 DRAWTEXT(EX1 AND DTJD5=2,H*1.04,'㈡'),COLORLIMAGENTA;
 DRAWTEXT(EN2 AND ZTJZ5=1,L*0.96,'㈢'),COLORLIMAGENTA;
 DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H*1.00,'⑴'),COLORYELLOW;
 DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L*0.98,'⑵'),COLORYELLOW;
 DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H*1.00,'⑶'),COLORYELLOW;
 DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.98,'⑷'),COLORYELLOW;
 DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.00,'⑸'),COLORYELLOW;
 DRAWTEXT(EN2 AND DTJZ10=1,L*0.90,'Ⅰ'),COLORRED;
 DRAWTEXT(EX2 AND DTJD10=2,H*1.08,'Ⅱ'),COLORRED;
 DRAWTEXT(EN3 AND ZTJZ10=1,L*0.90,'Ⅲ'),COLORRED;
 DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.02,'①')COLORGREEN;
 DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.92,'②'),COLORGREEN;
 DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2)
                                        AND EX2,H*1.02,'③'),COLORGREEN;
 DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L*0.92,'④'),COLORGREEN;

日:=150;昨前:=3;
高1:=REF(HHV(H,日),昨前);
低1:=REF(LLV(L,日),昨前);
H1:=高1-(高1-低1)*0.236;
 H2:=高1-(高1-低1)*0.382;
 H3:=高1-(高1-低1)*0.5;
 H4:=高1-(高1-低1)*0.618;
 H5:=高1-(高1-低1)*0.764;
顶:REFDATE(高1,DATE),COLORRED;
 %76.4:REFDATE(H1,DATE),COLORBROWN;
 %61.8:REFDATE(H2,DATE),COLORBROWN;
 %50:REFDATE(H3,DATE),COLORBROWN;
 %38.2:REFDATE(H4,DATE),COLORBROWN;
 %23.6:REFDATE(H5,DATE),COLORBROWN;
低:REFDATE(低1,DATE),COLORRED;