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

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

金融证券系统

开发平台：

Others

Gann HiLo Indicator and System.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Gann HiLo Indicator and System
  4. //  Author/Uploader: Steve Wiser 
  5. //  E-mail:          slwiserr@erols.com
  6. //  Date/Time Added: 2001-07-05 19:17:42
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           basic
  10. //  Flags:           showemail
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=60
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=60
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  Uses a Gann HiLo Indicator to build a system for testing.
  17. //
  18. //------------------------------------------------------------------------------
  20. /*name = Gunn hi lo*/
  22. GraphMax=6;
  24. Graph0=C;
  26. Periods= 6;    /* Change this value as needed */
  27. HLd=IIf(CLOSE>Ref(Ma(H,Periods),-1),
  28. /*then*/ 1,
  29. /*else*/IIf(CLOSE<Ref(Ma(L,Periods),-1),
  30. /*then*/-1,
  31. /*else*/0));
  32. HLv=ValueWhen(HLd != 0,HLd,1);
  33. HiLo=IIf(HLv=-1,
  34. /*then*/Ma(H,Periods),
  35. /*else*/Ma(L,Periods));
  36. Graph1=HiLo;
  38. /*Name = Gunn hi lo invert*/
  40. Periods = 3;  /* Change this as needed */
  41. HLd=IIf(CLOSE>Ref(Ma(H,Periods),-1),
  42. /*then*/1,
  43. /*else*/IIf(CLOSE<Ref(Ma(L,Periods),-1),
  44. /*then*/-1,
  45. /*else*/0));
  46. HLv=ValueWhen(HLd != 0,HLd,1);
  47. HiLoInvert=IIf(HLv=-1,
  48. /*then*/Ma(H,Periods),
  49. /*else*/Ma(L,Periods));
  50. Graph2=HiLoInvert;
  52. Graph2Style=4;
  53. Graph0Style=68;
  55. Buy= Cross(HiLo,HiLoInvert) ;
  56. Sell=Cross(HiLoInvert,HiLo) ;
  58. Buy=exrem(buy,sell);
  59. Sell=exrem(sell,buy);
  61. short=sell;
  62. cover=buy;
  64. Filter=  (Buy==1)  ;
  65. numcolumns = 5;
  66. column0 =ref(HiLo,-1);
  67. column0format = 1.2;
  68. column0name = "Trigger Price";
  69. column1 = C;
  70. column1name = "Close       ";
  71. column1format = 1.2;
  72. column2 = ma(v,17);
  73. column2name = "Volume    ";
  74. column2format = 1.0;
  75. column3 = ma(C,17)/ma(c,50);
  76. column3name = "% 17/50 ";
  77. column3format = 1.2;
  78. column3format = 1.2;
  79. column4= ma(c,17);
  80. column4name="17 C ma";
  81. column4format = 1.2;
  82. column4= ma(c,50);
  83. column4name="50 C ma";
  84. column4format = 1.2;