账号设置

密码修改

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

  • 跟踪主力--港澳资讯能告诉你的

  • 相关简介：C/C++ www.zegu.cn 择股网提供 Code 复制内容到剪贴板 INPUT:几月(1,1,6),牛人(1),进日期(91120,90000,100000),N(1,0,10); {找股东---------港澳资讯F10用} 股东名称:= '刘芳' ;{选填要找的股东名称} ////********////////// 当前月:=MONTH; 季末:=SUMBARS(CROSS(MOD(当前月,3),0.5),1); VERTLINE(CROSS(MOD(当

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

跟踪主力--港澳资讯能告诉你的

 

C/C++ www.zegu.cn 择股网提供 Code复制内容到剪贴板
  1. INPUT:几月(1,1,6),牛人(1),进日期(91120,90000,100000),N(1,0,10);   
  2. {找股东---------港澳资讯F10用}   
  3. 股东名称:='刘芳';{选填要找的股东名称}   
  4. ////********//////////   
  5. 当前月:=MONTH;   
  6. 季末:=SUMBARS(CROSS(MOD(当前月,3),0.5),1);   
  7. VERTLINE(CROSS(MOD(当前月,3),0.5)),LINEDASHDOT,COLOR888888;   
  8. 当季均价:=MA(C,季末),LINETHICK;   
  9. 上季均价:=REF(当季均价,季末),LINETHICK;   
  10. 估算成本:=上季均价*(10-0.618)/10,LINETHICK;   
  11. 季均涨幅:=(HHV(当季均价,季末)-上季均价)/上季均价*100,LINETHICK;   
  12. 月均价:=MA(C,SUMBARS(当前月<>REF(当前月,1),1)),LINETHICK0;   
  13. 上月均价:=REF(月均价,SUMBARS(当前月<>REF(当前月,1),1)),LINETHICK0;   
  14. PARTLINE(上月均价=REF(上月均价,1),月均价),COLORFFFFFF,LINETHICK2;   
  15. PARTLINE(上月均价=REF(上月均价,1),上月均价),COLORFFFFFF,LINETHICK1;   
  16. PARTLINE(上季均价=REF(上季均价,1),当季均价),COLORFFBB88,LINETHICK1;   
  17. PARTLINE(上季均价=REF(上季均价,1),上季均价),COLORFFBB88,LINETHICK1;;   
  18. PARTLINE(估算成本=REF(估算成本,1),估算成本),COLORccaaaa,LINETHICK1;;   
  19. KLINE(O,H,L,C,0);   
  20. {综合评级---------港澳资讯F10用}   
  21. {评级说明：   
  22. 评级系数: 1.0=买入 2.0=增持 3.0=中性 4.0=减持 5.0=卖出   
  23. 综合评级指数：1.00~1.09买入； 1.10~2.09增持；2.10~3.09中性；3.10~4.09减持；4.10~5.00卖出。}   
  24. 股票名称:=STKNAME;   
  25. 股票代码:=STKLABEL;   
  26. {【高管买卖本公司股票情况】---------港澳资讯F10用}   
  27. 起0:=F10FIND('【1.高管买卖本公司股票情况】',1);   
  28. 起:=F10FIND('最近一年',起0+20);   
  29. 止:=F10FIND('【2.高管列表】',起);   
  30. 起止2:=F10TEXT(起,止-起);   
  31. 找职务:=STRFIND(起止2,'职务',1),LINETHICK0 ;   
  32. 无数据:=STRFIND(起止2,'无数据',1),LINETHICK0 ;   
  33. IF 找职务>0 AND 无数据=0 THEN BEGIN    
  34. 起1:=F10FIND('├───┼────┼────┼────┼───┼─────┼──────┤',起+20);   
  35. 起｜1:=F10FIND('｜',起1);   
  36. 起｜2:=F10FIND('｜',起｜1+2);   
  37. 起｜3:=F10FIND('｜',起｜2+2);   
  38. 起｜4:=F10FIND('｜',起｜3+2);   
  39. 起｜5:=F10FIND('｜',起｜4+2);   
  40. 起｜6:=F10FIND('｜',起｜5+2);   
  41. 起｜7:=F10FIND('｜',起｜6+2);   
  42. 起｜8:=F10FIND('｜',起｜7+2);   
  43. 姓名:=LTRIM(RTRIM(F10TEXT(起｜1+2,起｜2-起｜1-2)));   
  44. IF STRCMP(姓名,'姓名')<>0 THEN BEGIN    
  45. 职务:=RTRIM(F10TEXT(起｜2+2,起｜3-起｜2-2));   
  46. 变动数:=RTRIM(F10TEXT(起｜3+2,起｜4-起｜3-2));   
  47. 变动后:=RTRIM(F10TEXT(起｜4+2,起｜5-起｜4-2));   
  48. 变动均价:=RTRIM(F10TEXT(起｜5+2,起｜6-起｜5-2));   
  49. 变动日期:=RTRIM(F10TEXT(起｜6+2,起｜7-起｜6-2));   
  50. 变动原因:=RTRIM(F10TEXT(起｜7+2,起｜8-起｜7-2));   
  51. DRAWTEXTEX(STRCMP(姓名,'')<>0,1,10,10,' 【'+股票代码+股票名称+'高管买卖本公司股票情况】 ' ),COLOR9999FF;   
  52. DRAWTEXTEX(STRCMP(姓名,'')<>0,1,10,100,'姓名 职务 变动数 变动后 变动均价 变动日期 变动原因 ' ),COLORFFFFFF;   
  53. DRAWTEXTEX(STRCMP(姓名,'')<>0,1,10,180, 姓名+' '+职务+变动数+'(股)'+变动后+'(股)'+' ' +变动均价+' ' +变动日期+' ' +变动原因),COLORFFFFFF;   
  54. 年0:=STRFIND(变动日期,'-',1);   
  55. 年:=STRTONUM(STRLEFT(变动日期,年0-1))*10000-20000000;   
  56. 月0:=STRFIND(变动日期,'-',5);   
  57. 月:=STRTONUM(STRMID(变动日期,月0+1,2))*100;   
  58. 日0:=STRRIGHT(变动日期,2);   
  59. 日:=STRTONUM(日0);   
  60. 最近进出日期:(年+月+日),COLORAAAAAA,LINETHICK0;   
  61. 找最近进日期:IF(STRTONUM(变动数)>0,(年+月+日),0),COLORFFFFFF,LINETHICK0;{选股或排序,选股时选大于日期,如选大于2009年11月20日就填大于91120}   
  62. PARTLINE(最近进出日期+1000000<DATE,STRTONUM(变动均价)),COLOR9999FF,LINETHICK2;   
  63. ;END;END;   
  64. PJ起点:=F10FIND('┌────┬───────────┬──────────────┐｜ ｜ 综合评级 ｜ 评级分布 ｜',1);   
  65. PJ止点:=F10FIND('└────┴────┴──────┴──┴──┴──┴──┴──┘',PJ起点);   
  66. PJ起止:=F10TEXT(PJ起点,PJ止点-PJ起点);   
  67. 前或内:=IF(几月=1,'内','前');   
  68. 时间段:=NUMTOSTR(几月,0)+'月'+前或内;{}   
  69. 时间:=F10FIND(时间段,1);   
  70. PJ找到│1:=F10FIND('｜',时间);   
  71. PJ找到│2:=F10FIND('｜',PJ找到│1+3);   
  72. PJ找到│3:=F10FIND('｜',PJ找到│2+3);   
  73. PJ找到│4:=F10FIND('｜',PJ找到│3+2);   
  74.   
  75. x1:=F10FIND('市场关注度排名',1);   
  76. x2:=F10FIND('说明：关注度是基于机构研究报告以及各大财经网站个股关注数据经过计算得出。  
  77. ',x1);   
  78. z1:=IF(x1>1,F10TEXT(x1,x2-x1),'');   
  79. t1:=F10FIND('第',x1);   
  80. t2:=F10FIND('位 较前日',T1);   
  81. z2:=F10TEXT(T1+2,T2-T1-4);   
  82. 综合评级指数:=LTRIM(F10TEXT(PJ找到│2+2,PJ找到│3-PJ找到│2-2));   
  83. 综合评级:STRTONUM(LTRIM(F10TEXT(PJ找到│1+2,PJ找到│2-PJ找到│1-2))),LINETHICK;{越小越好}   
  84. 空格:=' ';   
  85. 《》:=' 【 投 资 评 级 】';   
  86. 评级说明:=IF( 综合评级=0,《》+'\n \n '+股票代码+空格+股票名称+空格+时间段+空格+'没有评级',   
  87. 《》+'\n \n '+股票代码+' '+股票名称+' '+时间段+' '+   
  88. '综合评级 '+NUMTOSTR(综合评级,2)+' (越小越好) '+' '+'综合评级指数 '+综合评级指数) ;   
  89. DRAWTEXTEX(综合评级>0 OR X1>0,1,10,480,评级说明+'\n \n '+z1),COLOR66ccff;   
  90.   
  91.   
  92. 起点0:=F10FIND('★本栏包括【1.控股股东与实际控制人】【2.股东变化】【3.基金持股】',1);   
  93. 起点:=F10FIND('【2.股东变化】',起点0+20);   
  94. 止点:=F10FIND('──────────────┴─────┴─────┴────┴─────',起点);   
  95. 起止:=F10TEXT(起点,止点-起点);   
  96. 【】:=STRFIND(起止,股东名称,1);   
  97. IF 【】=0 THEN BEGIN EXIT;END;   
  98. DRAWTEXTEX(【】>0,1,10,270,' 牛 人 持 股 情 况'),COLOR00FFFF;   
  99. 找到股东:=F10FIND(股东名称,1);   
  100. 找到│1:=F10FIND('｜',找到股东);   
  101. 找到│2:=F10FIND('｜',找到│1+3);   
  102. 找到│3:=F10FIND('｜',找到│2+3);   
  103. 找到│4:=F10FIND('｜',找到│3+2);   
  104. 持股:=F10TEXT(找到│1+2,找到│2-找到│1-2);   
  105. 持股:=F10TEXT(找到│1+2,找到│2-找到│1-2);   
  106. 比例:=STRTONUM(F10TEXT(找到│2+2,找到│3-找到│2));   
  107. 进出:=SUM(V,季末)/100000*比例*季均涨幅/100;   
  108. 状态:=LTRIM(F10TEXT(找到│4+2,0));   
  109. IF STRTONUM(状态)<>0 THEN BEGIN 增或减:=IF(STRTONUM(状态)>0,'增持','减持');END;   
  110. 该股东持（万）股:STRTONUM(持股),LINETHICK;{用排序法}   
  111. DRAWTEXTEX(该股东持（万）股>0,1,10,360,'上季末'+股东名称+'持有'+' '+股票代码+' '+股票名称   
  112. +持股+'（万）股,'+''+'占流通股比(%)'+' '+NUMTOSTR(比例,2)+' '+'\n \n季均价涨跌幅 '+NUMTOSTR(季均涨幅,2)+   
  113. ' 上季'+增或减+' '+状态+' 本季可能出 '+NUMTOSTR(进出,2)+'（万）股'),COLORFFCCDF;   
  114.   
  115. {选股选择}   
  116. 牛人持股:该股东持（万）股>牛人,LINETHICK0;   
  117. 高管进:找最近进日期>=进日期,LINETHICK0;   
  118. 机构评级:综合评级<=N,LINETHICK0;   
  119. 市场关注度排名:STRTONUM(Z2),LINETHICK0;{可用于排序}   
  120.   
  121. {将以下所有文字复制粘贴到参数精灵里   
  122.   
  123. ******【选择选股参数】*********    
  124. 牛人(在原码里修改股东名称) Param#2 (选择0或1)   
  125. 选择高管进货日期 Param#3    
  126. (例如要选择2009年11月20日后的日期,就填 91120)   
  127. 评 级 时 间 段:Param#1 月(1月内或几月前)   
  128. 综 合 评 级: Param#4 (越小越好,最小是1)   
  129.   
  130. 在下面选择选股指标线   
  131. }  

 

上一篇：飞狐版的--多空线  下一篇：飞剑主图
☞股海网提供公式解密、改选股服务 联系点击查看详情（有偿服务,非诚勿扰）...
☞股海网公式指标安装帮助说明，新手必读，好好学习天天向上！...
☞股海网注册、登录、下载问题说明，如遇问题请查阅。...
　☟问题反馈 ☞┄┄┄┄┄┄┄┄┄┄→收藏资源:

跟踪主力--港澳资讯能告诉你的

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

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

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