当前位置:→ 股海网大智慧公式 → 正文
  • 红色主图(5) 源码

  • 相关简介:C/C++ www.zegu.cn 择股网提供 Code 复制内容到剪贴板 input:n(5,1,100,1); MA5:MA(C,5),color000099; MA10:MA(C,10),color006600; MA20:MA(C,20),color005555; STICKLINE(c=ref(c,1),o,c,7,0),colorwhite; STICKLINE(cref(c,1),o,c,7,0),colorgreen; A1:=EMA(CLOS

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

 

C/C++ www.zegu.cn 择股网提供 Code复制内容到剪贴板
  1. input:n(5,1,100,1);   
  2. MA5:MA(C,5),color000099;   
  3. MA10:MA(C,10),color006600;   
  4. MA20:MA(C,20),color005555;   
  5.   
  6. STICKLINE(c>=ref(c,1),o,c,7,0),colorwhite;   
  7. STICKLINE(c<ref(c,1),o,c,7,0),colorgreen;   
  8.   
  9. A1:=EMA(CLOSE,5)>EMA(CLOSE,6) and EMA(CLOSE,6)>EMA(CLOSE,7) and EMA(CLOSE,7)>EMA(CLOSE,8) and EMA(CLOSE,8)>EMA(CLOSE,9)   
  10. and EMA(CLOSE,9)>EMA(CLOSE,10) and EMA(CLOSE,10)>EMA(CLOSE,11) and EMA(CLOSE,11)>EMA(CLOSE,12)   
  11. and EMA(CLOSE,12)>EMA(CLOSE,13) and EMA(CLOSE,13)>EMA(CLOSE,14) and EMA(CLOSE,14)>EMA(CLOSE,15)   
  12. and EMA(CLOSE,15)>EMA(CLOSE,20) and EMA(CLOSE,20)>EMA(CLOSE,30) and EMA(CLOSE,30)>EMA(CLOSE,60) and EMA(CLOSE,60)>EMA(CLOSE,90)   
  13. and EMA(CLOSE,90)>EMA(CLOSE,120) and EMA(CLOSE,120)>EMA(CLOSE,250);   
  14. A2:=EMA(CLOSE,5)>EMA(CLOSE,6) and EMA(CLOSE,6)>EMA(CLOSE,7) and EMA(CLOSE,7)>EMA(CLOSE,8) and EMA(CLOSE,8)>EMA(CLOSE,9)   
  15. and EMA(CLOSE,9)>EMA(CLOSE,10) and EMA(CLOSE,10)>EMA(CLOSE,11) and EMA(CLOSE,11)>EMA(CLOSE,12)   
  16. and EMA(CLOSE,12)>EMA(CLOSE,13) and EMA(CLOSE,13)>EMA(CLOSE,14);   
  17. B1:=IF(a1,1,2);   
  18.   
  19. VAR1:=((CLOSE > REF(CLOSE,1)) AND (CLOSE > REF(CLOSE,2)));   
  20. VAR2:=((REF(VAR1,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  21. VAR3:=((REF(VAR2,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  22. VAR4:=((REF(VAR3,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  23. VAR5:=((REF(VAR4,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  24. VAR6:=((REF(VAR5,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  25. VAR7:=((REF(VAR6,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  26. VAR8:=((REF(VAR7,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  27. VAR9:=((REF(VAR8,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  28. VARA:=((REF(VAR9,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  29. VARB:=((REF(VARA,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  30. VARC:=((REF(VARB,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  31. STICKLINE((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),C,REF(C,1),7,0),Color0000DD;   
  32. STICKLINE((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),L,H,0.7,0),Color0000DD;   
  33.   
  34. MTM:=C-REF(C,1);   
  35. DX1:=100*EMA(EMA(MTM,N),N)/EMA(EMA(ABS(MTM),N),N);   
  36. 买1:=IF(LLV(DX1,2)=LLV(DX1,7) AND COUNT(DX1<0,2) AND CROSS(DX1,MA(DX1,2)),1,0);   
  37. 卖1:=IF(HHV(DX1,2)=HHV(DX1,7) AND COUNT(DX1>50,2) AND CROSS(MA(DX1,2),DX1),1,0);   
  38. DRAWTEXT(filter(卖1=1,5),high*1.02, ' '),color00ff00,ALIGN1;   
  39. DRAWTEXT(filter(买1=1,5),low*0.99, ' '),colorRED,ALIGN1;   
  40. DRAWICON(filter(买1=1,5),low*0.99,7),ALIGN1;   
  41. DRAWICON(filter(卖1=1,5),high*1.04, 8),ALIGN1;   
  42.   
  43. V1:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4.15),0.9);   
  44. HY1:=REF(EMA(V1,3),1);   
  45. DRAWTEXT(CROSS(CLOSE,HY1),LOW,'B'),LINETHICK2,COLORYELLOW;   
  46.   
  47. TT2:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4.15),0.9);   
  48. TT1:=REF(EMA(TT2,3),1);   
  49. RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;   
  50. K:=SMA(RSV,3,1);   
  51. D:=SMA(K,3,1);   
  52. J:=3*K-2*D;   
  53. LC:=REF(CLOSE,1);   
  54. RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);   
  55. FF:=EMA(CLOSE,3);   
  56. DRAWTEXT(CROSS(CLOSE,TT1)AND J<55,LOW,'买'),COLORRED;   
  57. DRAWTEXT(CROSS(88,RSI),HIGH * 1.02,'顶'),COLOR00FFFF;   
  58. DRAWTEXT(CROSS(80,RSI),HIGH * 1.02,'逃'),COLOR00FFFF;   
  59.   
  60. {老鼠仓}   
  61. AA1:=AMOUNT/V;   
  62. BB1:=L<AA1*0.9;   
  63. CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;   
  64. DD1:=L<MA(C,5)*0.921;   
  65. EE1:=V<MA(V,5)*1.5;   
  66. 老鼠仓:BB1 AND CC1 AND DD1 AND EE1,linethick0;   
  67. DRAWTEXT(老鼠仓,(LOW* 0.99),'老鼠仓'),Color40CCFF;   
  68.   
  69. DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);   
  70. DEA:=EMA(DIFF,9);   
  71. MACD:=2*(DIFF-DEA);   
  72. A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));   
  73. B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);   
  74. DRAWICON(FILTER(B1>0,5),L*0.94,10);   
  75. DRAWTEXT(FILTER(B1>0,5),L*0.96,'M底'),COLOR0055ff;{MACD底背离}   
  76. A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));   
  77. 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));   
  78. DRAWICON(FILTER(B2>0,5),L*0.96,10);   
  79. DRAWTEXT(FILTER(B2>0,5),L*0.98,'K底'),COLORff00ff;{KDJ底背离}   
  80. A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));   
  81. 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));   
  82. DRAWICON(FILTER(B3>0,5),L*0.98,10);   
  83. DRAWTEXT(FILTER(B3>0,5),L*0.97,'R底'),COLORyellow;{RSI底背离}   
  84. C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));   
  85. D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);   
  86. DRAWICON(FILTER(D1>0,5),H*1.07,12);   
  87. DRAWTEXT(FILTER(D1>0,5),H*1.02,'M顶'),COLORwhite;{MACD顶背离}   
  88. C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));   
  89. 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));   
  90. DRAWICON(FILTER(D2>0,5),H*1.05,12);   
  91. DRAWTEXT(FILTER(D2>0,5),H*1.03,'K顶'),COLORf0f000;{KDJ顶背离}   
  92. C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));   
  93. 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));   
  94. DRAWICON(FILTER(D3>0,5),H*1.03,12);   
  95. DRAWTEXT(FILTER(D3>0,5),H*1.01,'R顶'),COLOR00ff00;{RSI顶背离};   
  96.   
  97. RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;   
  98. K:=SMA(RSV,3,1);   
  99. D:=SMA(K,3,1);   
  100. J:=3*K-2*D;   
  101. X:=LLV(J,2)=LLV(J,8);   
  102. Y:=IF(CROSS(J,REF(J+0.01,1)) AND X AND J<20,30,0);   
  103. DRAWTEXT(CROSS(J,REF(J+0.01,1)) AND X AND J<20,LOW,'短进'),COLORFF00FF;   
  104.   
  105. DRAWTEXT((MA(CLOSE,13) > MA(CLOSE,18)) AND CROSS(CLOSE,MA(CLOSE,4)) AND (MA(CLOSE,4) < MA(CLOSE,13)),(LOW)*(0.97),'赢'),COLOR00FF00;   
  106.   
  107. VAR1:=4*SMA((CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100,5,1)-   
  108. 3*SMA(SMA((CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100,5,1),3.2,1);   
  109. VAR2:=8;    
  110. CC:=CROSS(VAR1,VAR2);    
  111. DRAWTEXT(CC,L*0.98,'买!'),COLOR0099FF;   

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

红色主图(5) 源码

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

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

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