|
日五:=1;
日十:=1;
日廿:=1;
周五:=1;
周十:=1;
周廿:=1;
月五:=1;
月十:=1;
月廿:=1;
DRAWKLINE(H,O,L,C);
日05:MA(C,5)*日五,COLORWHITE;
日10:MA(C,10)*日十,COLORYELLOW;
日20:MA(C,20)*日廿,COLORMAGENTA;
星期:=WEEKDAY,NODRAW;
日1:=DATETODAY(DATE);
上市日:=REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT);
自然日:=日1-DATETODAY(上市日)+1;
ZB:=(自然日-REF(自然日,1))!=星期-REF(星期,1) OR TOTALBARSCOUNT-CURRBARSCOUNT=0;
本周第几天:=BARSLAST(ZB)+1;
周MA1:=REF(C,本周第几天);
周MA2:=REF(周MA1,本周第几天);
周MA3:=REF(周MA2,本周第几天);
周MA4:=REF(周MA3,本周第几天);
周MA5:=REF(周MA4,本周第几天);
周MA6:=REF(周MA5,本周第几天);
周MA7:=REF(周MA6,本周第几天);
周MA8:=REF(周MA7,本周第几天);
周MA9:=REF(周MA8,本周第几天);
周MA10:=REF(周MA9,本周第几天);
周MA11:=REF(周MA10,本周第几天);
周MA12:=REF(周MA11,本周第几天);
周MA13:=REF(周MA12,本周第几天);
周MA14:=REF(周MA13,本周第几天);
周MA15:=REF(周MA14,本周第几天);
周MA16:=REF(周MA15,本周第几天);
周MA17:=REF(周MA16,本周第几天);
周MA18:=REF(周MA17,本周第几天);
周MA19:=REF(周MA18,本周第几天);
周05:(C+周MA1+周MA2+周MA3+周MA4)/5*周五,COLORWHITE,DOTLINE;
周10:(C+周MA1+周MA2+周MA3+周MA4+周MA5+周MA6+周MA7+周MA8+周MA9)/10*周十,COLORYELLOW,DOTLINE;
周20:(C+周MA1+周MA2+周MA3+周MA4+周MA5+周MA6+周MA7+周MA8+周MA9+周MA10+周MA11+周MA12+周MA13+周MA14+周MA15+周MA16+周MA17+周MA18+周MA19)/20*周廿,COLORMAGENTA,DOTLINE;
DRAWTEXT(ISLASTBAR,周05,' 周5'),COLORWHITE;
DRAWTEXT(ISLASTBAR,周10,' 周10'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,周20,' 周20'),COLORMAGENTA;
年:=YEAR;
月:=MONTH;
本月第几天:=BARSLAST(年*100+月!=REF(年*100+月,1))+1;
月MA1:=REF(C,本月第几天);
月MA2:=REF(月MA1,本月第几天);
月MA3:=REF(月MA2,本月第几天);
月MA4:=REF(月MA3,本月第几天);
月MA5:=REF(月MA4,本月第几天);
月MA6:=REF(月MA5,本月第几天);
月MA7:=REF(月MA6,本月第几天);
月MA8:=REF(月MA7,本月第几天);
月MA9:=REF(月MA8,本月第几天);
月MA10:=REF(月MA9,本月第几天);
月MA11:=REF(月MA1,本月第几天);
月MA12:=REF(月MA1,本月第几天);
月MA13:=REF(月MA1,本月第几天);
月MA14:=REF(月MA1,本月第几天);
月MA15:=REF(月MA1,本月第几天);
月MA16:=REF(月MA1,本月第几天);
月MA17:=REF(月MA1,本月第几天);
月MA18:=REF(月MA1,本月第几天);
月MA19:=REF(月MA1,本月第几天);
月05:(C+月MA1+月MA2+月MA3+月MA4)/5*月五,COLORWHITE,DOTLINE;
月10:(C+月MA1+月MA2+月MA3+月MA4+月MA5+月MA6+月MA7+月MA8+月MA9)/10*月十,COLORYELLOW,DOTLINE;
月20:(C+月MA1+月MA2+月MA3+月MA4+月MA5+月MA6+月MA7+月MA8+月MA9+月MA10+月MA11+月MA12+月MA13+月MA14+月MA15+月MA16+月MA17+月MA18+月MA19)/20*月廿,COLORMAGENTA,DOTLINE;
DRAWTEXT(ISLASTBAR,月05,' 月5'),COLORWHITE;
DRAWTEXT(ISLASTBAR,月10,' 月10'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,月20,' 月20'),COLORMAGENTA;
202108201209.jpg
|
