通达信近21天 最高点画绿线向右延伸 阳线最高收盘价画红线向右延伸

Answer 1

{ 高价处划线量副图源码}
N:=21;
PT:=CONST(HHVBARS(H,N));
TS:IF(CURRBARSCOUNT<=PT+1,CONST(IF(PT=0,H,REF(H,PT))),DRAWNULL),COLORYELLOW,DOTLINE;
IF(CURRBARSCOUNT=PT+1,TS,DRAWNULL),CIRCLEDOT,COLORYELLOW,LINETHICK1;
DRAWTEXT(CURRBARSCOUNT=PT+1,TS*1.019,STRCAT(CON2STR(CONST(N),0),'最高')),COLORYELLOW;