N:=5;//N:=4;
A1:=REF(HIGH,N)=HHV(HIGH,3*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
D1:=FILTER(C1,N);//{高點}
A2:=REF(LOW,N)=LLV(LOW,3*N+1);
B2:=FILTER(A2,N);
C2:=BACKSET(B2,N+1);
D2:=FILTER(C2,N);//{低點}
E1:=(REF(LLV(LOW,2*N),1)+REF(HHV(HIGH,2*N),1))/2;
E2:=(HIGH+LOW)/2;
H1:=(D1 AND NOT((D2 AND E1>=E2))) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
L1:=(D2 AND NOT((D1 AND E1<E2))),NODRAW;
H2:=D1 AND NOT((D2 AND E1>=E2));
X1:=REF(BARSLAST(H1),1)+1;
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(LOW,X1)+1);//LLVBARS(IF(L1,LOW,N000),X1)+1,NODRAW;
G1:=F1>REF(F1,1);//DRAWTEXT(X1,L,'1';
I1:=BACKSET(G1,1);//DRAWTEXT(F1,H,'1';
LD:=I1>REF(I1,1);//{過濾后低點}
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(H,X2)+1);
G2:=F2>REF(F2,1);//DRAWTEXT(HD,H*1.01,'D';
I2:=BACKSET(G2,1);//DRAWTEXT(LD,L*0.99,'D';
HD:=I2>REF(I2,1);//{過濾后高點}
DD1:=VALUEWHEN(LD,L);
GD1:=VALUEWHEN(HD,H);
CZ1:= ABS(GD1-REF(DD1,1));//高到低點差價；
CZ2:= ABS(DD1-REF(GD1,1));//低到高點差價；
CJ1:=50<ABS(GD1-REF(DD1,1));//高到低點差超限；
CJ2:=50<ABS(DD1-REF(GD1,1));//低到高低點差超限；

DRAWLINE1(LD,L,HD,H,0),LINETHICK1,COLORYELLOW;//黃色折線
DRAWLINE1(HD,H,LD,L,0),LINETHICK1,COLORBLUE;//藍(lán)色折線

?

?來源:程序化99

?

?來源: m.weiqiv.net.cn

?

?