当前位置:→ 股海网大智慧公式 → 正文
  • 大智慧同舟共济六个基本指标副图源码

  • 相关简介:由于本人年老体衰发此告别帖希望给大家留个念想,本公式涵盖【KDJ】【CCI】【MACD】【DMA】【RSI】【WR】六大指标,我认为是【原创】请笑纳 每个指标包涵:----- 第一:原来的基本公式------以虚线出现在图上. 第二:变相的原指标适用于做波段及时发现高低点有利于找出买卖点.-------用粗线表示 第三:配合对应大盘的相应指标及时发现大盘的走向和个股的关联,-------以点线表示, 第四:个公式之间可利用调整参数开关,对比,查阅.背景也跟指标变化以示区别, 第五:你每次就显示一

  • 文章来源:股海网作者:股海网发布时间:2012-04-05浏览次数:下载次数:0

由于本人年老体衰发此告别帖希望给大家留个念想,本公式涵盖【KDJ】【CCI】【MACD】【DMA】【RSI】【W&R】六大指标,我认为是【原创】请笑纳
 每个指标包涵:-----
 第一:原来的基本公式------以虚线出现在图上.
 第二:变相的原指标适用于做波段及时发现高低点有利于找出买卖点.-------用粗线表示
 第三:配合对应大盘的相应指标及时发现大盘的走向和个股的关联,-------以点线表示,
 第四:个公式之间可利用调整参数开关,对比,查阅.背景也跟指标变化以示区别,
 第五:你每次就显示一个指标否则图面太烂,太花,一带六编时复杂些 你会用,各用各的,用起来并不复杂。
 第六:既然是告别恕我不再解答,自己梦自己原吧,好心人可替代我解答;也可改为【通达信】的。只要记得我就行,
 

{同舟共济}
input:N(1,0,1),M(1,0,1),P(1,0,1),G(1,0,1),S(1,0,1),W(1,0,1);
IF N=1 THEN BEGIN
DRAWGBKlast(DATE>900101,strip(RGB(0,60,0),RGB(0,0,0),0));
DRAWTEXTABS(50,8,'【KDJ--9,18】'),Color0077FF,LINETHICK4;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),COLORFF9000,DOTLINE;
D:SMA(K,3,1),COLOR00FF00,DOTLINE;
J:(3*K-2*D),COLOR0000FF,DOTLINE;
J18:EMA(EMA("KDJ.J"(18,3,3),5),8),COLORFF9900,LINETHICK1;
PARTLINE(J18,J18>REF(J18,1),rgb(255,0,0)),LINETHICK3,LAYER0;

{大盘KDJ}
DPRSV:=(INDEXC-LLV(INDEXL,18))/(HHV(INDEXH,18)-LLV(INDEXL,45))*100;
DPK:=SMA(DPRSV,3,1);
DPD:=SMA(DPK,3,1);
DPJ:EMA((3*DPK-2*DPD),5),COLOR00FFFF;
PARTLINE(DPJ,(DPJ>REF(DPJ,1))-1,rgb(0,255,0),1,rgb(255,0,0) ),POINTDOT,LINETHICK6,LAYER1;
END;

IF M=1 THEN BEGIN
DRAWGBKlast(DATE>900101,strip(RGB(0,0,150),RGB(0,0,0),0));
DRAWTEXTABS(200,8,'【CCI--14,18】'),Color00FFFF,LINETHICK4;
TYP := (HIGH + LOW + CLOSE)/3;
CCI:(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14))/2,DOTLINE;
CCIJ:EMA(EMA(EMA((TYP-WMA(TYP,18))/(0.015*AVEDEV(TYP,18)),4),6),8),colorFF9900;
Xl:=slope(CCIJ,3)>0;
PARTLINE(CCIJ,Xl,rgb(255,0,0)),LINETHICK3,LAYER2;

