当前位置:→ 股海网通达信公式 → 正文
  • 通达信MACD KDJ日周月 顶底背离副图源码

  • 相关简介:DRAWGBK(C0, RGB(36,36,36),RGB(36,36,36),0,'0',0); DIF:=EMA(CLOSE,12)-EMA(CLOSE,26),NODRAW; DEA:=EMA(DIF,9),NODRAW; RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:=SMA(RSV,9,3),NODRAW; D:=SMA(K,9,3),NODRAW; J:=3*K-2*D,NODRAW; A:=CROSS(DIF,DEA

  • 文章来源:股海网作者:股海网发布时间:2016-07-10浏览次数:下载次数:0

DRAWGBK(C>0, RGB(36,36,36),RGB(36,36,36),0,'0',0);
 DIF:=EMA(CLOSE,12)-EMA(CLOSE,26),NODRAW;
 DEA:=EMA(DIF,9),NODRAW;
 RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
 K:=SMA(RSV,9,3),NODRAW;
 D:=SMA(K,9,3),NODRAW;
 J:=3*K-2*D,NODRAW;
 A:=CROSS(DIF,DEA) AND CROSS(K,D) AND CROSS(J,D);
 STICKLINE(A,65,85,3,0),COLORYELLOW;
 STICKLINE(A,20,40,3,0),COLORYELLOW;
 DRAWICON(A,80,25);
 DRAWICON(A,35,25);
 DRAWTEXT(A,80,' ★MACD_KDJ金叉共振'),COLORYELLOW;
低位金叉:=CROSS(DIF,DEA) AND DIF<-0.1;
 STICKLINE(低位金叉,95,105,3,0),COLORWHITE;
 DRAWTEXT(低位金叉,100,' MACD低位金叉'),COLORWHITE;
 JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
 STICKLINE(二次金叉,115,105,3,0),COLORYELLOW;
 DRAWTEXT(二次金叉,110,' MACD二次金叉'),COLORYELLOW;
 {}
 {DIF:EMA(CLOSE,12) - EMA(CLOSE,26),LINETHICK0;}
 {DEA:EMA(DIF,9),LINETHICK0;}
 {MACD:2*(DIF-DEA);}
 A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
 B1:=REF(C,A1+1)>C AND REF(DIF,A1+1)<DIF AND CROSS(DIF,DEA);
 A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
 B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS
 ("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
 A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
 B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS
 ("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
 C1:=BARSLAST(REF(CROSS(DEA,DIF),1));
 D1:=REF(C,C1+1)<C AND REF(DIF,C1+1)>DIF AND CROSS(DEA,DIF);
 C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));
 D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS
 ("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));
 C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
 D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS
 ("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
 STICKLINE(B1>0,85,95,3,0),COLORRED;
 DRAWTEXT((B1>0),90,' MACD底背离'),COLORRED;
 STICKLINE(D1>0,85,95,3,0),COLORFF8000;
 DRAWTEXT((D1>0),90,' MACD顶背离'),COLORFF8000;
 STICKLINE(B2>0,-10,0,3,0),COLOR8000FF;
 DRAWTEXT((B2>0),-5,' KDJ底背离'),COLOR8000FF;
 STICKLINE(D2>0,-10,0,3,0),COLORGREEN;
 DRAWTEXT((D2>0),-5,' KDJ顶背离'),COLORGREEN;
 STICKLINE(B3>0,-20,-10,3,0),COLORRED;
 DRAWTEXT((B3>0),-16,' RSI底背离'),COLORRED;
 STICKLINE(D3>0,-20,-10,3,0),COLORCYAN;
 DRAWTEXT((D3>0),-16,' RSI顶背离'),COLORCYAN;
 {}
日DIF:="MACD.DIF#DAY",NODRAW;
日DEA:="MACD.DEA#DAY",NODRAW;
日死叉:STICKLINE(日DIF<日DEA,70,75,3,0),COLORFF8000;
日金叉:STICKLINE(日DIF>日DEA,70,75,3,0),COLORRED;
 DRAWTEXT(ISLASTBAR,72,'__日MACD'),COLORYELLOW;
周DIF:="MACD.DIF#WEEK"(12,26,9),NODRAW;
周DEA:="MACD.DEA#WEEK"(12,26,9),NODRAW;
周死叉:STICKLINE(周DIF<周DEA,60,65,3,0),COLORFF8064;
周金叉:STICKLINE(周DIF>周DEA,60,65,3,0),COLOR3232FF;
 DRAWTEXT(ISLASTBAR,62,'__周MACD'),COLORYELLOW;
月DIF:="MACD.DIF#MONTH"(12,26,9),NODRAW;
月DEA:="MACD.DEA#MONTH"(12,26,9),NODRAW;
月死叉:STICKLINE(月DIF<月DEA,50,55,3,0),COLORFF808C;
月金叉:STICKLINE(月DIF>月DEA,50,55,3,0),COLOR5032FF;
 DRAWTEXT(ISLASTBAR,52,'__月MACD'),COLORYELLOW;
 {}
 DIF日:="MACD.DIF",NODRAW;
 DEA日:="MACD.DEA",NODRAW;
 MACD日金叉:=IF(CROSS(DIF日,DEA日),20,0),NODRAW;
 DIF周:="MACD.DIF#WEEK",NODRAW;
 DEA周:="MACD.DEA#WEEK",NODRAW;
 MACD周金叉:=IF(CROSS(DIF周,DEA周),40,0),NODRAW;
 STICKLINE((MACD周金叉 AND MACD日金叉),75,85,3,0)COLORYELLOW;
 DRAWTEXT((MACD周金叉 AND MACD日金叉),80,' ★MACD日周共振'),COLORYELLOW;
 DRAWICON(MACD周金叉 AND MACD日金叉,80,25);
 {}
 N:=1;
日K:=KDJ.K,NODRAW;
日D:=KDJ.D,NODRAW;
日J:=KDJ.J,NODRAW;
周K:=KDJ.K#WEEK,NODRAW;
周D:=KDJ.D#WEEK,NODRAW;
周J:=KDJ.J#WEEK,NODRAW;
月K:=KDJ.K#MONTH,NODRAW;
月D:=KDJ.D#MONTH,NODRAW;
月J:=KDJ.J#MONTH,NODRAW;
 K日金叉:=CROSS(日K,日D) AND (日D<40 OR 日D>60);
 K周金叉:=CROSS(周K,周D) AND (周D<40 OR 周D>60);
 K月金叉:=CROSS(月K,月D) AND (月D<40 OR 月D>60);
共振KDJ:=(K周金叉 AND K日金叉) OR (K周金叉 AND K月金叉) OR (K日金叉 AND K月金叉)OR (K日金叉 AND K周金叉 AND K月金叉);
STICKLINE(共振KDJ,0,40,3,0),COLORMAGENTA;{柱}
DRAWICON(共振KDJ,35,24);{图标}
DRAWTEXT((K周金叉 AND K日金叉) OR (K周金叉 AND K月金叉) OR (K日金叉 AND K月金叉)OR (K日金叉 AND K周金叉 AND K月金叉),
35,' ★KDJ(日/周/月)共振'),COLORMAGENTA;{字}
NOTEXT月K:=IF(N=3,月K,DRAWNULL),COLORWHITE,NODRAW;
 NOTEXT月D:=IF(N=3,月D,DRAWNULL),COLORYELLOW,NODRAW;
 NOTEXT月J:=IF(N=3,月J,DRAWNULL),COLORMAGENTA,NODRAW;
 NOTEXT周K:=IF(N=2,周K,DRAWNULL),COLORWHITE,NODRAW;
 NOTEXT周D:=IF(N=2,周D,DRAWNULL),COLORYELLOW,NODRAW;
 NOTEXT周J:=IF(N=2,周J,DRAWNULL),COLORMAGENTA,NODRAW;
 NOTEXT日K:=IF(N=1,日K,DRAWNULL),COLORWHITE,NODRAW;
 NOTEXT日D:=IF(N=1,日D,DRAWNULL),COLORYELLOW,NODRAW;
 NOTEXT日J:=IF(N=1,日J,DRAWNULL),COLORMAGENTA,NODRAW;
 STICKLINE(日K>=日D,30,25,3,0),COLOR8000FF;
 STICKLINE(日K< 日D,30,25,3,0),COLOR009600;
 DRAWTEXT(ISLASTBAR,27,'__日KDJ'),COLORWHITE;
 STICKLINE(周K>=周D,20,15,3,0),COLOR803CFF;
 STICKLINE(周K< 周D,20,15,3,0),COLOR3C9600;
 DRAWTEXT(ISLASTBAR,17,'__周KDJ'),COLORWHITE;
 STICKLINE(月K>=月D,10,5,3,0),COLOR8050FF;
 STICKLINE(月K< 月D,10,5,3,0),COLOR649600;
 DRAWTEXT(ISLASTBAR,7,'__月KDJ'),COLORWHITE;
 {}
 40,LINETHICK1,COLORWHITE;
 {}
 DRAWRECTREL(0,0,180,990,RGB(250,0,250));
 {日K:="KD.K"(9,3,3);
日D:="KD.D"(9,3,3);
日J:="KD.J"(9,3,3);
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
周J:="KDJ.J#WEEK"(9,3,3);
月K:="KDJ.K#MONTH"(9,3,3);
月D:="KDJ.D#MONTH"(9,3,3);
月J:="KDJ.J#MONTH"(9,3,3); }
 DRAWTEXT_FIX(ISLASTBAR,0.111,0.03,0,'KDJ (日/周/月)'),COLOR00FFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.101,0.13,0,'日K ='),COLORFFFFFF;
 DRAWNUMBER_FIX(ISLASTBAR,0.140,0.13,0,日K),COLORFFFFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.101,0.23,0,'日D ='),COLORFFFFFF;
 DRAWNUMBER_FIX(ISLASTBAR,0.140,0.23,0,日D),COLORFFFFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.101,0.33,0,'日J ='),COLORFFFFFF;
 DRAWNUMBER_FIX(ISLASTBAR,0.140,0.33,0,日J),COLORFFFFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.101,0.43,0,'周K ='),COLORFFFFFF;
 DRAWNUMBER_FIX(ISLASTBAR,0.140,0.43,0,周K),COLORFFFFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.101,0.53,0,'周D ='),COLORFFFFFF;
 DRAWNUMBER_FIX(ISLASTBAR,0.140,0.53,0,周D),COLORFFFFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.101,0.63,0,'周J ='),COLORFFFFFF;
 DRAWNUMBER_FIX(ISLASTBAR,0.140,0.63,0,周J),COLORFFFFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.101,0.73,0,'月K = '),COLORFFFFFF;
 DRAWNUMBER_FIX(ISLASTBAR,0.140,0.73,0, 月K),COLORFFFFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.101,0.83,0,'月D ='),COLORFFFFFF;
 DRAWNUMBER_FIX(ISLASTBAR,0.140,0.83,0,月D),COLORFFFFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.101,0.93,0,'月J ='),COLORFFFFFF;
 DRAWNUMBER_FIX(ISLASTBAR,0.140,0.93,0,月J),COLORFFFFFF;
 {}
 DRAWRECTREL(0,0,90,990,RGB(220,0,0));
 {月DIF:="MACD.DIF#MONTH"(12,26,9);
月DEA:="MACD.DEA#MONTH"(12,26,9);
周DIF:="MACD.DIF#WEEK"(12,26,9);
周DEA:="MACD.DEA#WEEK"(12,26,9);
日DIF:="MACD.DIF"(12,26,9);
日DEA:="MACD.DEA"(12,26,9);}
 DRAWTEXT_FIX(ISLASTBAR,0.018,0.03,0,'MACD(日/周/月)'),COLOR00FFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.01,0.18,0,'日DIF='),COLORFFFFFF;
 DRAWNUMBER_FIX(ISLASTBAR,0.05,0.18,0,日DIF),COLORFFFFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.01,0.31,0,'日DEA='),COLORFFFFFF;
 DRAWNUMBER_FIX(ISLASTBAR,0.05,0.31,0,日DEA),COLORFFFFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.01,0.44,0,'周DIF='),COLORFFFFFF;
 DRAWNUMBER_FIX(ISLASTBAR,0.05,0.44,0,周DIF),COLORFFFFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.01,0.57,0,'周DEA='),COLORFFFFFF;
 DRAWNUMBER_FIX(ISLASTBAR,0.05,0.57,0,周DEA),COLORFFFFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.01,0.70,0,'月DIF= '),COLORFFFFFF;
 DRAWNUMBER_FIX(ISLASTBAR,0.05,0.70,0, 月DIF),COLORFFFFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.01,0.83,0,'月DEA='),COLORFFFFFF;
 DRAWNUMBER_FIX(ISLASTBAR,0.05,0.83,0,月DEA),COLORFFFFFF;
