日周月季K线主副同图幅图指标公式[通达信公式]

相关标签:

日周月季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.CXH99.COM ）

源码：

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.CXH99.COM '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;


DRAWTEXT_FIX(C>O,0.01,0.9,0,' WWW.CXH99.COM '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

 

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】