开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 金融证券系统 > 查看源码
QP2 Float Analysis.afl
资源名称：AFL_collection.rar　[点击查看]
上传用户：shiqiang
上传日期：2009-06-12
资源大小：1289k
文件大小：3k
源码类别：

金融证券系统

开发平台：

Others

QP2 Float Analysis.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    QP2 Float Analysis
  4. //  Author/Uploader: Steve Wiser 
  5. //  E-mail:          slwiserr@erols.com
  6. //  Date/Time Added: 2001-08-12 11:06:29
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           basic
  10. //  Flags:           exploration,indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=99
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=99
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  As an exploration this looks for the most recent peak
  17. //
  18. //  or trough and from that point calculates the amount of
  19. //
  20. //  volume that has traded. Taking this volume and dividing
  21. //
  22. //  this be the amount of float (shares available for trading
  23. //
  24. //  that are not held by insiders) to get a percentage of
  25. //
  26. //  the total float that has been trading since that last
  27. //
  28. //  peak or trough. From Wood's Precision Float indicator
  29. //
  30. //  type of theory somewhere between 80 and 120 percent of
  31. //
  32. //  the float one has a higher potential for finding trend
  33. //
  34. //  changes. Of course that are always exceptions to the
  35. //
  36. //  rule.
  37. //
  38. //  If you use this an an indicator look at the title to
  39. //
  40. //  see the detail information concerning the amount of
  41. //
  42. //  float, the percentage of float traded since the last
  43. //
  44. //  trend change and the number of days since a complete
  45. //
  46. //  float turnover based on a 50 DVA.
  47. //
  48. //------------------------------------------------------------------------------
  50. MaxGraph = 9;
  52. EnableScript("jscript");
  54. // this is to show only one entry per stock
  56. ticker = name();
  58. <%
  59. CInfo = new ActiveXObject("QuotesPlus.CompanyInfo");
  60. CInfo.Symbol = AFL("ticker");
  62. // try-catch block handles the situation when
  63. // QuotesPlus object returns strange values
  65. try
  66. {
  67. AFL("Float") = Number( CInfo.Float() );
  68. }
  69. catch( e )
  70. {
  71. AFL("Float") = 0;
  72. }
  75. %>
  77. PercentChange=8;
  79. PkBars = PeakBars(C,PerCentChange,1);
  80. TghBars = TroughBars(C,PerCentChange,1);
  82. Bars1 = IIF(PkBars<TghBars,PkBars,TghBars);
  83. Bars1 = IIF( IsEmpty( Bars1 ), 0, Bars1 ); 
  85. TotalVol1 = Sum(Volume,Bars1)/1000000;     
  87. PerCentFloat = TotalVol1/Float*100;
  89. filter = cum( 1 ) == lastvalue( cum( 1 ) ); 
  90. /*filter = (PerCentFloat > 85) OR (PerCentFloat < 115);*/
  92. numcolumns = 4;
  94. column0 = Float;
  95. column0name = "   Float   ";
  96. Column1 = ma(Volume,50)/1e6;
  97. Column1Name = "50 DVA";
  98. Column2 = TotalVol1;
  99. Column2Name = "TotalVolume";
  100. Column3 = PerCentFloat;
  101. Column3Name = "PerCentOfFloat";
  103. GraphXspace = 5;
  104. graph1 = close;
  105. Graph1Style= 64;
  106. graph0 = zig( close, PerCentChange );
  107. graphxspace= 9;
  109. title="The Per Cent of Float today="  +  WriteVal(PerCentFloat) + 
  110.         ";    Float="  +   WriteVal(Float)   +
  111.         ";    50DVA = " +   WriteVal(ma(V,50)/1e6 )  +  "    Million Shares" +
  112.         "   Days since for float turnover based on MOV" + 
  113.             WriteVal(Float/(ma(v,50)/1e6) );