通达信MACD KDJ日周月 顶底背离副图源码

 ☟问题反馈 ☞┄┄┄┄┄┄┄┄┄┄→收藏资源:

通达信MACD KDJ日周月 顶底背离副图源码

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

上传会员: 
股海网
文件大小: 
Bytes
上传时间: 
2016-07-10
下载积分: 
-
免责声明: 
请仔细阅读并同意后才能下载
本附件为用户分享上传,股海网没有对文件进行验证,不能保证下载资源的准确性、安全性和完整性,也不保证下载资源能正常安装和使用,且下载后扣除的积分无法退还,除非您充分理解并完全接受本声明,否则您无权下载。
本站对提供下载的软件、指标、资料等不拥有任何权利,其版权归该下载资源的合法拥有者所有。本附件仅供学习和研究使用,不得用于商业或者非法用途,如有侵犯您的版权, 请参看 《股海网侵权处理流程》《股海网免责声明条款》
点击下载无反应时,更换主流浏览器重新登录操作,如360浏览器、Edge浏览器、谷歌浏览器,个别浏览器有不兼容现象。
勾选以下表示您已经阅读并同意以上声明才能下载本文件,扣除积分无法退还!
我已阅读所有条款规定, 请点我同意 所有条款内容!我自愿下载!
提示:如下载失败,请点关闭刷新此页面或提交问题反馈给管理员→
关闭

关于我们 - 联系我们 - 隐私政策 - 免责声明 - 下载帮助 - 广告合作 - SiteMap - TOP
增值电信业务经营ICP许可证:湘B2-20210269 湘ICP备09016573号-10 湘公网安备43108102000040号
Copyright © 2021 铭网科技,All Rights Reserved.