{大盘CCI}
TYPD := (INDEXH + INDEXL + INDEXC)/3;
大盘CCI:EMA(EMA(EMA((TYPD-WMA(TYPD,18))/(0.015*AVEDEV(TYPD,18)),4),6),8),color00FFFF,DOTLINE;
大盘Xl:=slope(大盘CCI,3)>0;
PARTLINE(大盘CCI,(大盘Xl)-1,rgb(0,200,0),1,rgb(200,0,0) ),POINTDOT,LINETHICK5;
END;
IF P=1 THEN BEGIN
DRAWGBKlast(DATE>900101,strip(RGB(80,80,0),RGB(0,0,0),0));
DRAWTEXTABS(350,8,'【MACD--11,21,5】'),Color0000FF,LINETHICK4;
DIFF :EMA( EMA(CLOSE,11) - EMA(CLOSE,21),3),COLOR0000FF,LINETHICK2;
DEA  : EMA(DIFF,5),COLOR00FF00,LINETHICK2;
MACD : 2*(DIFF-DEA),LINETHICK0;
STICKLINE(MACD>0,MACD,0,2,0),Color0000FF;
STICKLINE(MACD<0,MACD,0,2,0),Color00FF00;
{大盘MACD}
DIFF大盘 :EMA( EMA(INDEXC,11) - EMA(INDEXC,21),3)/100,Color00FFFF,DOTLINE;
DEA大盘  : EMA(DIFF大盘,5),ColorFF9900,DOTLINE;
MACD大盘 := 2*(DIFF大盘-DEA大盘);
STICKLINE(MACD大盘>0,-0.4+MACD大盘,-0.4,1,0),Color00FFFF;
STICKLINE(MACD大盘<0,-0.4+MACD大盘,-0.4,1,0),ColorFF9900;
END;
IF G=1 THEN BEGIN
DRAWGBKlast(c>0,strip(RGB(0,40,0),RGB(0,0,40),0));;
DRAWTEXTABS(500,8,'【DMA--10,50,10】'),ColorFF00FF,LINETHICK4;
DDD:EMA((MA(CLOSE,10)-MA(CLOSE,50)),5);
AMA:MA(DDD,10),COLOR00FFFF;
FILLRGN(DDD,AMA,DDD>AMA,RGB(120,0,80)),LAYER7;
FILLRGN(DDD,AMA,DDD<AMA,RGB(0,80,0)),LAYER7;
{大盘DMA}
大盘DDD:EMA((MA(INDEXC,10)-MA(INDEXC,50)),5)/INDEXC*CLOSE*2,Color0077FF,DOTLINE;
大盘AMA:MA(大盘DDD,10),COLORFF9900,DOTLINE;
END;
IF S=1 THEN BEGIN
DRAWGBKlast(c>0,strip(RGB(0,40,0),RGB(0,0,100),0));;
DRAWTEXTABS(650,8,'【RSI--14】'),Color00FF00,LINETHICK4;
LC := REF(CLOSE,1);
RSI:SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100,COLORFF9900;
MRSI:EMA(EMA(EMA(RSI,3),6),9),COLOR00FF00;
PARTLINE(MRSI,MRSI>REF(MRSI,1),rgb(255,0,0)),LINETHICK3,LAYER0;
DRAWTEXT(CROSS(ref(MRSI,1),MRSI) ,MRSI*1.06,'▼'),COLOR0598FF,ALIGN1,LINETHICK1;
{大盘RSI}
DPLC := REF(INDEXC,1);
DPRSI:=SMA(MAX(INDEXC-DPLC,0),14,1)/SMA(ABS(INDEXC-DPLC),14,1)*100;
DPMRSI:EMA(EMA(EMA(DPRSI,3),6),9),COLORFF9900;
PARTLINE(DPMRSI,(DPMRSI>REF(DPMRSI,1))-1,rgb(0,255,0),1,rgb(255,0,0) ),POINTDOT,LINETHICK4,LAYER1;
END;

IF W=1 THEN BEGIN
DRAWGBKlast(DATE>900101,strip(RGB(0,80,0),RGB(0,0,0),0));
DRAWTEXTABS(800,8,'【W&R--14反向用】'),Color00FFFF,LINETHICK4;
WR1:-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)),Color00FF00;
WR2:-100*(HHV(HIGH,20)-CLOSE)/(HHV(HIGH,20)-LLV(LOW,20)),Color00FFff,DOTLINE;
WRM:EMA(EMA(EMA(WR1,3),6),9),Color00FFFF,LINETHICK1;
PARTLINE(WRM,WRM>REF(WRM,1),rgb(255,0,0)),LINETHICK4,LAYER0;
DRAWTEXT(CROSS(REF(WRM,1),WRM) ,WRM*0.85,'▼'),COLOR0598FF,ALIGN1,LINETHICK1;
DPWR1:=-100*(HHV(INDEXH,14)-INDEXC)/(HHV(INDEXH,14)-LLV(INDEXL,14));
DPMWR1:EMA(EMA(EMA(DPWR1,3),6),9),COLORFF9900;
PARTLINE(DPMWR1,(DPMWR1>REF(DPMWR1,1))-1,rgb(0,255,0),1,rgb(255,0,0) ),POINTDOT,LINETHICK4,LAYER1;
END;

大智慧同舟共济六个基本指标副图源码

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

大智慧同舟共济六个基本指标副图源码

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

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

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