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

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

金融证券系统

开发平台：

Others

ZigZag filter rewrited from scratch in AFL.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    ZigZag filter rewrited from scratch in AFL
  4. //  Author/Uploader: Tintin92 
  5. //  E-mail:          
  6. //  Date/Time Added: 2004-12-28 17:42:50
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           medium
  10. //  Flags:           indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=417
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=417
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  ZigZag filter rewrited from scratch in AFL
  17. //
  18. //------------------------------------------------------------------------------
  21. _SECTION_BEGIN("Reversal");
  22. Reversal = Param( _DEFAULT_NAME(), 01.0,0.01,20,0.01);
  23. _SECTION_END();
  25. ZigZArray = Avg;
  26. ZigZArray = Null;
  28. ValFromPro=0;
  29. ValToPro=0;
  30. ValRead=0;
  32. BarFromPro=0;
  33. BarToPro=0;
  34. BarRead=0;
  36. ProcessUndef = 10;
  37. ProcessIncrease = 11;
  38. ProcessDecrease = 12;
  40. Process = ProcessUndef;
  41. ValFromPro=Avg[0];
  42. ValToPro=Avg[0];
  43. BarFromPro=0;
  44. BarToPro=0;
  45. BarRead=0;
  47. function FillLine( startbar, startval, endbar, endval )
  48. {
  49. for( j = startbar; j <= endbar; j++ )
  50. {
  51. ZigZArray[ j ] = startval + (( j - startbar) * (endval-startval)/( endbar - startbar ));
  52. }
  53. }
  55. function TrtUndef( )
  56. {
  57. if ( ValRead > ( ((100 + Reversal)/100 ) * ValFromPro ) )///If rupture Increase
  58. {
  59. Process = ProcessIncrease;
  60. ValToPro=ValRead;
  61. BarToPro=BarRead;
  62. }
  63. else
  64. {
  65. if ( ValRead < ( ((100- Reversal)/100 ) * ValFromPro ) )  // If rupture Decrease
  66. {
  67. Process = ProcessDecrease;
  68. ValToPro=ValRead;
  69. BarToPro=BarRead;
  70. }
  71. else
  72. {
  73. Process = ProcessUndef;
  74. }
  75. }
  76. }
  78. function TrtIncrease( )
  79. {
  80. if ( ValRead > ValToPro )  // Still Increase
  81. {
  82. Process = ProcessIncrease;
  83. ValToPro=ValRead;
  84. BarToPro=BarRead;
  85. }
  86. else   // Break Increase Process
  87. {
  88. if ( ValRead <  ( ((100- Reversal)/100 ) * ValToPro ) )   // If break Decrease
  89. {
  90. Process = ProcessDecrease;
  91. ValFromPro=ValToPro;
  92. BarFromPro=BarToPro;
  93. ValToPro=ValRead;
  94. BarToPro=BarRead;
  95. }
  96. }
  97. }
  99. function TrtDecrease( )
  100. {
  101. if ( ValRead < ValToPro )  // Still Decrease
  102. {
  103. Process = ProcessDecrease;
  104. ValToPro=ValRead;
  105. BarToPro=BarRead;
  106. }
  107. else  // Break Decrease Process
  108. {
  109. if ( ValRead >  ( ( (100+ Reversal)/100 ) * ValToPro ) ) // If break Decrease
  110. {
  111.        Process = ProcessIncrease;
  112. ValFromPro=ValToPro;
  113. BarFromPro=BarToPro;
  114. ValToPro=ValRead;
  115. BarToPro=BarRead;
  116. }
  117. }
  118. }
  121. for( i = 1; i < BarCount; i++ )
  122. {
  123. ValRead = Avg[i];
  124. BarRead = i;
  126. if ( Process == ProcessUndef )
  127. {
  128. TrtUndef();
  129. }
  130. else
  131. {
  132. if ( Process == ProcessIncrease )
  133. {
  134. TrtIncrease();
  135. }
  136. else
  137. {
  138. TrtDecrease();
  139. }
  140. }
  142. if ( BarToPro == BarRead )
  143. FillLine( BarFromPro, ValFromPro, BarToPro, ValToPro );
  144. else
  145. FillLine( BarToPro, ValToPro, BarRead, ValRead );
  146. }
  149. _SECTION_BEGIN("avg");
  150. SetChartOptions(0,chartShowArrows);
  151. Plot( Avg, _DEFAULT_NAME(), ParamColor("Color", colorBlack ), ParamStyle("Style", styleLine + styleDots, maskPrice ) ); 
  152. _SECTION_END();
  154.  _SECTION_BEGIN("ZigZArray");
  155. Plot( ZigZArray, _DEFAULT_NAME(), ParamColor("Color", colorRed ), ParamStyle("Style", styleLine + styleThick) ); 
  156. _SECTION_END();