当前位置:→ 股海网通达信公式 → 正文
  • KDJ全背离副图源码

  • 相关简介:DRAWGBK(C0, RGB(1,1,1),RGB(1,1,1),0,'0',0); STICKLINE(C0,120,120,28,-1)COLORBLACK; STICKLINE(C0,100,100,28,-1)COLOR000080; STICKLINE(C0,80,80,28,-1)COLOR000080; STICKLINE(C0,50,50,28,-1)COLOR000080; STICKLINE(C0,20,20,28,-1)COLOR000080; STICKLINE(C0,

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

DRAWGBK(C>0, RGB(1,1,1),RGB(1,1,1),0,'0',0);
 STICKLINE(C>0,120,120,28,-1)COLORBLACK;
 STICKLINE(C>0,100,100,28,-1)COLOR000080;
 STICKLINE(C>0,80,80,28,-1)COLOR000080;
 STICKLINE(C>0,50,50,28,-1)COLOR000080;
 STICKLINE(C>0,20,20,28,-1)COLOR000080;
 STICKLINE(C>0,0,0,28,-1)COLOR000080;
 STICKLINE(C>0,-20,-20,28,-1)COLORBLACK;

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
 K:SMA(RSV,3,1)COLORCYAN;
 D:SMA(K,3,1)COLORYELLOW;
 J:3*K-2*D,COLORMAGENTA;


 {K值,D值,J值的背离}
 {------------------------------------------------------------------------------}
N:=5;
 {}
 J底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.J,N)=LLV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=LLV(KDJ.J,N+1),1))+1)>C AND
 REF(KDJ.J,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.J,N)=LLV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=LLV(KDJ.J,N+1),1))+1)<KDJ.J AND
 FILTER(BACKSET(REF(KDJ.J,N)=LLV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=LLV(KDJ.J,N+1),COLORWHITE,NODRAW;
 DRAWLINE(FILTER(BACKSET(REF(KDJ.J,N)=LLV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=LLV(KDJ.J,N+1),KDJ.J,FILTER(J底背>0,5),KDJ.J,0),
 COLORWHITE,DOTLINE;
 DRAWTEXT(J底背,KDJ.J,'J底背'),COLORLIMAGENTA;
 J顶背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.J,N)=HHV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=HHV(KDJ.J,N+1),1))+1)<C AND
 REF(KDJ.J,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.J,N)=HHV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=HHV(KDJ.J,N+1),1))+1)>KDJ.J AND
 FILTER(BACKSET(REF(KDJ.J,N)=HHV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=HHV(KDJ.J,N+1),COLORGREEN,NODRAW;
 DRAWLINE(FILTER(BACKSET(REF(KDJ.J,N)=HHV(KDJ.J,2*N+1),N+1),N) AND KDJ.J=HHV(KDJ.J,N+1),KDJ.J,FILTER(J顶背>0,5),KDJ.J,0),
 COLORGREEN,DOTLINE;
 DRAWTEXT(J顶背,KDJ.J,'J顶背'),COLORMAGENTA;
 {------------------------------------------------------------------------------}
 K底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.K,N)=LLV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=LLV(KDJ.K,N+1),1))+1)>C AND
 REF(KDJ.K,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.K,N)=LLV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=LLV(KDJ.K,N+1),1))+1)<KDJ.K AND
 FILTER(BACKSET(REF(KDJ.K,N)=LLV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=LLV(KDJ.K,N+1),COLORWHITE,NODRAW;
 DRAWLINE(FILTER(BACKSET(REF(KDJ.K,N)=LLV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=LLV(KDJ.K,N+1),KDJ.K,FILTER(K底背>0,5),KDJ.K,0),
 COLORWHITE,DOTLINE;
 DRAWTEXT(K底背,KDJ.K,'K底背'),COLORWHITE;
 K顶背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.K,N)=HHV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=HHV(KDJ.K,N+1),1))+1)<C AND
 REF(KDJ.K,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.K,N)=HHV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=HHV(KDJ.K,N+1),1))+1)>KDJ.K AND
 FILTER(BACKSET(REF(KDJ.K,N)=HHV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=HHV(KDJ.K,N+1),COLORGREEN,NODRAW;
 DRAWLINE(FILTER(BACKSET(REF(KDJ.K,N)=HHV(KDJ.K,2*N+1),N+1),N) AND KDJ.K=HHV(KDJ.K,N+1),KDJ.K,FILTER(K顶背>0,5),KDJ.K,0),
 COLORGREEN,DOTLINE;
 DRAWTEXT(K顶背,KDJ.K,'K顶背'),COLORLIBLUE;
 {------------------------------------------------------------------------------}
 D底背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.D,N)=LLV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=LLV(KDJ.D,N+1),1))+1)>C AND
 REF(KDJ.D,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.D,N)=LLV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=LLV(KDJ.D,N+1),1))+1)<KDJ.D AND
 FILTER(BACKSET(REF(KDJ.D,N)=LLV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=LLV(KDJ.D,N+1),COLORWHITE,NODRAW;
 DRAWLINE(FILTER(BACKSET(REF(KDJ.D,N)=LLV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=LLV(KDJ.D,N+1),KDJ.D,FILTER(D底背>0,5),KDJ.D,0),
 COLORWHITE,DOTLINE;
 DRAWTEXT(D底背,KDJ.D,'D底背'),COLORYELLOW;
 D顶背:REF(C,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.D,N)=HHV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=HHV(KDJ.D,N+1),1))+1)<C AND
 REF(KDJ.D,BARSLAST(REF(FILTER(BACKSET(REF(KDJ.D,N)=HHV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=HHV(KDJ.D,N+1),1))+1)>KDJ.D AND
 FILTER(BACKSET(REF(KDJ.D,N)=HHV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=HHV(KDJ.D,N+1),COLORGREEN,NODRAW;
 DRAWLINE(FILTER(BACKSET(REF(KDJ.D,N)=HHV(KDJ.D,2*N+1),N+1),N) AND KDJ.D=HHV(KDJ.D,N+1),KDJ.D,FILTER(D顶背>0,5),KDJ.D,0),
 COLORGREEN,DOTLINE;
 DRAWTEXT(D顶背,KDJ.D,'D顶背'),COLOR4080FF;


 {以下是金叉死叉背离}
 {}
A2:=BARSLAST(REF(CROSS(K,D),1));
 B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);
 DRAWTEXT((B2>0),-10,'_金叉底背'),COLORLIRED;
 STICKLINE((B2>0),-10,50,0,-1)COLORLIRED;
 {DRAWLINE((B2>0),K,B2,K,0),COLORLIRED,DOTLINE;}{金叉底背画线};
 {}
C2:=BARSLAST(REF(CROSS(D,K),1));
 D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);
 DRAWTEXT((D2>0),110,'_死叉顶背'),COLORLICYAN;
 STICKLINE((D2>0),110,50,0,-1)COLORLICYAN;
 {DRAWLINE((D2>0),K,D2,K,0),COLORGREEN,DOTLINE;}{死叉顶背画线};

KDJ全背离副图源码

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

KDJ全背离副图源码

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

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

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