劃線問題

A2T:=REF(L,KK1)=LLV(L,2*KK1+1);
B2T:=FILTER(A2T,KK1);
C2T:=BACKSET(B2T,KK1+1);
D2T:=FILTER(C2T,KK1);

E1T:=(REF(LLV(L,2*KK1),1)+REF(HHV(H,2*KK1),1))/2;
E2T:=(H+L)/2;

H1T:=(D1T AND NOT(D2T AND E1T>=E2T)) OR BARSTATUS=2 OR BARSCOUNT(C)=1;
L1T:=(D2T AND NOT(D1T AND E1T<E2T));
H2T:=D1T AND NOT(D2T AND E1T>=E2T);
X1T:=REF(BARSLAST(H1T),1)+1;
F1T:=BACKSET(H1T AND COUNT(L1T,X1T)>0,LLVBARS
(IF(L1T,L,10000),X1T));
G1T:=F1T>REF(F1T,1);
I1T:=BACKSET(G1T,2);
LDT:=I1T>REF(I1T,1);
{過濾后低點}
L2T:=LDT OR BARSTATUS=2 OR BARSCOUNT(C)=1;
X2T:=REF(BARSLAST(L2T),1)+1;
F2T:=BACKSET(L2T AND COUNT(H2T,X2T)>0,HHVBARS
(IF(H2T,H,0),X2T));
G2T:=F2T>REF(F2T,1);
I2T:=BACKSET(G2T,2);
HDT:=I2T>REF(I2T,1);
{過濾后高點}
R1T:=BACKSET(BARSTATUS=2,BARSLAST(HDT)+1);
S1T:=R1T>REF(R1T,1);

T1T:=BACKSET(BARSTATUS=2,BARSLAST(LDT)+1);
U1T:=T1T>REF(T1T,1);

R2T:=BACKSET(S1T,REF(BARSLAST(HDT),1)+2);
S2T:=R2T>REF(R2T,1);

T2T:=BACKSET(U1T,REF(BARSLAST(LDT),1)+2);
U2T:=T2T>REF(T2T,1);

DRAWLINE(S2T,H,S1T,H,COLORCYAN);
DRAWLINE(U2T,L,U1T,L,1),COLOR0088DD;

文件名：100A6670-5A01-44E3-B31B-B6979F9D9364.png

?

?來源:程序化99

?

?來源: www.tumamayizhan.com

?

?