缺口波浪[大智慧L2]

{}   

  

{参数N: 15,5,30}   

  

{高低标注}   

ddd:=ZIG(4,n );   

DRAWTEXT(h=ddd ,h*1.02 ,'高='+ddd),ColorD3A9FF;   

DRAWTEXT(l=ddd ,l ,'低='+ddd);   

  

{缺口}   

stickline(L>REF(H,1),L,REF(H,1),50,1001),color0000FF;   

stickline(REF(L,1)>H,ref(L,1),H,50,1001),color00FF00;   

  

{波浪顶底}   

  

TY:=C;   

HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);   

LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);    

A:=REF(C,BARSLAST(HD));   

B:=REF(C,BARSLAST(LD));   

T1:=BARSLAST(HD)

T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);   

波浪顶:IF(T1,A,A),COLORFF00FF,POINTDOT,LINETHICK2;   

STICKLINE(T1,A,A,9,0),COLORFF00FF;   

波浪底:IF(T2,B,B),COLOR80FF00,POINTDOT,LINETHICK2;