相關標簽:

?

日周月季K線主副同圖幅圖公式把周K 月K 季K放在三個幅圖里面 連同主圖的日線一起在日線級別里是不是能夠更好判斷趨勢？應朋友要求寫了一個 論壇也搜素了 周K放在日線圖的有 月線 季線貌似沒有(可能我沒搜到）。如果您有更好的辦法能夠實現一圖同時顯示日周月季K線 請不要理睬我寫的 不管怎樣，需要的就下。高手和不需要的飄過這是分別可以建立在日線級別的四個周 月 季 年K線幅圖 其中MA1Y 和 MA2Y是你需要的兩條均線（也可以是N條）根據自己的喜好建立 具體先建一個公式 名字叫“引用”內容ma1y:ma(c,5);
ma2y:ma(c,10);然后黏貼相對應的周期幅圖源碼公式源碼周線

?

原理解析：
MON賦值:年內星期不等于1日前的年內星期 MC2賦值:如果MON,返回收盤價[取周線數據],否則返回無效數 ML2賦值:如果MON,返回最低價[取周線數據],否則返回無效數 MO2賦值:如果MON,返回開盤價[取周線數據],否則返回無效數 MH2賦值:如果MON,返回最高價[取周線數據],否則返回無效數 輸出周開:MO2的有效數據右對齊,NODRAW,COLORC0C0C0 輸出周高:MH2的有效數據右對齊,NODRAW,COLORFF8000 輸出周低:ML2的有效數據右對齊,NODRAW,COLORFFFF00 輸出周收:MC2的有效數據右對齊,NODRAW,COLOR0000FF K線 輸出MA1Y:"引用.MA1[取月線數據]" 輸出MA2Y:"引用.均線[取月線數據]" 月線MON賦值:月份不等于1日前的月份 MC2賦值:如果MON,返回收盤價[取月線數據],否則返回無效數 ML2賦值:如果MON,返回最低價[取月線數據],否則返回無效數 MO2賦值:如果MON,返回開盤價[取月線數據],否則返回無效數 MH2賦值:如果MON,返回最高價[取月線數據],否則返回無效數 輸出月開:MO2的有效數據右對齊,NODRAW,COLORC0C0C0 輸出月高:MH2的有效數據右對齊,NODRAW,COLORFF8000 輸出月低:ML2的有效數據右對齊,NODRAW,COLORFFFF00 輸出月收:MC2的有效數據右對齊,NODRAW,COLOR0000FF K線 輸出MA1Y:"引用.MA1[取月線數據]" 輸出MA2Y:"引用.均線[取月線數據]" 季線A0賦值:月份關于3的模 JD賦值:上次A0上穿0.5距今天數+1 MON賦值:JD<1日前的JD MC2賦值:如果MON,返回收盤價[取季線數據],否則返回無效數 ML2賦值:如果MON,返回最低價[取季線數據],否則返回無效數 MO2賦值:如果MON,返回開盤價[取季線數據],否則返回無效數 MH2賦值:如果MON,返回最高價[取季線數據],否則返回無效數 輸出季開:MO2的有效數據右對齊,NODRAW,COLORC0C0C0 輸出季高:MH2的有效數據右對齊,NODRAW,COLORFF8000 輸出季低:ML2的有效數據右對齊,NODRAW,COLORFFFF00 輸出季收:MC2的有效數據右對齊,NODRAW,COLOR0000FF K線 輸出MA1Y:"引用.MA1[取季線數據]" 輸出MA2Y:"引用.均線[取季線數據]" 年線MON賦值:年份不等于1日前的年份 MC2賦值:如果MON,返回收盤價[取年線數據],否則返回無效數 ML2賦值:如果MON,返回最低價[取年線數據],否則返回無效數 MO2賦值:如果MON,返回開盤價[取年線數據],否則返回無效數 MH2賦值:如果MON,返回最高價[取年線數據],否則返回無效數 輸出年開:MO2的有效數據右對齊,NODRAW,COLORC0C0C0 輸出年高:MH2的有效數據右對齊,NODRAW,COLORFF8000 輸出年低:ML2的有效數據右對齊,NODRAW,COLORFFFF00 輸出年收:MC2的有效數據右對齊,NODRAW,COLOR0000FF K線 輸出MA1Y:"引用.MA1[取年線數據]" 輸出MA2Y:"引用.均線[取年線數據]" 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

MON:=WEEKOFYEAR!=REF(WEEKOFYEAR,1);
MC2:=IF(MON,C#WEEK,DRAWNULL);
ML2:=IF(MON,L#WEEK,DRAWNULL);
MO2:=IF(MON,O#WEEK,DRAWNULL);
MH2:=IF(MON,H#WEEK,DRAWNULL);
周開:ALIGNRIGHT(MO2),NODRAW,COLORC0C0C0;
周高:ALIGNRIGHT(MH2),NODRAW,COLORFF8000;
周低:ALIGNRIGHT(ML2),NODRAW,COLORFFFF00;
周收:ALIGNRIGHT(MC2),NODRAW,COLOR0000FF;
DRAWKLINE(周高,周開,周低,周收);
MA1Y:"引用.MA1#MONTH";
MA2Y:"引用.MA2#MONTH";
月線
MON:=MONTH!=REF(MONTH,1);
MC2:=IF(MON,C#MONTH,DRAWNULL);
ML2:=IF(MON,L#MONTH,DRAWNULL);
MO2:=IF(MON,O#MONTH,DRAWNULL);
MH2:=IF(MON,H#MONTH,DRAWNULL);
月開:ALIGNRIGHT(MO2),NODRAW,COLORC0C0C0;
月高:ALIGNRIGHT(MH2),NODRAW,COLORFF8000;
月低:ALIGNRIGHT(ML2),NODRAW,COLORFFFF00;
月收:ALIGNRIGHT(MC2),NODRAW,COLOR0000FF;
DRAWKLINE(月高,月開,月低,月收);
MA1Y:"引用.MA1#MONTH";
MA2Y:"引用.MA2#MONTH";
季線
A0:=MOD(MONTH,3);
JD:=BARSLAST(CROSS(A0,0.5))+1;
MON:=JD<REF(JD,1);
MC2:=IF(MON,C#SEASON,DRAWNULL);
ML2:=IF(MON,L#SEASON,DRAWNULL);
MO2:=IF(MON,O#SEASON,DRAWNULL);
MH2:=IF(MON,H#SEASON,DRAWNULL);
季開:ALIGNRIGHT(MO2),NODRAW,COLORC0C0C0;
季高:ALIGNRIGHT(MH2),NODRAW,COLORFF8000;
季低:ALIGNRIGHT(ML2),NODRAW,COLORFFFF00;
季收:ALIGNRIGHT(MC2),NODRAW,COLOR0000FF;
DRAWKLINE(季高,季開,季低,季收);
MA1Y:"引用.MA1#SEASON";
MA2Y:"引用.MA2#SEASON";
年線
MON:=YEAR!=REF(YEAR,1);
MC2:=IF(MON,C#YEAR,DRAWNULL);
ML2:=IF(MON,L#YEAR,DRAWNULL);
MO2:=IF(MON,O#YEAR,DRAWNULL);
MH2:=IF(MON,H#YEAR,DRAWNULL);
年開:ALIGNRIGHT(MO2),NODRAW,COLORC0C0C0;
年高:ALIGNRIGHT(MH2),NODRAW,COLORFF8000;
年低:ALIGNRIGHT(ML2),NODRAW,COLORFFFF00;
年收:ALIGNRIGHT(MC2),NODRAW,COLOR0000FF;
DRAWKLINE(年高,年開,年低,年收);
MA1Y:"引用.MA1#YEAR";
MA2Y:"引用.MA2#YEAR";DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;


DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?