通达信〖十周均价〗最近10个周K线收盘价平均值主图指标公式源码

年:=YEAR,NODRAW;
月:=MONTH,NODRAW;
星期:=WEEkdAY,NODRAW;
日1:=DATETODAY(DATE);
上市日:=REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT);
自然日:=日1-DATETODAY(上市日)+1;
ZB:=(自然日-REF(自然日,1))!=星期-REF(星期,1)
OR TOTALBARSCOUNT-CURRBARSCOUNT=0;
本周第几天:BARSLAST(ZB)+1,NODRAW;
本月第几天:BARSLAST(年*100+月!=REF(年*100+月,1))+1,NODRAW;
MA11:=REF(C,本周第几天);
MA12:=REF(MA11,本周第几天);
MA13:=REF(MA12,本周第几天);
MA14:=REF(MA13,本周第几天);
MA15:=REF(MA14,本周第几天);
MA16:=REF(MA15,本周第几天);
MA17:=REF(MA16,本周第几天);
MA18:=REF(MA17,本周第几天);
MA19:=REF(MA18,本周第几天);
十周价:=(C+MA11+MA12+MA13+MA14+MA15+MA16+MA17+MA18+MA19)/10;
十周均价:CONST(十周价),COLORFF0080,LINETHICK2;
DRAWTEXT(ISLASTBAR,十周均价,'十周均价'),COLORYELLOW;