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

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

{股海网提供：www.guhai.com.cn}

{请设置计算参数:
年: 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,日+(月-1)*31,日+INTPART(13*(月+1)/5)-7+(月-1)*28
+IF(INTPART(年/4)=年/4,1,0));
自然终期:=(YEAR-1992)*365+INTPART((YEAR-1989)/4)
+IF(MONTH<=2,DAY+(MONTH-1)*31,DAY+INTPART(13*(MONTH+1)/5)-7+(MONTH-1)*28
+IF(INTPART(YEAR/4)=YEAR/4,1,0));
自然日周期:=CONST(自然终期-自然起期),NODRAW;
自然日均线:EMA(周期C,自然日周期),COLORFF00FF,LINETHICK2;
异均线5:EMA(周期C,5*(自然日周期/交易日周期)),COLOR8E0000,LINETHICK2;
异均线10:EMA(周期C,10*(自然日周期/交易日周期)),COLOR00FFFF,LINETHICK2;
异均线20:EMA(周期C,20*(自然日周期/交易日周期)),COLOR0055FF,LINETHICK2;