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

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

金融证券系统

开发平台：

Others

Demand Index.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Demand Index
  4. //  Author/Uploader: Steve Wiser 
  5. //  E-mail:          slwiserr@erols.com
  6. //  Date/Time Added: 2001-07-05 19:12:36
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           medium
  10. //  Flags:           system,exploration,indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=58
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=58
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  Uses the demand index for a system test.
  17. //
  18. //------------------------------------------------------------------------------
  20. /* Demand Index */
  21. /* Steve Wiser at slwiserr@erols.com */
  22. /* Exploration, System and indicator */
  24. GraphMax=9;
  26. A=(H+L+2*C);
  27. B=ema((HHV(H,2)-LLV(L,2)),19);
  28. BuyP= 
  29. /*{BuyPower}*/
  30.  V/ema(V,19) * ((A>=Ref(A,-1)) +(A<Ref(A,-1)) / Exp((0.375 * (A+Ref(A,-1)) /B ) *(Ref(A,-1)-A) / A));
  32. SellP = 
  33. /*{SellPressure}*/ 
  34. V/ema(V,19) * ((A<=Ref(A,-1)) + (A>Ref(A,-1)) / Exp((0.375 * (A+Ref(A,-1)) / B ) * (A-Ref(A,-1)) / Ref(A,-1)));
  37. mabp=ema(BuyP,19);       
  38. masp=ema(SellP,19);        /*{smooth Selling Pressure}*/
  39. divsor=iif(mabp>masp,mabp,masp);         /*{BP:SP ratio}*/
  40. divend=iif(mabp<masp,mabp,masp);       /*{biggest=divisor}*/
  41. var2=1-(divend/divsor);                               /*{adjust ratio to plot in}*/
  42. var3=iif( (masp>mabp) , -var2 , var2  )  ;       /*{range -100 to 100}*/
  43. var4=var3*100;  
  44. Graph1 = var4;
  45. Graph1Style=5;
  47. var5=ma(var4,30);
  48. Graph2=var5;;
  49. Graph2Style=5;
  50. Graph2Color=6;
  52. /*  Zero Line  */
  53. Graph0=0;
  56. Buy=cross(var4,var5); /* originally var5 was a zero */
  57. sell=cross(0,var4);
  59. buy=exrem(buy,sell);
  60. sell=exrem(sell,buy);
  62. short=sell;
  63. cover=buy;
  65. Filter= (Buy == 1 or Sell == 1)  ;
  66. numcolumns = 7;
  67. column0 =  IIF(Buy == 1, 1, IIF(Sell == 1, -1, 0 )  );
  68. column0format = 1.0;
  69. column0name = "B/S";
  70. column1 = C;
  71. column1name = "Close       ";
  72. column1format = 1.2;
  73. column2 = ma(v,17);
  74. column2name = "17 Ma Vol   ";
  75. column2format = 1.0;
  76. column3 = ma(C,17)/ma(c,50);
  77. column3name = "% 17/50 ";
  78. column3format = 1.2;
  79. column3format = 1.2;
  80. column4= ma(c,17);
  81. column4name="17 C ma";
  82. column4format = 1.2;
  83. column4= ma(c,50);
  84. column4name="50 C ma";
  85. column4format = 1.2;
  86. Column5=ROC(var4,2);
  87. column5Name="ROC DI";
  88. Column5Format=1.2;  
  89. Column6=Cum(1);
  90. Column6Name = "#Bars";
  91. Column6format = 1.0;
  93. /*  End of Exploration Code. */