自动划线（通达信公式 主图 源码 测试图）

 自动划线 源码：
 

N:=75;N1:=5;N2:=10;

{N为多少天内的高低值，N1、N2为短长撑压取点参数}

A1:=REF(H,N1)=HHV(H,2*N1+1);

B1:=FILTER(A1,N1);

C1:=BACKSET(B1,N1+1);

D1:=FILTER(C1,N1);

E1:=BACKSET(ISLASTBAR,BARSLAST(D1)+1); 

F1:=E1>REF(E1,1);

短压:DRAWLINE(D1,H,F1,H,1),COLORCYAN;

A2:=REF(L,N1)=LLV(L,2*N1+1);

B2:=FILTER(A2,N1);

C2:=BACKSET(B2,N1+1);

D2:=FILTER(C2,N1);

E2:=BACKSET(ISLASTBAR,BARSLAST(D2)+1);

F2:=E2>REF(E2,1);

短支:DRAWLINE(D2,L,F2,L,1),COLORLIRED;

AA1:=REF(H,N2)=HHV(H,2*N2+1);

BB1:=FILTER(AA1,N2);

CC1:=BACKSET(BB1,N2+1);

DD1:=FILTER(CC1,N2);

EE1:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1); 

FF1:=EE1>REF(EE1,1);

长压:DRAWLINE(DD1,H,FF1,H,1),COLORGREEN;

AA2:=REF(L,N2)=LLV(L,2*N2+1);

BB2:=FILTER(AA2,N2);

CC2:=BACKSET(BB2,N2+1);

DD2:=FILTER(CC2,N2);

EE2:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);

FF2:=EE2>REF(EE2,1);

长支:DRAWLINE(DD2,L,FF2,L,1),COLORRED;

高:=REFDATE(HHV(H,N),DATE); 

低:=REFDATE(LLV(L,N),DATE);

p2021122215482797.jpg