通达信指定日期均线主图源码

{请设置计算参数:
年: PARAM#0 (1990.00--3000.00)
月: PARAM#1 (1.00--12.00)
日: PARAM#2 (1.00--31.00)
点: PARAM#3 (1.00--2.00)
点=1时取L  点=2时取H
近期: PARAM#4 (1.00--99.00)}
TC:=IF(H=HHV(H,10*近期),H,DRAWNULL);
BC:=IF(L=LLV(L,10*近期),L,DRAWNULL);
DRAWTEXT(CURRBARSCOUNT=CONST(BARSLAST(TC=H))+1,H,'近期高点'),COLOR0000FF;
DRAWNUMBER(CURRBARSCOUNT=CONST(BARSLAST(TC=H))+1,H*1.02,DATE-1000000);
DRAWTEXT(CURRBARSCOUNT=CONST(BARSLAST(BC=L))+1,L,'近期低点'),COLOR0000FF;
DRAWNUMBER(CURRBARSCOUNT=CONST(BARSLAST(BC=L))+1,L*0.98,DATE-1000000);
R周期:=(年-1900)*10000+月*100+日;
周期C:=IF(DATE>R周期,C,REF(IF(点=1,L,H),BARSLAST(DATE=R周期)));
交易日周期:=CONST(BARSLAST(DATE=R周期))+1;
交易日均线:EMA(周期C,交易日周期),COLORFF0000,LINETHICK2;
自然起期:=(年-1992)*365+INTPART((年-1989)/4)
+IF(月<=2,日