把通达信公式顶与底公式计算划线全自动增加

撰写标准：TS:=14;

{顶点H}

A1:=REF(H,TS)=HHV(H,2*TS 1); B1:=FILTER(A1,TS);

C1:=BACKSET(B1,TS 1); HD:=FILTER(C1,TS);

波峰: REF(H,BARSLAST(HD)),POINTDOT,COLOR990099;

{顶点L}

AL1:=REF(L,TS)=LLV(L,2*TS 1); BL1:=FILTER(AL1,TS);

CL1:=BACKSET(BL1,TS 1); LD:=FILTER(CL1,TS);

波谷: REF(L,BARSLAST(LD)),POINTDOT,COLOR009900;

T1:=BARSLAST(HD)BARSLAST(LD) AND NOT(LD);

STICKLINE(T1,波峰,波峰,200,0),COLOR990099;

STICKLINE(T2,波谷,波谷,200,0),COLOR009900;

期待教师能将公式计算画出去的水平线全自动增加，这一公式计算里线过短了 看不见早期的顶与底，自己调节了一下，将STICKLINE(T1,波峰,波峰,200,0),COLOR990099;

STICKLINE(T2,波谷,波谷,200,0),COLOR009900; 里的数据改为200，尽管长了，可是希望划线从k线一直向右画，左侧画的那一部分想要了，不便教师了

撰写方式：{把STICKLINE换为DRAWLINE试一试。}

TS:=14;

{顶点H}

A1:=REF(H,TS)=HHV(H,2*TS 1); B1:=FILTER(A1,TS);

C1:=BACKSET(B1,TS 1); HD:=FILTER(C1,TS);

波峰: REF(H,BARSLAST(HD)),POINTDOT,COLOR990099;

{顶点L}

AL1:=REF(L,TS)=LLV(L,2*TS 1); BL1:=FILTER(AL1,TS);

CL1:=BACKSET(BL1,TS 1); LD:=FILTER(CL1,TS);

波谷: REF(L,BARSLAST(LD)),POINTDOT,COLOR009900;

T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD);

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

DRAWLINE(HD,H,REF(HD,1),REF(H,1),1),COLOR00FFFF;

DRAWLINE(LD,L,REF(LD,1),REF(L,1),1),COLORFFFF00;