当前位置:→ 股海网大智慧公式 → 正文
  • 千钧【霸占大牛股】公布源码

  • 相关简介:C/C++ Code 复制内容到剪贴板 指标源码: varl13:=STKINDI( '' , 'macd.diff' ,0,7); varl14:=STKINDI( '' , 'macd.dea' ,0,7); VL:=REF(LOW,1);VH:=REF(H,1); Var1:=SMA(ABS(H-Vh),13,1)/SMA(MAX(H-Vh,0),13,1)*100; Var2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)

  • 文章来源:择股网作者:股海网发布时间:2009-08-16浏览次数:下载次数:21

C/C++ Code复制内容到剪贴板
  1. 指标源码:   
  2.   
  3. varl13:=STKINDI('' ,'macd.diff',0,7);   
  4. varl14:=STKINDI('' ,'macd.dea',0,7);   
  5. VL:=REF(LOW,1); VH:=REF(H,1);   
  6. Var1:=SMA(ABS(H-Vh),13,1)/SMA(MAX(H-Vh,0),13,1)*100;    
  7. Var2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)*100;   
  8. Var3:=MA(Var1,13);    
  9. Var4:=MA(Var2,13);   
  10. Var5:=LLV(L,34);   
  11. Var6:=HHV(H,34);   
  12. Var7:=EMA(IF(H>=Var6,Var3,0),3);   
  13. Var8:=EMA(IF(L<=Var5,Var4,0),3);   
  14. var9:=(SMA(SMA((((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54))) * 100),7,1),5,1));   
  15. var10:=((SMA(((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54)) * 100),7,1)) * 16.18) - (var9* 10.9);   
  16. Var11:=FILTER(IF(var10<=var9 AND Var8>REF(Var8,1),Var8*8,0),55);   
  17. Var21:=LLV(LOW,60);   
  18. Var31:=HHV(HIGH,60);   
  19. Var41:=EMA((CLOSE-Var21)/(Var31-Var21)*100,13);   
  20. Var51:=EMA(0.667*REF(Var41,1)+0.333*Var41,21);   
  21. varl2:=FILTER(CROSS(Var51,Var41) AND Var41>84,13);   
  22. {K线}   
  23. STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),LOW,HIGH,0.1,0),colorred;   
  24. STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),OPEN,CLOSE,7,0),colorred;   
  25. STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),LOW,HIGH,0.1,0),colorcyan;   
  26. STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),OPEN,CLOSE,7,0),colorcyan;   
  27. STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;    
  28. STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR008800;   
  29. STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLOR009900;   
  30. STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00AA00;   
  31. STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00;   
  32. STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00CC00;   
  33. STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00;   
  34. STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00EE00;   
  35. STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00;   
  36. STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLORFFBBFF;   
  37. STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLORFF00FF;    
  38. STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLORFF22FF;   
  39. STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLORFF44FF;   
  40. STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLORFF66FF;   
  41. STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLORFF88FF;    
  42. STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLORFF99FF;   
  43. STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLORFFAAFF;   
  44. STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLORFFBBFF;   
  45. b:=BARSCOUNT(C)=SYSPARAM(2);   
  46. d:=BARSLAST(b);   
  47. hh:=hhv(h,d);   
  48. DRAWTEXTEX(c,1,20,0,STKLABEL+' '+STKNAME+' '),ColorFFFF80;   
  49. 换手率:=100*v/capital,colorfffFff;   
  50. RH:=H-L;   
  51. R:=DYNAINFO(14)*100;   
  52. DRAWTEXTEX(c,1,20,80,'当日涨幅:'+NUMTOSTR(R,2)+'%  日高低差:'+NUMTOSTR(RH,2)+'元'+'  当前换手率:'+NUMTOSTR(换手率,2)+'%  '+'  '),Color989500;   
  53. gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);   
  54. DRAWTEXT(BARSTATUS=2 and v>ref(v,1) and ma(v,5)>ref(ma(v,5),1),hh,'今日成交量大于昨日,且有继续增大趋势'+'           '),Color8285FF,pxdn90,align4,align2;   
  55. DRAWTEXT(BARSTATUS=2 and v<ref(v,1) and ma(v,5)>ref(ma(v,5),1),hh,'今日成交量小于昨日,但有放大迹象'+'           '),Color8285FF,pxdn90,align4,align2;   
  56. DRAWTEXT(BARSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1),hh,'今日成交量大于昨日, 但有缩小迹象'+'           '),Color8285FF,pxdn90,align4,align2;   
  57. DRAWTEXT(BARSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1),hh,'今日成交量小于昨日,且有缩小迹象'+'           '),Color8285FF,pxdn90,align4,align2;   
  58. 持股线:=MA(C,26);   
  59. PARTLINE(MA(C,5)>持股线,持股线),Color0000FF,LINETHICK2;   
  60. PARTLINE(MA(C,5)<持股线,持股线),Color00FF00,LINETHICK2;   
  61. qjj:FILTER((CROSS(varl13,varl14) and varl14<0 and CROSS(c,持股线)),90),LINETHICK0;   
  62. DRAWTEXTEX(c,1,20,400,'一发千钧告诫朋友:指标是参考,决策在人脑.\n \n锁定:分批建仓.霸占:满仓待涨.逃跑:遵守纪律.\n \n祝君:股海拾贝 沙海淘金'),Color989500;   
  63. var100:='所属板块:';   
  64. if inblock('电力')=1 then var100:=var100+' 电力';   
  65. if inblock('电脑')=1 then var100:=var100+' 电脑';   
  66. if inblock('电器')=1 then var100:=var100+' 电器';   
  67. if inblock('电子信息')=1 then var100:=var100+' 电子信息';   
  68. if inblock('房地产')=1 then var100:=var100+' 房地产';   
  69. if inblock('纺织服装')=1 then var100:=var100+' 纺织服装';   
  70. if inblock('钢铁')=1 then var100:=var100+' 钢铁';   
  71. if inblock('工程建筑')=1 then var100:=var100+' 工程建筑';   
  72. if inblock('供水供气')=1 then var100:=var100+' 供水供气';   
  73. if inblock('化工')=1 then var100:=var100+' 化工';   
  74. if inblock('化纤')=1 then var100:=var100+' 化纤';   
  75. if inblock('机械')=1 then var100:=var100+' 机械';   
  76. if inblock('建材')=1 then var100:=var100+' 建材';   
  77. if inblock('交通工具')=1 then var100:=var100+' 交通工具';   
  78. if inblock('交通设施')=1 then var100:=var100+' 交通设施';   
  79. if inblock('教育传媒')=1 then var100:=var100+' 教育传媒';   
  80. if inblock('金融')=1 then var100:=var100+' 金融';   
  81. if inblock('旅游酒店')=1 then var100:=var100+' 旅游酒店';   
  82. if inblock('煤炭石油')=1 then var100:=var100+' 煤炭石油';   
  83. if inblock('酿酒食品')=1 then var100:=var100+' 酿酒食品';   
  84. if inblock('农林牧渔')=1 then var100:=var100+' 农林牧渔';   
  85. if inblock('其他行业')=1 then var100:=var100+' 其他行业';   
  86. if inblock('汽车')=1 then var100:=var100+' 汽车';   
  87. if inblock('汽配')=1 then var100:=var100+' 汽配';   
  88. if inblock('商业连锁')=1 then var100:=var100+' 商业连锁';   
  89. if inblock('石化')=1 then var100:=var100+' 石化';   
  90. if inblock('通信')=1 then var100:=var100+' 通信';   
  91. if inblock('外贸')=1 then var100:=var100+' 外贸';   
  92. if inblock('医药')=1 then var100:=var100+' 医药';   
  93. if inblock('仪电仪表')=1 then var100:=var100+' 仪电仪表';   
  94. if inblock('有色金属')=1 then var100:=var100+' 有色金属';   
  95. if inblock('运输物流')=1 then var100:=var100+' 运输物流';   
  96. if inblock('造纸印刷')=1 then var100:=var100+' 造纸印刷';   
  97. if inblock('安徽')=1 then var100:=var100+' 安徽';   
  98. if inblock('北京')=1 then var100:=var100+' 北京';   
  99. if inblock('福建')=1 then var100:=var100+' 福建';   
  100. if inblock('甘肃')=1 then var100:=var100+' 甘肃';   
  101. if inblock('广东')=1 then var100:=var100+' 广东';   
  102. if inblock('广西')=1 then var100:=var100+' 广西';   
  103. if inblock('贵州')=1 then var100:=var100+' 贵州';   
  104. if inblock('海南')=1 then var100:=var100+' 海南';   
  105. if inblock('河北')=1 then var100:=var100+' 河北';   
  106. if inblock('河南')=1 then var100:=var100+' 河南';   
  107. if inblock('黑龙江')=1 then var100:=var100+' 黑龙江';   
  108. if inblock('湖北')=1 then var100:=var100+' 湖北';   
  109. if inblock('湖南')=1 then var100:=var100+' 湖南';   
  110. if inblock('吉林')=1 then var100:=var100+' 吉林';   
  111. if inblock('江苏')=1 then var100:=var100+' 江苏';   
  112. if inblock('江西')=1 then var100:=var100+' 江西';   
  113. if inblock('辽宁')=1 then var100:=var100+' 辽宁';   
  114. if inblock('内蒙古')=1 then var100:=var100+' 内蒙古';   
  115. if inblock('宁夏')=1 then var100:=var100+' 宁夏';   
  116. if inblock('青海')=1 then var100:=var100+' 青海';   
  117. if inblock('山东')=1 then var100:=var100+' 山东';   
  118. if inblock('山西')=1 then var100:=var100+' 山西';   
  119. if inblock('陕西')=1 then var100:=var100+' 陕西';   
  120. if inblock('上海')=1 then var100:=var100+' 上海';   
  121. if inblock('深圳')=1 then var100:=var100+' 深圳';   
  122. if inblock('四川')=1 then var100:=var100+' 四川';   
  123. if inblock('天津')=1 then var100:=var100+' 天津';   
  124. if inblock('***')=1 then var100:=var100+' ***';   
  125. if inblock('新疆')=1 then var100:=var100+' 新疆';   
  126. if inblock('云南')=1 then var100:=var100+' 云南';   
  127. if inblock('浙江')=1 then var100:=var100+' 浙江';   
  128. if inblock('重庆')=1 then var100:=var100+' 重庆';   
  129. if inblock('3G')=1 then var100:=var100+' 3G';   
  130. if inblock('H股')=1 then var100:=var100+' H股';   
  131. if inblock('QFII持股')=1 then var100:=var100+' QFII持股';   
  132. if inblock('ST')=1 then var100:=var100+' ST';   
  133. if inblock('奥运')=1 then var100:=var100+' 奥运';   
  134. if inblock('创投')=1 then var100:=var100+' 创投';   
  135. if inblock('次新股')=1 then var100:=var100+' 次新股';   
  136. if inblock('大盘')=1 then var100:=var100+' 大盘';   
  137. if inblock('股权改革')=1 then var100:=var100+' 股权改革';   
  138. if inblock('股权投资')=1 then var100:=var100+' 股权投资';   
  139. DD:=FINANCE( 1);   
  140. SS:=FINANCE( 7);   
  141. GG:=FINANCE(33);   
  142. TH:=DYNAINFO(39);   
  143. DRAWTEXTEX(c,1,20,240,'总股本:'+NUMTOSTR(DD,0)+'万股' +' 流通A股:'+NUMTOSTR(SS,0)+'万股\n \n'+'市盈率:'+NUMTOSTR(TH,2)+' 倍'+'  每股收益:'+NUMTOSTR(GG,3)+' 元'),Color989500;   
  144. DRAWTEXTEX(c,1,20,160,var100+' '),Color989500;   
  145. DRAWTEXT(var11,C*0.98,'锁定'),ColorFFFF00;   
  146. DRAWICON(qjj,C*1.09,1);   
  147. DRAWTEXT(qjj,l*0.78,'霸占大牛股'),COLOR00FFFF;   
  148. DRAWTEXT(varl2,C*1.04,'逃跑'),Colorgreen;   

 

下载链接:( 说明:股海资源如需解压密码的请输入本站域名:www.guhai.com.cn请仔细输入!)
本地下载 (免费下载)
 ☟问题反馈 ☞┄┄┄┄┄┄┄┄┄┄→收藏资源:

千钧【霸占大牛股】公布源码

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

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

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