公式网 股票指标公式源码分享 登录 注册
公式指标平网
未来函数检测
首页 金钻指标 通达信公式 大智慧公式 同花顺公式 文华财经公式 东财通公式 飞狐公式 操盘手公式 其他公式 公式解答 股票软件 股票池
当前位置：→ 公式网 > 通达信公式 > 正文 → 正文

老狼的四合一顶底背离公式源码及使用说明,(MACD,RSI,KDJ,DMI)(附大智慧源码)

发布时间：2009/9/23 17:03:31  浏览次数：

 

 

C/C++ Code复制内容到剪贴板
  1. {四合一背离}   
  2.   
  3. {研判原则:   
  4. 这是MACD,RSI,KDJ,DMI指标组合的顶底背离指标,   
  5. 0线上不同颜色柱是顶背离,也就是相对顶部,   
  6. 0线下不同颜色的柱是底背离,也就是相对底部.   
  7. 该指标的主要特点是:   
  8. 运用MACD这个指标的同时可看到其它几个指标的顶底预测点位,   
  9. 为你介入卖出股票提供全方位的参考.}   
  10.   
  11.   
  12.   
  13. {大智慧}【已经修改了大智慧可以用】   
  14. DIFF :=EMA(CLOSE,12) - EMA(CLOSE,26);   
  15. DEA  :=EMA(DIFF,9);   
  16. MACD :=(DIFF-DEA)*2;   
  17. TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);   
  18. HD := HIGH-REF(HIGH,1);   
  19. LD := REF(LOW,1)-LOW;   
  20. PDM:= SUM(IF(HD>0 AND HD>LD,HD,0),14);   
  21. MDM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);   
  22. PDI:= PDM*100/TR;   
  23. MDI:= MDM*100/TR;   
  24. A1:=BARSLAST(ref(cross("macd.diff"(12,26,9),"macd.dea"(12,26,9)),1));   
  25. B1:=ref(c,A1+1)>c and ref("macd.diff"(12,26,9),A1+1)<"macd.diff"(12,26,9) and cross("macd.diff"(12,26,9),"macd.dea"(12,26,9));   
  26. A2:=BARSLAST(ref(cross("kdj.k"(9,3,3),"kdj.d"(9,3,3)),1));   
  27. 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));   
  28. A3:=BARSLAST(ref(cross("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));   
  29. 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));   
  30. C1:=BARSLAST(ref(cross("macd.dea"(12,26,9),"macd.diff"(12,26,9)),1));   
  31. D1:=ref(c,C1+1)<c and ref("macd.diff"(12,26,9),C1+1)>"macd.diff"(12,26,9) and cross("macd.dea"(12,26,9),"macd.diff"(12,26,9));   
  32. C2:=BARSLAST(ref(cross("kdj.d"(9,3,3),"kdj.k"(9,3,3)),1));   
  33. 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));   
  34. C3:=BARSLAST(ref(cross("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));   
  35. 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));   
  36. C4:=BARSLAST(ref(cross(mdi,pdi),1));   
  37. D4:=ref(c,C+1)<c and ref(mdi,C4+1)>mdi and cross(mdi,pdi);   
  38. A4:=BARSLAST(ref(cross(PDI,MDI),1));   
  39. B4:=ref(c,A4+1)>c and ref(pdi,A4+1)<pdi and cross(pdi,mdi);   
  40.   
  41. DMI底背:IF(B4>0,-0.1,0),COLOR0099FF,POINTDOT;   
  42. MACD底背:if(B1>0,-0.1,0),colorred,pointdot;   
  43. KDJ底背:if(B2>0,-0.1,0),colorff00ff,pointdot;   
  44. RSI底背:if(B3>0,-0.1,0),coloryellow,pointdot;   
  45.   
  46. DMI顶背:IF(D4>0,0.1,0),COLORBLUE,POINTDOT;   
  47. MACD顶背:if(D1>0,0.1,0),color00ff00,pointdot;   
  48. KDJ顶背:if(D2>0,0.1,0),colorffcc66,pointdot;   
  49. RSI顶背:if(D3>0,0.1,0),colorwhite,pointdot;   
  50. STICKLINE(B1>0,-0.1,0,6,0),colorred;   
  51. STICKLINE(B2>0,-0.1,0,6,0),colorff00ff;   
  52. STICKLINE(B3>0,-0.1,0,6,0),coloryellow;   
  53. STICKLINE(d1>0,0.1,0,6,0),color00ff00;   
  54. STICKLINE(d2>0,0.1,0,6,0),colorffcc66;   
  55. STICKLINE(d3>0,0.1,0,6,0),colorwhite;   
  56. STICKLINE(B4>0,-0.1,0,6,0),color0099ff;   
  57. STICKLINE(D4>0,0.1,0,6,0),colorblue;   
C/C++ Code复制内容到剪贴板
  1. {通达信}   
  2.   
  3. {N1=12;N2=26;N3=9;N4=14;N5=24}   
  4. DIFF :=EMA(CLOSE,N1) - EMA(CLOSE,N2);   
  5. DEA   :=EMA(DIFF,N3);   
  6. TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),N4);   
  7. HD := HIGH-REF(HIGH,1);   
  8. LD := REF(LOW,1)-LOW;   
  9. PDM:= SUM(IF(HD>0 AND HD>LD,HD,0),N4);   
  10. MDM:= SUM(IF(LD>0 AND LD>HD,LD,0),N4);   
  11. PDI:= PDM*100/TR;   
  12. MDI:= MDM*100/TR;   
  13. A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));   
  14. B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);   
  15. A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));   
  16. 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));   
  17. A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));   
  18. 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));   
  19. C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));   
  20. D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);   
  21. C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));   
  22. 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));   
  23. C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));   
  24. 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));   
  25. C4:=BARSLAST(REF(CROSS(MDI,PDI),1));   
  26. D4:=REF(C,C+1)<C AND REF(MDI,C4+1)>MDI AND CROSS(MDI,PDI);   
  27. A4:=BARSLAST(REF(CROSS(PDI,MDI),1));   
  28. B4:=REF(C,A4+1)>C AND REF(PDI,A4+1)<PDI AND CROSS(PDI,MDI);   
  29. DMI底背:IF(B4>0,-0.1,0),COLOR0099FF,POINTDOT;   
  30. MACD底背:IF(B1>0,-0.1,0),COLORRED,POINTDOT;   
  31. KDJ底背:IF(B2>0,-0.1,0),COLORFF00FF,POINTDOT;   
  32. RSI底背:IF(B3>0,-0.1,0),COLORYELLOW,POINTDOT;   
  33. DMI顶背:IF(D4>0,0.1,0),COLORBLUE,POINTDOT;   
  34. MACD顶背:IF(D1>0,0.1,0),COLOR00FF00,POINTDOT;   
  35. KDJ顶背:IF(D2>0,0.1,0),COLORFFCC66,POINTDOT;   
  36. RSI顶背:IF(D3>0,0.1,0),COLORWHITE,POINTDOT;   
  37. STICKLINE(B1>0,-0.1,0,3,0),COLORRED;   
  38. STICKLINE(B2>0,-0.1,0,3,0),COLORFF00FF;   
  39. STICKLINE(B3>0,-0.1,0,3,0),COLORYELLOW;   
  40. STICKLINE(D1>0,0.1,0,3,0),COLOR00FF00;   
  41. STICKLINE(D2>0,0.1,0,3,0),COLORFFCC66;   
  42. STICKLINE(D3>0,0.1,0,3,0),COLORWHITE;   
  43. STICKLINE(B4>0,-0.1,0,3,0),COLOR0099FF;   
  44. STICKLINE(D4>0,0.1,0,3,0),COLORBLUE;   
资源下载链接   资源大小：22KB
精品资源推荐
公式指标栏目导航

手机移动版 - 关于我们 - 联系我们 - 广告合作 - 下载声明 - 网站帮助 - 友情链接 - 网站地图 - TOP
湘ICP备09016573号-3 增值电信业务经营ICP许可证：湘B2-20210269 湘公网安备43108102000039号
Copyright © GSZX.COM.CN ,All Rights Reserved.
股票公式,股票指标,股票软件,股票知识