通达信之基准线

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

参数有三：最小值   最大值  默认值
       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;