公式网 股票指标公式源码分享 登录 注册
公式指标平网
未来函数检测
首页 金钻指标 通达信公式 大智慧公式 同花顺公式 文华财经公式 东财通公式 飞狐公式 操盘手公式 其他公式 公式解答 股票软件 股票池
当前位置：→ 公式网 > 同花顺公式 > 正文 → 正文

机构控盘度（源码）

发布时间：2009/9/2 23:35:51  浏览次数：

 

C/C++ Code复制内容到剪贴板
  1. 机构控盘度   
  2.   
  3. IF(PERIODNAME<>"日线")   
  4. {   
  5. 机构控盘度:"本指标只适用于日线周期";   
  6. RETURN;   
  7. }   
  8. IF(ISNULL(LV_D_SUPER_HLD_RATIO[-1])!=0)   
  9. {   
  10.         b1=IF(ISNULL(BIGBUYCOUNT1[-1]),0,BIGBUYCOUNT1[-1])+IF(ISNULL(WAITBUYCOUNT1[-1]),0,WAITBUYCOUNT1[-1]);   
  11.         s1=IF(ISNULL(BIGSELLCOUNT1[-1]),0,BIGSELLCOUNT1[-1])+IF(ISNULL(WAITSELLCOUNT1[-1]),0,WAITSELLCOUNT1[-1]);   
  12.         b2=IF(ISNULL(BIGBUYCOUNT2[-1]),0,BIGBUYCOUNT2[-1])+IF(ISNULL(WAITBUYCOUNT2[-1]),0,WAITBUYCOUNT2[-1]);   
  13.         s2=IF(ISNULL(BIGSELLCOUNT2[-1]),0,BIGSELLCOUNT2[-1])+IF(ISNULL(WAITSELLCOUNT2[-1]),0,WAITSELLCOUNT2[-1]);   
  14.   
  15.         ddx:=((b1-s1)+(b2-s2)*0.7)/TV_D_PUBLIC_SHARES *100;   
  16.         IF(ISNULL(LV_D_SUPER_HLD_RATIO))   
  17.         {   
  18.                 RET=(B1+b2)/TV_D_PUBLIC_SHARES *100;   
  19.         }   
  20.         ELSE   
  21.         {   
  22.                 X1=LV_D_SUPER_HLD_RATIO*100;   
  23.                 ret:=X1+ddx;   
  24.                 IF(ddx > 0)   
  25.                 {   
  26.                         IF(x1>95)   
  27.                         ret := x1+ddx*0.1;   
  28.                         ELSE IF(x1>90)   
  29.                         ret := x1+ddx*0.5;   
  30.                         ELSE IF(x1>85)   
  31.                         ret := x1+ddx*0.8;   
  32.                 }   
  33.                 IF(ddx < 0)   
  34.                 {   
  35.                         IF(x1<5)   
  36.                                 ret := x1+ddx*0.1;   
  37.                         ELSE IF(x1<10)   
  38.                                 ret := x1+ddx*0.5;   
  39.                         ELSE IF(x1<15)   
  40.                                 ret := x1+ddx*0.8;   
  41.                 }   
  42.         }   
  43.         IF(ISNULL(ret))   
  44.                 ret := LV_D_SUPER_HLD_RATIO*100;   
  45.         IF(ret > 97.18)   
  46.                 ret := 97.18;   
  47.         IF(ret < 2.08)   
  48.                 ret := 2.08;   
  49.   
  50. }   
  51. ELSE   
  52. {   
  53.         ret=LV_D_SUPER_HLD_RATIO*100;           
  54. }   
  55. x:=ret;   
  56.         STICKLINE(x>x[1],x,x*2-x[1],5),colorred;   
  57.         STICKLINE(x<x[1],x,x*2-x[1],5),colorgreen;   
  58. RETURN(ret);   
  59.   

 

资源下载链接   资源大小：2KB
精品资源推荐
公式指标栏目导航

手机移动版 - 关于我们 - 联系我们 - 广告合作 - 下载声明 - 网站帮助 - 友情链接 - 网站地图 - TOP
湘ICP备09016573号-3 增值电信业务经营ICP许可证：湘B2-20210269 湘公网安备43108102000039号
Copyright © GSZX.COM.CN ,All Rights Reserved.
股票公式,股票指标,股票软件,股票知识