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

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

金融证券系统

开发平台：

Others

3 Line Break.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    3 Line Break
  4. //  Author/Uploader: Aron Pipa 
  5. //  E-mail:          
  6. //  Date/Time Added: 2006-03-17 12:31:03
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           medium
  10. //  Flags:           indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=599
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=599
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  TBL chart with adjustable reversal as desecribed by Steve Nison in "Beyond
  17. //  Candelsticks"
  18. //
  19. //  Thanks to Graham Kavanagh and Noname for the P&F chart code which I
  20. //  used as base reference for construction of 3LineBreak chart.
  21. //
  22. //------------------------------------------------------------------------------
  24. /*---------------------------------------------------
  25. 3 Line Break 
  26. Aron Pipa, March, 17, 2006
  27. --------------------------------------------------------*/
  29. GraphXSpace=7; 
  31. numline = Param("Break",2, 2, 10, 1);
  32. j =0;
  33. Line[j]= C[0];
  34. Op[j]= C[0]; 
  35. direction = 0; 
  36. up=0; // count up lines
  37. down=0;// count down lines
  38. Count=1; // count lines
  40. for( i = 1; i < BarCount; i++ )
  41. {
  43. if(direction[j] == 0) // continues down 
  44. {
  45. if(C[i] < Line[j] ) 
  46. {
  47. j++; 
  48. direction[j] = 0; 
  49. Line[j] = C[i];
  50. Op[j] =Line[j-1];
  51. down++;
  52. up=0;
  53. Count++;
  54. }
  55. else
  56. {
  57. if(Count==1 && C[i] > OP[j] )// I-st reverse
  58. {
  59. j++; 
  60. direction[j] = 1; 
  61. Line[j] = C[i];
  62. Op[j] = Op[j-1];
  63. up++;
  64. down=0;
  65. Count++;
  66. }
  67. if(Count>1 && down  ==1 && C[i] > Line[j-1])//  reverse after 1 down line
  68. {
  69. j++; 
  70. direction[j] = 1; 
  71. Line[j] = C[i];
  72. Op[j] = Op[j-1];
  73. up++;
  74. down=0;
  75. Count++;
  76. }
  77. if(Count >1  && down  >1 && down < numline && C[i] > Op[j-1])//simple reverse 
  78. {
  79. j++; 
  80. direction[j] = 1; 
  81. Line[j] = C[i];
  82. Op[j] = Op[j-1];
  83. up++;
  84. down=0;
  85. Count++;
  86. }
  87. if(  down >= numline && C[i] > Op[j-(numline -1)]) // white trunaround line
  88. {
  89. j++; 
  90. direction[j] = 1; 
  91. Line[j] = C[i];
  92. Op[j] = Op[j-1];
  93. up++;
  94. down=0;
  95. Count++;
  96. }
  97. }
  101. }
  102. else // continues up
  103. {
  104. if(C[i] > Line[j]) 
  105. {
  106. j++; 
  107. direction[j] = 1; 
  108. Line[j] = C[i];
  109. op[j] = Line[j-1];
  110. up++;
  111. down=0;
  112. Count++;
  113. } 
  114. else
  115. {
  116. if(Count==1  && C[i] < OP[j] )// I-st reverse
  117. {
  118. j++; 
  119. direction[j] = 0; 
  120. Line[j] =C[i];
  121. Op[j] = Op[j-1];
  122. down++;
  123. up=0;
  124. Count++;
  126. }
  127. if(Count>1 && up  ==1 && C[i] < Line[j-1])//  reverse after 1 up line
  128. {
  129. j++; 
  130. direction[j] = 0; 
  131. Line[j] =C[i];
  132. Op[j] = Op[j-1];
  133. down++;
  134. up=0;
  135. Count++;
  136. }
  137. if( Count>1 && up  >1 && up < numline && C[i] < Op[j-1]) //simple reverse 
  138. {
  139. j++; 
  140. direction[j] = 0; 
  141. Line[j] =C[i];
  142. Op[j] = Op[j-1];
  143. down++;
  144. up=0;
  145. Count++;
  146. }
  147. if( up >= numline && C[i] < Op[j-(numline -1)])//black trunaround line
  149. {
  150. j++; 
  151. direction[j] = 0; 
  152. Line[j] =C[i];
  153. Op[j] = Op[j-1];
  154. down++;
  155. up=0;
  156. Count++;
  157. }
  158. }
  159. }
  160. }
  161. delta = BarCount - j -1;
  162. direction = Ref(direction, - delta); 
  163. C= Ref(Line, - delta); 
  164. O=(Ref(Op,-delta));
  165. H= L=C; 
  168. Plot(C,"", 39, styleCandle); 
  170. Title = Name() + "  Three Line Break" +"n"+
  171. "Value = " + SelectedValue(C)  +"n"+
  172. "Break = " + numline;