通达信基准线主图源码

通达信之基准线

目的：在指定日期画出十字线，用以观测当前股价之强弱，
 可以作为买卖参考点。运用之妙，存乎一心，如是而已。

参数有三：最小值 最大值 默认值
Y 1990 3000 2016
 M 1 12 3
 D 1 31 8
 --------------------------------------------------------
源码如下

TJ:=YEAR=Y AND MONTH=M AND DAY=D;
 T1:=TJ>REF(TJ,1);
 GC:=IF(T1,C,DRAWNULL);
 SJ:=CONST(BARSSINCE(GC));
 N:=SJ;

CP:=CONST(REF((H+L)/2,N));

 DRAWKLINE(H,O,L,C);

STICKLINE(CURRBARSCOUNT > N AND C>=O,H,L,0.2,0),COLORFF00CC;
 STICKLINE(CURRBARSCOUNT > N AND C>=O,C,O,3,0),COLORFF00CC;
 STICKLINE(CURRBARSCOUNT > N AND C< O,H,L,0.2,0),COLOR00CC00;
 STICKLINE(CURRBARSCOUNT > N AND C< O,C,O,3,0),COLOR00CC00;

 HHYD:=CONST(HHV(H,N*2+1));
 LLYD:=CONST(LLV(L,N*2+1));
 STICKLINE(CURRBARSCOUNT==(N+1),HHYD,LLYD,0,0), COLORWHITE;
基准:DRAWLINE(CURRBARSCOUNT<=(N+2), CP, 1, CP, 0), COLORWHITE;

DRAWNUMBER(ISLASTBAR,CP,CP),COLORYELLOW;