日線上實(shí)現(xiàn)跨周期顯示“周均線”和“月均線”,不是市面上引用week和month函數(shù)的寫法,手機(jī)通達(dá)信也可以使用。
再啰嗦幾句如何選股的話題。 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; |
|