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

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

金融证券系统

开发平台：

Others

% B of Bollinger Bands With Adaptive Zones.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    % B of Bollinger Bands With Adaptive Zones
  4. //  Author/Uploader: Anthony Faragasso 
  5. //  E-mail:          ajf1111@epix.net
  6. //  Date/Time Added: 2001-12-20 14:22:02
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           basic
  10. //  Flags:           indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=140
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=140
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  %B of Bollinger Bands With Adaptive Zones. The % B raw figure
  17. //
  18. //  Gives Percentage of where the close is in relation to the bands.
  19. //
  20. //  High reading ( Upper band ) , Low reading (Lower band )
  21. //
  22. //  I have added the Adaptive Zones oscillator to help pinpoint possible Buy
  23. //  and sell areas.
  24. //
  25. //------------------------------------------------------------------------------
  27. /* %B of Bollinger Bands With Adaptive Zones */
  28. /* Gives Percentage of where the close is in relation to the bands.*/
  29. /* High reading ( Upper band ) , Low reading (Lower band )
  30. /* AFL code by Anthony Faragasso*/
  32. //Inputs 
  33. Lookback=60;
  34. Baseline=50;/*Do not Change*/
  35. PerCent=95;
  36. Pds =14;
  39. b=( ( C+2 * StDev( C,20 ) - MA( C,20 ) ) / ( 4 * StDev( C,20 ) ) ) * 100;
  40. /*Input */
  42. Osc=b;
  44. /*Value of Osc*/
  45. Value1 = Osc;
  47. /*Highest AND Lowest Values of Osc during Lookback Period*/
  48. Value2 = HHV(Value1,Lookback);
  49. Value3 = LLV(Value1,Lookback);
  51. /*Range of Osc during Lookback Period*/
  52. Value4 = Value2 - Value3;
  54. /*Define PerCent of Range to determine OB AND OS levels*/
  55. Value5 = Value4 * (PerCent / 100);
  57. /*Calculate OB AND OS levels*/
  58. Value6 = Value3 + Value5;
  59. Value7 = Value2 - Value5;
  61. baseline=IIf( Osc < 100 ,50 ,IIf( Osc < 0  ,0,0));
  63. Plot(Baseline," Baseline",7,1+4); /* yellow*/
  64. Plot(Value1,"( Adaptive Zones OSC )",6,1+4); /*BLUE*/
  65. Plot(Value6,"O/B",4,1+4);  /*RED -TOP(SELL)*/
  66. Plot(Value7,"O/S",5,1+4);  /*GREEN-BOT(BUY)*/
  68. Plot(b,"( % B  )" ,4,1);