【通达信免费源码】主图丈量尺无未来（源码请复制导入）

A:=CONST(HHV(H,120));

B:=CONST(LLV(L,120));

AB:=((A-B)/2)+B,LINETHICK2,COLORRED;

DRAWBAND(AB1.1,RGB(12,22,32),AB0.9,RGB(12,22,30));

竖:=MONTH>REF(MONTH,1);

STICKLINE(DAY>0,AB0.94,AB0.9,0,-1),COLORLIGREEN;

STICKLINE(BARSLAST(竖)=11,AB*0.9,AB,0,-1),COLORRED;

中:AB,LINETHICK2,COLORRED;

天:AB*1.2,COLORLIGREEN,DOTLINE;

地:AB*0.8,COLORLIGREEN,DOTLINE;

高:AB*1.1,LINETHICK2,COLORYELLOW;

低:AB*0.9,LINETHICK2,COLORYELLOW;

STICKLINE(竖,AB1.1,AB0.9,0,0),COLORWHITE;

DRAWKLINE(H,O,L,C);