公式网-网站导航


网站搜索：  

公式在线 发表于2009/9/7 16:29:37

四线极品L2指标

四线极品L2指标

C/C++ Code复制内容到剪贴板
  1. HS:=vol/capital;   
  2. DD:=BIGORDER(1,3)-BIGORDER(2,3);   
  3. DT:=HS*DD*100;   
  4. 特大持仓: Sum(DT,0),linethick2;   
  5. 当日增减度: DT, linethick0;   
  6. 当日成交 := (DT * capital) * DYNAINFO(11)/10000;   
  7. 买入手数 := (capital*DT)/100;   
  8. if (当日成交>=0) then    
  9. begin   
  10. Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,';   
  11. Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';   
  12. Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   
  13. end;   
  14. if 当日成交<0 then    
  15. begin   
  16. Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,';   
  17. Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,';   
  18. Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   
  19. end;   
  20.   
  21. HS:=vol/capital;   
  22. DD:=(BIGORDER(1,2)-BIGORDER(2,2))-(BIGORDER(1,3)-BIGORDER(2,3));   
  23. DT:=HS*DD*100;   
  24. 大户持仓: 50+Sum(DT,0),linethick2;   
  25. 当日增减度:=DT;   
  26.   
  27. 当日成交 := (DT * capital) * DYNAINFO(11)/10000;   
  28. 买入手数 := (capital*DT)/100;   
  29. if (当日成交>=0) then    
  30. begin   
  31. Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,';   
  32. Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';   
  33. Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   
  34. end;   
  35. if 当日成交<0 then    
  36. begin   
  37. Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,';   
  38. Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,';   
  39. Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   
  40. end;   
  41.   
  42. HS:=vol/capital;   
  43. DD:=(BIGORDER(1,1)-BIGORDER(2,1))-(BIGORDER(1,2)-BIGORDER(2,2));   
  44. DT:=HS*DD*100;   
  45. 中户持仓: 50+Sum(DT,0),linethick2;   
  46. 当日增减度:= DT;   
  47. 当日成交 := (DT * capital) * DYNAINFO(11)/10000;   
  48. 买入手数 := (capital*DT)/100;   
  49. if (当日成交>=0) then    
  50. begin   
  51. Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,';   
  52. Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';   
  53. Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   
  54. end;   
  55. if 当日成交<0 then    
  56. begin   
  57. Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,';   
  58. Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,';   
  59. Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   
  60. end;   
  61.   
  62. HS:=vol/capital;   
  63. DD:=-(BIGORDER(1,1)-BIGORDER(2,1));   
  64. DT:=HS*DD*100;   
  65. 散户持仓: Sum(DT,0),linethick2;   
  66. 当日增减度:= DT;   
  67. 当日成交 := (DT * capital) * DYNAINFO(11)/10000;   
  68. 买入手数 := (capital*DT)/100;   
  69. if (当日成交>=0) then    
  70. begin   
  71. Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,';   
  72. Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';   
  73. Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   
  74. end;   
  75. if 当日成交<0 then    
  76. begin   
  77. Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,';   
  78. Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,';   
  79. Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   
  80. end;   

 



网站搜索：  



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