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

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

金融证券系统

开发平台：

Others

'R' Channel.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    'R' Channel
  4. //  Author/Uploader: Mr Valley 
  5. //  E-mail:          
  6. //  Date/Time Added: 2004-02-03 02:15:02
  7. //  Origin:          Author Marc Valley
  8. //  Keywords:        R Channel
  9. //  Level:           advanced
  10. //  Flags:           system,indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=325
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=325
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  /* 'R' Channel */
  17. //
  18. //  /*Author Marc Valley */
  19. //
  20. //  Var = 4;
  21. //
  22. //  M1 = MA(Max(H,Var ),2);
  23. //
  24. //  L1 = MA(Min(L,Var ),2);
  25. //
  26. //  K = M1 - L1;
  27. //
  28. //  Num1 = sqrt(K);
  29. //
  30. //  Dem1 = sqrt(1.00+K);
  31. //
  32. //  H1 = (Num1/Dem1)/2;
  33. //
  34. //  Num2 = sqrt(1.0);
  35. //
  36. //  Dem2 = sqrt(1+K);
  37. //
  38. //  H2 = ((Num2/Dem2)/2) *C;
  39. //
  40. //  H3 =(H1 + H2) ;
  41. //
  42. //  MAH2MA =MA(L - (H2/100),Var );
  43. //
  44. //  MAH3MA= MA(H + (H3/100) ,Var);
  45. //
  46. //  MA3 = (MAH3MA + MAH2MA) /2;
  47. //
  48. //  UCL =( MAH3MA + MA3 )/2;
  49. //
  50. //  LCL = (MA3 + MAH2MA )/2;
  51. //
  52. //  //Buy = INSERT RULES HERE ;
  53. //
  54. //  //Sell = INSERT RULES HERE ;
  55. //
  56. //  //Cover = Buy;
  57. //
  58. //  //Short = Sell;
  59. //
  60. //  //Equity(1);
  61. //
  62. //  Plot(Close,"Valley 'R' Channel Close",1,8);
  63. //
  64. //  //Plot(L,"Low",6,8);
  65. //
  66. //  //Plot(Close,"Close",1,64);
  67. //
  68. //  Plot(MAH2MA ,"H2",5,4);
  69. //
  70. //  Plot(MAH3MA ,"H3",4,4);
  71. //
  72. //  Plot(MA3 ,"Center",2,4);
  73. //
  74. //  Plot(UCL ,"UCL",10,4);
  75. //
  76. //  Plot(LCL ,"LCL",10,4);
  77. //
  78. //  //Plot(Avg,"Valley 'R' Channel (C) 2004 Avg",colorYellow,8);
  79. //
  80. //  ////////////////////////////////// Market Trend Plot Section
  81. //
  82. //  //Plot(MA(C,18),"MA18",4,4);
  83. //
  84. //  Plot(MA(C,40),"MA40",7,4);
  85. //
  86. //  Plot(MA(C,100),"MA100",5,4);
  87. //
  88. //  Plot(MA(C,200),"MA200",6,4);
  89. //
  90. //  Plot(Close ,"Close" + EncodeColor( colorBlack ) ,2, styleNoLine |
  91. //  styleNoRescale );
  92. //
  93. //------------------------------------------------------------------------------
  95. /* 'R' Channel */
  96. /*Author Marc Valley */
  99. Var = 4;
  100. M1 = MA(Max(H,Var ),2);
  101. L1 = MA(Min(L,Var ),2);
  102. K = M1 - L1;
  103. Num1 = sqrt(K);
  104. Dem1 = sqrt(1.00+K);
  105. H1 = (Num1/Dem1)/2;
  106. Num2 = sqrt(1.0);
  107. Dem2 = sqrt(1+K);
  108. H2 = ((Num2/Dem2)/2) *C;
  109. H3 =(H1 + H2) ;
  110. MAH2MA =MA(L - (H2/100),Var );
  111. MAH3MA= MA(H + (H3/100) ,Var);
  112. MA3 = (MAH3MA + MAH2MA) /2;
  113. UCL =( MAH3MA + MA3 )/2;
  114. LCL = (MA3 + MAH2MA )/2;
  116. //Buy = INSERT RULES HERE ;
  117. //Sell = INSERT RULES HERE  ;
  118. //Cover = Buy;
  119. //Short = Sell;
  120. //Equity(1);
  122. Plot(Close,"Valley 'R' Channel    Close",1,8);
  123. //Plot(L,"Low",6,8);
  124. //Plot(Close,"Close",1,64);
  125. Plot(MAH2MA ,"H2",5,4);
  126. Plot(MAH3MA ,"H3",4,4);
  127. Plot(MA3 ,"Center",2,4);
  128. Plot(UCL ,"UCL",10,4);
  129. Plot(LCL ,"LCL",10,4);
  130. //Plot(Avg,"Valley 'R' Channel (C) 2004  Avg",colorYellow,8);
  133. ////////////////////////////////// Market Trend Plot Section
  134. //Plot(MA(C,18),"MA18",4,4);
  135. Plot(MA(C,40),"MA40",7,4);
  136. Plot(MA(C,100),"MA100",5,4);
  137. Plot(MA(C,200),"MA200",6,4);
  138. Plot(Close  ,"Close" + EncodeColor( colorBlack )  ,2, styleNoLine | styleNoRescale );