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

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

金融证券系统

开发平台：

Others

Weinberg's The Range Indicator.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Weinberg's The Range Indicator
  4. //  Author/Uploader: Marek Chlopek 
  5. //  E-mail:          mchlopek@post.pl
  6. //  Date/Time Added: 2001-10-17 02:51:46
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           basic
  10. //  Flags:           indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=126
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=126
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  From S&C V13:6 (238-242)
  17. //
  18. //------------------------------------------------------------------------------
  20. /* TRI.AFL v 1.00 17/10/2001
  21. /* TRI - The Range Indicator
  22. /* Developed by Jack L. Weinberg
  23. /* From Technical Analysis of Stocks and Commodities, V13:6 (238-242)
  24. /* Coded by Marek Chlopek, October 2001
  25. /* Support from Tomasz Janeczko and Amibroker Mailing List members - THANKS!!! */
  27. /* ************************************************************************** */
  28. /* StochRange - first step in constructing the TRI
  29. /* StochRange - an oscillator of the ratio of the daily true range with the intraday range
  30. /* Value1 - Today's True Range divided by today's close minus yesterday's close unless C-Ref(C,-1) < 0 then Value1 = True Range
  31. /* Value2 - the lowest value of Value1, over the last q days
  32. /* Value3 - the highest value of Value1, over the last q days */
  33. q = 10; /* stochastic period */
  34. Value1 = IIF(Close > Ref(Close, -1), ATR(1) / (Close - Ref(Close, -1)), ATR(1));
  35. Value2 = LLV(Value1, q);
  36. Value3 = HHV(Value1, q);
  37. StochRange = IIF((Value3 - Value2) > 0, 100 * (Value1 - Value2) / (Value3 - Value2), 100 * (Value1 - Value2));
  39. /* The Range Indicator - TRI by J.L Weinberg
  40. /* The Range Indicator - smooth StochRange using an exponential moving average of m periods */
  41. m = 3; /* exponential smoothing period */
  42. TRI = EMA(StochRange, m);
  44. /* ************************************************************************** */
  45. /* Graphic presentation in Amibroker */
  46. maxgraph = 1;
  47. graph0 = TRI;
  48. title = name() + " - TRI = " + WriteVal(graph0, 1.2) + " %";
  50. /* ************************************************************************** */
  51. /* Exploration in Amibroker */
  52. filter = 1;
  53. numcolumns = 2;
  54. column0 = StochRange; column0name = "StochRange"; column0format = 1.2;
  55. column1 = TRI; column1name = "TRI"; column1format = 1.2;
  57. /* ************************************************************************** */
  58. /* END TRI Indicator Formula */