账号设置

密码修改

退出登录
股海首页| 金钻指标 | 股海博客| 指标公式|看盘软件|股票数据|数据题材|工具应用|期货基金|指标战法|股海宝贝|炒股知识|资讯消息|VIP之家|
飞狐公式|通达信公式|大智慧公式|同花顺公式|东方财富通公式|大智慧股票池|通达信股票池|公式帮助|博易大师公式|益盟操盘手公式|文华财经公式|金字塔公式|
当前位置：→ 股海网 → 飞狐公式 → 正文

  • 千钧【火眼金睛】最新版、源码！

  • 相关简介：C/C++ Code 复制内容到剪贴板 JJ:=INDEXA/INDEXV/100; 流通:IF(CAPITAL1,ESTDATA(12)/10000,FINANCE(7)/10000),LINETHICK,PRECISION2; 市值:IF(CAPITAL1,ESTDATA(12)*JJ/10000,FINANCE(7)*C/10000),LINETHICK,PRECISION2; DRAWTEXTEX(c,1,20,10,STKLABEL+ '' +STKNAME+ '' )

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

 

C/C++ Code复制内容到剪贴板
  1. JJ:=INDEXA/INDEXV/100;   
  2. 流通:IF(CAPITAL<1,ESTDATA(12)/10000,FINANCE( 7)/10000),LINETHICK,PRECISION2;   
  3. 市值:IF(CAPITAL<1,ESTDATA(12)*JJ/10000,FINANCE(7)*C/10000),LINETHICK,PRECISION2;   
  4. DRAWTEXTEX(c,1,20,10,STKLABEL+' '+STKNAME+''),Color00FF00;   
  5. DT:=CURRENTDATE;   
  6. AA:=REF(DATE,BARSLAST(SYSPARAM(1)=BARPOS));    
  7. BB:=IF(AA=DT,1,0);   
  8. CC:=BB[SYSPARAM(3)];   
  9. if CC=1 then   
  10.   DD:=ISLASTBAR;   
  11. else  
  12.   DD:=BARPOS=ISLASTBAR;   
  13. qj:=DD;   
  14. qj1:=IF(qj,STKINDI('','机构.机构',0,0),EXTDATA(9));   
  15. qj2:=IF(qj,STKINDI('','券商.券商',0,0),EXTDATA(10));   
  16. qj3:=IF(qj,STKINDI('','大户.大户',0,0),EXTDATA(11));   
  17. qj4:=IF(qj,STKINDI('','中户.中户',0,0),EXTDATA(12));   
  18. qj5:=IF(qj,STKINDI('','散户.散户',0,0),EXTDATA(13));   
  19. qj6:=IF(qj,STKINDI('','沪机构.机构',0,0),EXTDATA(6));   
  20. qj7:=IF(qj,STKINDI('','沪大户.大户',0,0),EXTDATA(7));   
  21. qj8:=IF(qj,STKINDI('','沪散户.散户',0,0),EXTDATA(8));   
  22. w0:=qj1+qj2+qj3;   
  23. ww:=qj6+qj7;   
  24. w1:=vol;   
  25. ww1:=SUM(AMOUNT,7);   
  26. 量12:=qj4+qj5;   
  27. B:=IF(CAPITAL<1,qj8,量12);   
  28. w2:=IF(CAPITAL<1,ww1,w1);   
  29. A:=IF(CAPITAL<1,ww,w0);   
  30. P:=SYSPARAM(1);   
  31. 量:=(EMA(IF(C>=REF(C,3),a,(-a)),60)/MA(w2,60));   
  32. 量1:=EMA(量,3);    
  33. 量2:=EMA(量,5);    
  34. 量3:=EMA(量,8);   
  35. T:=H>REF(C,1) and a>0 and a>=REF(a,1) and 量2>=量3;    
  36. 推升:STICKLINE(T,量1,量3,1,0),COLOR0044FF;    
  37. STICKLINE(T,量1,量3,8,0),COLOR00CCFF;    
  38. STICKLINE(量2>=量3,量2,量3,8,0),COLOR0044FF;    
  39. STICKLINE(量2>=量3,量2,量3,7,0),COLOR0066FF;    
  40. STICKLINE(量2>量3,量2,量3,6,0),COLOR0077FF;    
  41. STICKLINE(量2>量3,量2,量3,5,0),COLOR0088FF;    
  42. STICKLINE(量2>量3,量2,量3,4,0),COLOR0099FF;    
  43. STICKLINE(量2>量3,量2,量3,3,0),COLOR00AAFF;    
  44. STICKLINE(量2>=量3,量2,量3,2,0),COLOR00BBFF;    
  45. STICKLINE(量2>=量3,量2,量3,1,0),COLOR00CCFF;    
  46. T0:=C<H and C<O and a<0 and a<REF(a,1) and B>0 and 量2<=量3;   
  47. 回吐:STICKLINE(T0,量1,量3,1,0),COLORFFAE00;   
  48. STICKLINE(T0,量1,量3,5,0),COLORFF00FF;    
  49. STICKLINE(量2<量3,量2,量3,8,0),COLORFF4400;    
  50. STICKLINE(量2<量3,量2,量3,7,0),COLORFF6600;    
  51. STICKLINE(量2<量3,量2,量3,6,0),COLORFF7700;    
  52. STICKLINE(量2<量3,量2,量3,5,0),COLORFF8800;    
  53. STICKLINE(量2<量3,量2,量3,4,0),COLORFF9900;    
  54. STICKLINE(量2<量3,量2,量3,3,0),COLORFFAA00;    
  55. STICKLINE(量2<量3,量2,量3,2,0),COLORFFBB00;    
  56. STICKLINE(量2<=量3,量2,量3,1,0),COLORFFCC00;    
  57. T1:=(C/REF(C,1)-1)*100<>5 and 量2<量3 AND 量>REF(量,3) and a>b and a>0;    
  58. var1:=量>REF(量,3) and a>0;   
  59. T2:=IF(O<REF(C,1) and C>REF(C,1) and vol>REF(vol,3),var1,0);     
  60. 洗盘:STICKLINE(T1,量1,量3,1,0),COLORFF00FF;    
  61. STICKLINE(T1,量2,量3,0,0),COLORFF00FF;    
  62. STICKLINE(T1,量2,量3,8,0),COLORFF00FF;    
  63. STICKLINE(T1,量2,量3,7,0),COLORFF00FF;    
  64. STICKLINE(T1,量2,量3,6,0),COLORFF00FF;    
  65. STICKLINE(T1,量2,量3,5,0),COLORC0C0E0;    
  66. STICKLINE(T1,量2,量3,4,0),COLORFF00FF;    
  67. STICKLINE(T1,量2,量3,3,0),COLORFF00FF;    
  68. STICKLINE(T1,量2,量3,2,0),COLORFF00FF;    
  69. STICKLINE(T1,量2,量3,1,0),COLORFF00FF;    
  70. 吸货:STICKLINE(T2,量1,量3,1,0),Color00BFFF;   
  71. STICKLINE(T2,量2,量3,3,0),COLOR0000FF;   
  72. STICKLINE(T2,量2,量3,0,0),COLOR33FFDD;    
  73. STICKLINE(T2,量2,量3,8,0),COLOR338FDD;    
  74. STICKLINE(T2,量2,量3,7,0),COLOR339FDD;    
  75. STICKLINE(T2,量2,量3,6,0),COLOR33AFDD;    
  76. STICKLINE(T2,量2,量3,5,0),COLOR33BFDD;    
  77. STICKLINE(T2,量2,量3,4,0),COLOR33CFDD;    
  78. STICKLINE(T2,量2,量3,3,0),COLOR33DFDD;    
  79. STICKLINE(T2,量2,量3,2,0),COLOR33EFDD;    
  80. STICKLINE(T2,量2,量3,1,0),COLOR33FFDD;    
  81. STICKLINE(量>EMA(量,5) and a>0 and a>REF(a,1),量,EMA(量,13),6,1),COLORRED;    
  82. 趋势线:=EMA(量,44);   
  83. PARTLINE((量>=趋势线),趋势线),LINETHICK2,color0000FF;   
  84. PARTLINE((量<趋势线),趋势线),LINETHICK2,color00FF00;   
  85. {静态持仓}   
  86. VARIABLE:ym[4]=0,ymd[4]=0,ymtx[4]='',ymdtx[4]='';   
  87. ym[1]:=FINANCE(0);   
  88. for k=1 to 4 do begin   
  89.   if k>1 then begin   
  90.     fy:=INTPART(ym[k-1]/100);   
  91.     fm:=ym[k-1]-fy*100;   
  92.     fm:=fm-3;   
  93.     if fm=0 then begin fm:=12; fy:=fy-1; end;   
  94.     ym[k]:=fy*100+fm;   
  95.   end;   
  96.   if k=1 then fm:=INTPART(FRACPART(ym[1]/100)*100);   
  97.   if fm=3 or fm=12 then fd:=31;   
  98.   if fm=6 or fm=9 then fd:=30;   
  99.   ymtx[k]:=numtostr(ym[k],0);   
  100.   ymd[k]:=(ym[k]-190000)*100+fd;   
  101.   ymdtx[k]:=strleft(ymtx[k],4)+'-'+strright(ymtx[k],2)+'-'+numtostr(fd,0);   
  102. end;   
  103. gdstar:=F10FIND('控盘情况:',1);   
  104. {查找F10中股东人数的位置}   
  105. gdw1:=f10find(ymdtx[1],gdstar);   
  106. gdw2:=f10find(ymdtx[2],gdstar);   
  107. gdw3:=f10find(ymdtx[3],gdstar);   
  108. gdw4:=f10find(ymdtx[4],gdstar);   
  109. {取对应的数据资料－总户数，如果资料变动，可修改数据提取位置}   
  110. gdtx1:=F10TEXT(gdw1+14,10);gdtx2:=F10TEXT(gdw2+14,10);   
  111. gdtx3:=F10TEXT(gdw3+14,10);gdtx4:=F10TEXT(gdw4+14,10);   
  112. {转换字符串为数值}   
  113. gd1:=STRTONUM(gdtx1);gd2:=STRTONUM(gdtx2);   
  114. gd3:=STRTONUM(gdtx3);gd4:=STRTONUM(gdtx4);   
  115. 流通股东:=F10TEXT(F10FIND('社保基金一零',1),0);   
  116. 持股比例:=LTRIM(STRLEFT(STRRIGHT(RTRIM(流通股东),16),6));   
  117. MMMM:=STRNCMP(STRRIGHT(RTRIM(流通股东),7),   
  118. '流通A股',7)=0 and STRTONUM(持股比例)<100;   
  119. NNNN:=if(MMMM=1,STRTONUM(持股比例),0);   
  120. 占:=NNNN*(FINANCE(1)/FINANCE(7));   
  121. 金额:=占*FINANCE(7)*close/100;   
  122. {火眼金睛}   
  123. w:=stkindi('','macd.diff',0,7);   
  124. r:=stkindi('','macd.dea',0,7);   
  125. J1:="macd.diff";    
  126. J2:="macd.dea";   
  127. J3:="kdj.k";    
  128. J4:="kdj.d";   
  129. zdf:=100*(CLOSE-REF(CLOSE,1))/REF(CLOSE,1);   
  130. VL:=REF(LOW,1); VH:=REF(H,1);   
  131. var0:=H>LLV(l,0)*3;   
  132. Var1:=SMA(ABS(H-Vh),13,1)/SMA(MAX(H-Vh,0),13,1)*100;    
  133. Var2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)*100;   
  134. Var3:=REF(CLOSE,1);   
  135. Var4:=MA(Var2,13);   
  136. Var5:=LLV(L,34);   
  137. Var6:=SMA(MAX(CLOSE-Var3,0),6,1)/SMA(ABS(CLOSE-Var3),6,1)*100;   
  138. var7:=CROSS(93,Var6);   
  139. Var8:=EMA(IF(L<=Var5,Var4,0),3);   
  140. var9:=H>LLV(l,0)*7;   
  141. var10:=(SMA(SMA((((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54))) * 100),7,1),5,1));   
  142. var11:=((SMA(((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54)) * 100),7,1)) * 16.18) - (var10 * 10.9);   
  143. Var21:=LLV(LOW,60);   
  144. Var31:=HHV(HIGH,60);   
  145. Var41:=EMA((CLOSE-Var21)/(Var31-Var21)*100,13);   
  146. Var61:=EMA(0.667*REF(Var41,1)+0.333*Var41,21);   
  147. Var51:=CROSS(Var61,Var41) AND Var41>90;   
  148. ww0:=IF(FILTER(cross(j4,j3) and Var51,13),100,0);   
  149. A0:=if(FILTER(cross(w,r) and j2<200,13),150,0);   
  150. A1:=FILTER(IF(var11<=var10 AND Var8>REF(Var8,1),Var8*8,0),20);   
  151. A3:=FILTER(CROSS(j1,j2) and vol>REF(SUM(vol,5),1),1);   
  152. A4:=FILTER(var7 and var9 and vol>REF(SUM(vol,3),1) and zdf<=-5,5);   
  153. A5:=FILTER(CROSS(j4,j3) and var0 and zdf<=-7,22);   
  154. {显示}   
  155. drawtext(a1,量1,'进\n庄'),Color00FFFF;//进庄28天左右有大行情   
  156. DRAWICON(a1,量1,12);   
  157. drawtext(a3,量1,'拉\n升'),COLOR00FFFF;//进入拉升区   
  158. DRAWICON(a3,量1,10);   
  159. drawtext(a4,量1,'庄\n撤'),Color00FF00;//主力有逃跑嫌疑   
  160. DRAWICON(a4,量1,11);   
  161. drawtext(ww0,量,'出\n局'),ColorFFFF00;   
  162. DRAWICON(ww0,量1,11);   
  163. drawtext(a5,量1,'洗\n盘'),Color00FF00;//洗盘清理浮筹   
  164. DRAWICON(a5,量1,11);   
  165. DRAWICON(a0,量1,11);   
  166. drawtext(a0,量1,'试\n盘'),Color00FF00;//主力有拉升意愿   
  167. {仓位}   
  168. P:=SYSPARAM(1);   
  169. DRAWTEXTEX(c,1,20,150,'静态股东:'),Color00BBFF;   
  170. DRAWTEXTEX(c,1,20,300,ymdtx[1]+ '   股东总户数:'+gdtx1),ColorFFB060;   
  171. DRAWTEXTEX(c,1,20,450,ymdtx[2]+' 股东总户数:'+gdtx2),ColorFFB060;   
  172. DRAWTEXTEX(c,1,20,600,ymdtx[3]+' 股东总户数:'+gdtx3),ColorFFB060;   
  173. DRAWTEXTEX(c,1,20,750,ymdtx[4]+' 股东总户数:'+gdtx4),ColorFFB060;   
  174. DRAWTEXTEX(c,1,20,900,'社保基金持仓:'+NUMTOSTR(金额,2)+' 万元  占:'+NUMTOSTR(占,2)+' %'),ColorFFB060;   
  175. DRAWTEXTEX(c,1,240,0,'机构季仓:'+NUMTOSTR(SUM(A[P],60),0)),ColorFFB060;   
  176. DRAWTEXTEX(c,1,460,0,' 占:'+NUMTOSTR(IF(CAPITAL<1,SUM(A[P],60)/ESTDATA(12),SUM(A[P],60)/FINANCE(7)),2)+' %'),ColorFFB060;   
  177. DRAWTEXTEX(c,1,240,150,'散户季仓:'+NUMTOSTR(SUM(B[P],60),0)),ColorFFB060;   
  178. DRAWTEXTEX(c,1,460,150,' 占:'+NUMTOSTR(IF(CAPITAL<1,SUM(B[P],60)/ESTDATA(12),SUM(B[P],60)/FINANCE(7)),2)+' %'),ColorFFB060;   
  179. DRAWTEXTEX(c,1,640,0,'机构日仓:'+NUMTOSTR(w0[P],0)),ColorFFB060;   
  180. DRAWTEXTEX(c,1,840,0,' 占:'+NUMTOSTR(IF(CAPITAL<1,A[P]/ESTDATA(12),A[P]/FINANCE(7)),2)+' %'),ColorFFB060;   
  181. DRAWTEXTEX(c,1,640,150,'散户日仓:'+NUMTOSTR(B[P],0)),ColorFFB060;   
  182. DRAWTEXTEX(c,1,840,150,' 占:'+NUMTOSTR(IF(CAPITAL<1,B[P]/ESTDATA(12),B[P]/FINANCE(7)),2)+' %'),ColorFFB060;   

 

下载链接：( 说明：股海资源如需解压密码的请输入本站域名：www.guhai.com.cn请仔细输入！）
本地下载 （免费下载）
上一篇：资金进出  下一篇：极少有的量能趋势指标，极品中的极品，启动，主升，顶尽在其中（无未来，TDX）
☞股海网提供公式解密、改选股服务 联系点击查看详情（有偿服务,非诚勿扰）...
☞股海网公式指标安装帮助说明，新手必读，好好学习天天向上！...
☞股海网注册、登录、下载问题说明，如遇问题请查阅。...
　☟问题反馈 ☞┄┄┄┄┄┄┄┄┄┄→收藏资源:

千钧【火眼金睛】最新版、源码！

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

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

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