ZIGZAG 的一點問題

?

?來源:程序化99

?參考下面寫法：

?

N:=1;
N1:=PEAKBARS(H,N,1,1);
N2:=TROUGHBARS(L,N,1,1);
A:=BACKSET(N2=0&&EXIST(N1=0,REF(BARSLAST(N2=0),1)),HHVBARS(H,REF(BARSLAST(N2=0),1))+1);
B:=BACKSET(N1=0&&EXIST(N2=0,REF(BARSLAST(N1=0),1)),LLVBARS(L,REF(BARSLAST(N1=0),1))+1);
AA:=CROSS(A,0.5);
BB:=CROSS(B,0.5);
DRAWLINE1(BB,L,AA,H,0);
DRAWLINE1(AA,H,BB,L,0);