把通达信顶与底公式划线自动延长

编写条件：

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;