公式网-网站导航


网站搜索:  

公式在线 发表于2009/11/22 10:11:51

主力线源码

 

C/C++ Code复制内容到剪贴板
  1. 参数:n(1、1000、1)   
  2. r:=((ZDMR[-1]+BDMR[-1])-(ZDMC[-1]+BDMC[-1]))/SHGZG*100;   
  3. t:=BARSCOUNT(SHGZG);   
  4. b:=SUM(r,t);   
  5. 主力持仓:b;   
  6.   
  7. x2:=HHV(r,n);   
  8. S:=STD(SHGZG,2)/1000000;    
  9. S1:=-STD(SHGZG,2)/1000000;   
  10. STICKLINE(r>0,r+b,b,2),colorred;   
  11. STICKLINE(r<0,b,b+r,2),colorgreen;   
  12. STICKLINE(s>0,x2+b,b+r*3,3),coloryellow;   
  13. STICKLINE(s1<0,b+r*3,b-x2,3),coloryellow;   
  14.   
  15. IF(ISNULL(r))   
  16. {   
  17.   统计:"本指标由同花顺金融研究中心提供,每晚11点后提供当天的数据。";   
  18. }   
  19. a=(ZDMR[-1]+BDMR[-1]);   
  20. b=(ZDMC[-1]+BDMC[-1]);   
  21. a3=SUM(a,n)/1000000;   
  22. b3=SUM(b,n)/1000000;   
  23. VOL1=SUM(VOL,n)/1000000;   
  24. S3=STD(SHGZG,2)/10000;    
  25. IF(a3>b3)   
  26. {   
  27.   y=a3-b3;   
  28.   z=y/VOL1*100;   
  29.      
  30.   主力增加:TOSTRING(r,2)+"%."+TOSTRING(n,0)+"天主力净买入"+TOSTRING(y,1)+"万手.占总成交"+TOSTRING(z,1)+"%."+"流通盘增加"+TOSTRING(s3,2)+"万.";   
  31. }   
  32. ELSE   
  33. {   
  34.   y=b3-a3;   
  35.   z=y/VOL1*100;   
  36.   主力增加:TOSTRING(r,2)+"%."+TOSTRING(n,0)+"天主力净买入"+TOSTRING(y,1)+"万手.占总成交"+TOSTRING(z,1)+"%."+"流通盘增加"+TOSTRING(s3,2)+"万.";   
  37. }   
  38. 二、散户线源码   
  39. 参数:无   
  40. IF(STRFIND(PERIODNAME,"分钟",1)>0)   
  41. {   
  42. 统计:"该指标只在日线、周线、月线、季线和年线周期下有效。";   
  43. RETURN;   
  44. }   
  45. r:=1000000*(ZDMCCS[-1]+BDMCCS[-1]-(ZDMRCS[-1]+BDMRCS[-1]))/(SHGZG/(VOL/VOLAMOUNT));   
  46.   
  47. t:=BARSCOUNT(SHGZG);   
  48. b:=SUM(r,t);   
  49. 散户数量:b;   
  50.   
  51. STICKLINE(r>0,r+b,b,2),colorgreen;   
  52. STICKLINE(r<0,b,b+r,2),colorred;   
  53. IF(b>0)   
  54. {   
  55. 散户增加:TOSTRING(r/b*100,2)+"%"+"散户净增"+TOSTRING(r,2);   
  56.            
  57. }   
  58. ELSE   
  59.   
  60. IF(b<0)   
  61. {   
  62. 散户增加:TOSTRING(-r/b*100,2)+"%"+"散户净增"+TOSTRING(r,2);   
  63.            
  64. }   
  65. r0:=1000000*(IF(ISNULL(ZDMCCS[-1]),0,ZDMCCS)+IF(ISNULL(BDMCCS[-1]),0,BDMCCS)   
  66. -(IF(ISNULL(ZDMRCS[-1]),0,ZDMRCS)+IF(ISNULL(BDMRCS[-1]),0,BDMRCS)))   
  67.         /(SHGZG/(VOL/VOLAMOUNT));   
  68. MA5:TOSTRING(MA(r0,5),2);   
  69.   
  70. MA10:TOSTRING(MA(r0,10),2);   
  71. MA20:TOSTRING(MA(r0,20),2);   
  72. RETURN r;   

 



网站搜索:  



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