公式网-网站导航


网站搜索：  

股票公式指标网 发表于2010/1/27 9:01:05

神獒掌控主图选股公式(附源码)

该源码从网上收集的，适用于大智慧。

注意，选出的股票并不是入市建议，仅供参考。更多操作建议，请参考《神獒赢富-主力机构资金动向及持仓分析选股决策系统说明书》。

此为第一版，原代码还有，只是做成注解。如果以后有优化更新，将在此贴更新。因为是选股专用，因此没有贴图。
请注意，因为公式运算较复杂，所以运算时间较长。

条件选股，值等于5。一定要选中还权再执行选股。

可选以下值进行选股：
正买点、S卖点、三分一出、三分一进、二分一进、满仓出击、小顶、波段小底、波段大底、波段小底2、中期大底

以下为源码：

C/C++ www.gszb.com 股票公式指标网提供 Code复制内容到剪贴板
  1. {㊣神獒掌控主图选股公式㊣}   
  2. input:N(88,1,1111),N1(888,1,1111);   
  3. {DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));}   
  4. a1:=IF((CLOSE < 800),((AMOUNT / VOL) / 100),((((CLOSE * 2) + HIGH) + LOW) / 4));   
  5. a2:=((HHV(HIGH,15)) + (LLV(LOW,30))) / 2;   
  6. a3:=EMA((MA(a1,5)),10);   
  7. a4:=EMA((MA(a1,15)),10);   
  8. a5:=EMA((MA(a1,13)),21);   
  9. a6:=((a3 + a4) + a5) / 3;   
  10. 决策线:=EMA((MA(CLOSE,5)),3);   
  11. {决策线:EMA((MA(CLOSE,5)),3),colorGreen;   
  12. PARTLINE(决策线,决策线 > (REF(决策线,3)),RGB(255,0,0)),linethick1,colorRed; }   
  13. 多空带:=((((REF(a6,1)) + a6) + (REF(a6,2))) / 3);   
  14. {多空带:((((REF(a6,1)) + a6) + (REF(a6,2))) / 3),linethick0;}   
  15. a7:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 1.191;   
  16. a8:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 1.236;   
  17. a9:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.809;   
  18. a10:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.764;   
  19. a11:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.618;   
  20. 地线:=(a9);   
  21. 天线:=(a7);   
  22. 支撑线:=(a10);   
  23. 阻力线:=(a8);   
  24. {地线:(a9),linethick1,Coloryellow;   
  25. 天线:(a7),linethick1,ColorFF0000;   
  26. 支撑线:(a10),linethick2,Color73740F;   
  27. 阻力线:(a8),linethick2,Color509046;}   
  28. a12:=((EMA((MA(a1,3)),3)) + (WMA(a1,5))) / 2;   
  29. a13:=REF(a12,1);   
  30. a14:=BARSCOUNT(CLOSE);   
  31. a15:=IF((a14 = 1),0,(((a12 - a13) / a13) * 100));   
  32. a16:=REF(CLOSE,1);   
  33. a17:=IF((a14 = 1),0,(((CLOSE - a16) / a16) * 100));   
  34. a18:=IF((a14 = 1),((CLOSE + OPEN) / 2),a13);   
  35. a19:=REF(a12,2);   
  36. a20:=((a12 + a13) + a19) / 3;   
  37. a21:=((ABS((a12 - a20)) + ABS((a13 - a20))) + ABS((a19 - a20))) / 3;   
  38. a22:=IF((a14 < 3),0,((a21 / a12) * 100));   
  39. a23:=IF((((a15 > 0.5) AND ((a22 > 0.215) OR (LOW > a18))) AND (CLOSE >= OPEN)),1,0);   
  40. a24:=IF((((a15 < (0 - 0.3)) AND ((a22 > 0.2) OR (HIGH < a18))) AND ((OPEN >= CLOSE) OR (a17 < -1))),1,0);   
  41. {FILLRGN((((REF(a6,1)) + a6) + (REF(a6,2))) / 3,(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.985,CLOSE > a2,RGB(250,0,0),CLOSE < a2,RGB(101,0,185));}   
  42. B:=((COUNT(a23,BARSLAST(a24))) = 1) AND a23;   
  43. D:=((COUNT(a24,BARSLAST(a23))) = 1) AND a24;   
  44. {B:((COUNT(a23,BARSLAST(a24))) = 1) AND a23,linethick0;   
  45. D:((COUNT(a24,BARSLAST(a23))) = 1) AND a24,linethick0; }   
  46. 正买点: if(B,5,0);   
  47. {DRAWTEXT(B,(LOW * 0.98),'㊣'),linethick3,ALIGN1,colorWhite;}   
  48. S卖点: if(D,5,0);   
  49. {DRAWTEXT(D,(HIGH * 1.035),'Ｓ'),linethick3,ALIGN1,colorGreen;}   
  50. {STICKLINE(((B > 0) OR (D > 0)),a1,(a1 * 0.998),8,0),ColorFF0000;}   
  51. a25:=(EMA(CLOSE,12)) - (EMA(CLOSE,26));   
  52. a26:=EMA(a25,9);   
  53. a27:=2 * (a25 - a26);   
  54. a28:=IF((((((((REF(a27,1)) < (REF(a27,2))) AND ((REF(a27,2)) < (REF(a27,3)))) AND (a27 > (REF(a27,1)))) AND (a27 >= 0)) AND ((LLV(a27,4)) > 0)) AND (COUNT((a27 < 0.18),5))),(a27 * 2),0);   
  55. a29:=IF(((COUNT((CROSS(a26,a25)),8)) AND (CROSS(a25,a26))),(a27 * 4),0);   
  56. a30:=(a28 > 0) AND (CLOSE >= (((REF(a6,1)) + a6) + (REF(a6,2))) / 3);   
  57. {DRAWICON(a30,LOW,12),ALIGN1;}   
  58. a31:=(((CLOSE / a16) - 1) * 100) >= 7;   
  59. a32:=HIGH - ((HIGH - LOW) / 3);   
  60. a33:=LOW + ((HIGH - LOW) / 3);   
  61. a34:=(CLOSE > 0) AND a31;   
  62. a35:=((HIGH - LOW) * 0.618) + LOW;   
  63. a36:=((HIGH - LOW) * 0.382) + LOW;   
  64. {STICKLINE(a34,a32,a33,8,0),colorYellow;   
  65. STICKLINE(a34,((HIGH + LOW) / 2),((HIGH + LOW) / 2),8,0);   
  66. STICKLINE(a34,CLOSE,a35,8,0),colorRed;   
  67. STICKLINE(a34,CLOSE,a35,7,0),Color1414FF;   
  68. STICKLINE(a34,CLOSE,a35,6,0),Color2828FF;   
  69. STICKLINE(a34,CLOSE,a35,5,0),Color3D3DFF;   
  70. STICKLINE(a34,CLOSE,a35,4,0),Color5151FF;   
  71. STICKLINE(a34,CLOSE,a35,3,0),Color6565FF;   
  72. STICKLINE(a34,CLOSE,a35,2,0),Color7A7AFF;   
  73. STICKLINE(a34,CLOSE,a35,1,0),Color8E8EFF;   
  74. STICKLINE(a34,a36,OPEN,8,0),colorGreen;   
  75. STICKLINE(a34,a36,OPEN,7,0),Color28FF28;   
  76. STICKLINE(a34,a36,OPEN,6,0),Color3DFF3D;   
  77. STICKLINE(a34,a36,OPEN,5,0),Color51FF51;   
  78. STICKLINE(a34,a36,OPEN,4,0),Color65FF65;   
  79. STICKLINE(a34,a36,OPEN,3,0),Color7AFF7A;   
  80. STICKLINE(a34,a36,OPEN,2,0),Color8EFF8E;   
  81. STICKLINE(a34,a36,OPEN,1,0),ColorA2FFA2;}   
  82. a37:=((CLOSE - (EMA(a1,25))) / (EMA(a1,25))) * 100;   
  83. 卖出点: if(((a37 > 12) AND (CROSS(决策线,CLOSE))),5,0);   
  84. {DRAWTEXT(((a37 > 12) AND (CROSS(决策线,CLOSE))),HIGH,'卖出');}   
  85. a38:=BIGORDER(1,2);   
  86. a39:=BIGORDER(2,2);   
  87. a40:=(((a38 - a39) * VOL) / CAPITAL) * 500;   
  88. {DRAWTEXT(((a40 > 0.5) OR (LAST((a40 > 0)) > 1)),((((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 1.002),'● '),colorYellow;   
  89. DRAWTEXT((a40 > 1),((((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 1.002),'★'),ColorFF0087;   
  90. DRAWTEXT((a40 > 2),((((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 1.002),'★'),colorBlack;   
  91. DRAWTEXT((((((REF(a40,1)) >= (HHV(a40,20))) AND (a40 >= (LLV(a40,20)))) AND ((REF(a40,1)) > 2.5)) AND (a40 < -2.5)),(HIGH * 1.02),'◤反转'),colorGreen; }   
  92. 出货: if(((((OPEN / a16) > 1.03) AND (CLOSE < OPEN)) AND (a40 < 0)),5,0);   
  93. {DRAWTEXT(((((OPEN / a16) > 1.03) AND (CLOSE < OPEN)) AND (a40 < 0)),HIGH,'出货'),colorMagenta;}   
  94. a41:=LOW < a11;   
  95. {DRAWICON(a41,LOW,1);   
  96. DRAWICON((((CROSS(CLOSE,(REF(a9,1)))) AND (a15 < -3)) OR (((LOW < 支撑线) AND (CLOSE > 支撑线)) AND (a15 < -3.5))),LOW,7),ALIGN1;   
  97. DRAWICON(((CROSS((REF(a7,1)),CLOSE)) AND (a40 < 0)),(HIGH * 1.015),8),ALIGN1; }   
  98. 三分一仓进: if(((CROSS(CLOSE,(REF(a9,1)))) AND (a40 > 0)),5,0);   
  99. 三分一仓出:if(((CROSS((REF(a7,1)),CLOSE)) AND (a40 < 0)),5,0);   
  100. 二分一仓进:if((CROSS(CLOSE,(REF(a10,1)))),5,0);   
  101. {DRAWTEXT(((CROSS(CLOSE,(REF(a9,1)))) AND (a40 > 0)),LOW,'1/3仓'),colorMagenta;   
  102. DRAWTEXT(((CROSS((REF(a7,1)),CLOSE)) AND (a40 < 0)),(HIGH * 1.05),'1/3仓出'),Color00DB00;   
  103. DRAWTEXT((CROSS(CLOSE,(REF(a10,1)))),(LOW * 0.96),'仓1/2'),colorYellow;   
  104. DRAWTEXT((CROSS(CLOSE,(REF(((((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.681),1)))),(LOW * 0.98),'1/2仓'),Color005EFF;   
  105. STICKLINE(((CLOSE > 0) AND (DISPSTATUS = 2)),((((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 1.15),((((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 1.15),20,0),colorWhite;   
  106. STICKLINE(((CLOSE > 0) AND (DISPSTATUS = 2)),((((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.85),((((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.85),20,0);}   
  107. 满仓出击:if(a41,5,0);   
  108. {DRAWTEXT(a41,HIGH,'满仓出击');}   
  109. a42:=(CYC(8) - (REF(CYC(8),1))) / (REF(CYC(8),1));   
  110. a43:=((SMA((MAX((CLOSE - a16),0)),5,1)) / (SMA(ABS((CLOSE - a16)),5,1))) * 100;   
  111. 小顶:if(((((CROSS(90,a43)) AND (a40 < 0)) AND ((CLOSE / OPEN) <= 0.985)) OR (((a43 > 90) AND (a40 < 0)) AND ((CLOSE / OPEN) <= 0.985))),5,0);   
  112. {DRAWTEXT(((((CROSS(90,a43)) AND (a40 < 0)) AND ((CLOSE / OPEN) <= 0.985)) OR (((a43 > 90) AND (a40 < 0)) AND ((CLOSE / OPEN) <= 0.985))),(HIGH * 1.04),'▼'),ALIGN1,colorGreen;}   
  113. 波段小底: if(((((CROSS(a43,10)) AND (a40 > 0)) OR ((a43 < 10) AND (a40 > 0))) OR (((LOW < 支撑线) AND (CLOSE > 支撑线)) AND (a40 > 0))),5,0);   
  114. {DRAWTEXT(((((CROSS(a43,10)) AND (a40 > 0)) OR ((a43 < 10) AND (a40 > 0))) OR (((LOW < 支撑线) AND (CLOSE > 支撑线)) AND (a40 > 0))),(LOW * 0.97),'▲'),ALIGN1,colorRed;}   
  115. 波段大底: if(((CROSS(a43,10)) AND (a15 < -4)),5,0);   
  116. {DRAWTEXT(((CROSS(a43,10)) AND (a15 < -4)),(LOW * 0.92),'◢◣'),ALIGN1,colorRed;}   
  117. 波段小底2: if((((a15 < -5) AND (a37 < -24)) AND (a43 < 12)),5,0);   
  118. {DRAWTEXT((((a15 < -5) AND (a37 < -24)) AND (a43 < 12)),(LOW * 0.95),'▲'),ALIGN1,colorMagenta;}   
  119. 中期大底: if(((((a15 < -3) AND (a40 > 0)) AND (LOW <= 地线)) AND (CLOSE > 地线)),5,0);   
  120. {DRAWTEXT(((((a15 < -3) AND (a40 > 0)) AND (LOW <= 地线)) AND (CLOSE > 地线)),(LOW * 0.94),'◆'),ALIGN1,colorYellow;   
  121. DRAWTEXT(((CLOSE > 0) AND (DISPSTATUS = 2)),(决策线 * 0.9),'多空价：'+REF(a6,1)),MOVE10,ALIGN2,colorYellow; }   
  122. {DRAWTEXT(((CLOSE > 0) AND (DISPSTATUS = 2)),(a7 * 1.05),'天线：'+a7),MOVE10,ALIGN2,ColorFF8748;   
  123. DRAWTEXT(((CLOSE > 0) AND (DISPSTATUS = 2)),(a9 * 0.96),'地线：'+a9),MOVE10,ALIGN2,Color766A6C;   
  124. DRAWTEXT(((CLOSE > 0) AND (DISPSTATUS = 2)),(决策线 * 0.95),'决策价：'+决策线),MOVE10,ALIGN2,colorRed;    
  125. PARTLINE(支撑线,(MA(a1,10)) > (MA(a1,240)),RGB(255,0,255)),linethick2,colorMagenta; }   
  126. a44:=LOW > (REF(HIGH,1));   
  127. a45:=HIGH < (REF(LOW,1));   
  128. {PARTLINE(地线,(MA(a1,10)) > (MA(a1,72)),RGB(255,255,0)),linethick1,colorYellow;   
  129. DRAWTEXT(a44,((REF(HIGH,1)) * 1.003),'─'),ALIGN1,colorWhite;   
  130. DRAWTEXT(a44,(LOW * 1.003),'─'),ALIGN1,colorWhite;   
  131. DRAWTEXT(a45,((REF(LOW,1)) * 1.003),'─'),ALIGN1,colorGreen;   
  132. DRAWTEXT(a45,(HIGH * 1.003),'─'),ALIGN1,colorGreen;   
  133. DRAWTEXTREL(0,0,'评级:'+Extrastring('评级')),colorCyan;   
  134. DRAWTEXTABS(1,15,'所属板块:'+BKNAME),ColorAFFF00;   
  135. DRAWTEXTREL(0,130,'每股收益:'+NUMTOSTRN(FINANCE2(3),3)+'元'+' 市盈率:'+NUMTOSTRN(DYNAINFO(39),2)+'元'+' 市净率:'+NUMTOSTRN((CLOSE / FINANCE2(4)),2)+'元'+' 净资产:'+NUMTOSTRN(FINANCE2(4),2)+'元'),Color00C0FF;}   

 



网站搜索：  



Copyright © 2009-2010 gszb.com ™,All Rights Reserved.　
公式网-www.gszx.com.cn-股票指标公式网