通达信波浪理论主图选股指标公式源码

通达信波浪理论主图选股指标公式源码

源码正文：

K:=1{XG51};
N:=3{XG51};
巨浪H:DRAWLINE(H=HHV(H,270),H,L=LLV(L,270),L,0),POINTDOT,LINETHICK4,COLORmaGENTA{XG51};
巨浪L:DRAWLINE(L=LLV(L,270),L,H=HHV(H,270),H,0),POINTDOT,LINETHICK4,COLORLIMAGENTA{XG51};
大浪H:DRAWLINE(H=HHV(H,90),H,L=LLV(L,90),L,0),LINETHICK3,COLORWHITE{XG51};
大浪L:DRAWLINE(L=LLV(L,90),L,H=HHV(H,90),H,0),LINETHICK3,COLORWHITE{XG51};
中浪H:DRAWLINE(H=HHV(H,30),H,L=LLV(L,30),L,0),LINETHICK2,COLORLIGREEN{XG51};
中浪L:DRAWLINE(L=LLV(L,30),L,H=HHV(H,30),H,0),LINETHICK2,COLORLIGREEN{XG51};
小浪H:DRAWLINE(H=HHV(H,10),H,L=LLV(L,10),L,0),COLORRED;  
小浪L:DRAWLINE(L=LLV(L,10),L,H=HHV(H,10),H,0),DOTLINE,COLORRED{XG51};
ZLH:=stRCAT('顶天数:',CON2STR(CONST(BArslAST(H=HHV(H,30))),0)){XG51};
ZLL:=STRCAT('　　底天数:',CON2STR(CONST(BARSLAST(L=LLV(L,30))),0)){XG51};
ZLTS:=STRCAT('中浪:',STRCAT(ZLH,ZLL)){XG51};
DLH:=STRCAT(' 顶天数:',CON2STR(CONST(BARSLAST(H=HHV(H,90))),0)){XG51};
DLL:=STRCAT('　　底天数:',CON2STR(CONST(BARSLAST(L=LLV(L,90))),0)){XG51};
DLTS:=STRCAT('　　　大浪:',STRCAT(DLH,DLL)){XG51};
LXTS:=STRCAT('浪型天数:　',STRCAT(ZLTS,DLTS)){XG51};
DRAWTEXT_FIX(ISLASTBAR=1,0,0,0,LXTS),COLORRED{XG51};
T:=10*3*N{XG51};
A:=H=HHV(H,T) AND HHV(H,T)>REF(HHV(H,T),1){XG51};
B:=L=LLV(L,T) AND LLV(L,T)<REF(LLV(L,T),1){XG51};
WAVE1:=DRAWLINE(A,H,B,L,0){XG51};
WAVE2:=DRAWLINE(B,L,A,H,0){XG51};
ZG:=IF(WAVE1<REF(WAVE1,1) OR WAVE1=WAVE2,WAVE1,WAVE2),COLORLIMAGENTA{XG51};
峰:=WAVE2=WAVE1 AND A{XG51};
谷:=WAVE2=WAVE1 AND B{XG51};
峰峰天:=BARSLAST(峰)+1{XG51};
谷谷天:=BARSLAST(谷)+1{XG51};
D1:=HHV(H,T)>REF(HHV(H,T),1) AND ISLASTBAR AND WAVE2!=WAVE1{XG51};
D2:=LLV(L,T)<REF(LLV(L,T),1) AND ISLASTBAR AND WAVE2!=WAVE1{XG51};
D3:=IF(谷 OR D2,峰峰天,IF(峰 OR D1,谷谷天,DRAWNULL)){XG51};
D4:=IF(谷 OR D2,L*0.99,IF(峰 OR D1,H*1.01,DRAWNULL)){XG51};
DRAWNUMBER(D3>0 AND K=1,D4,SUM("HSL.HSL",D3)),COLORCYAN{X*G-5_1*C*N*{};