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

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

金融证券系统

开发平台：

Others

Parabolic SAR in native AFL (v.4.31.1 required).afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Parabolic SAR in native AFL (v.4.31.1 required)
  4. //  Author/Uploader: Tomasz Janeczko 
  5. //  E-mail:          
  6. //  Date/Time Added: 2003-04-13 10:42:45
  7. //  Origin:          Welles Wilder
  8. //  Keywords:        
  9. //  Level:           semi-advanced
  10. //  Flags:           indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=268
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=268
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  Here is a sample code that shows how to use for/if/else control statements
  17. //  introduced in AmiBroker 4.31.x BETA.
  18. //
  19. //  The code re-implements Parabolic Stop-And-Reverse system/indicator.
  20. //
  21. //  The code is quite similar to JScript version.
  22. //
  23. //------------------------------------------------------------------------------
  25. /////////////////////////////////
  26. // Parabolic SAR re-implemented in
  27. // native AFL.
  28. //
  29. // Example of for/if/else control statements
  30. //
  31. // Requires:
  32. // AmiBroker 4.31.1 
  33. // 
  34. // Written by: Tomasz Janeczko
  36. IAF = 0.02;       // acceleration factor
  37. MaxAF = 0.2;     // max acceleration
  39. psar = Close; // initialize
  40. long = 1;        // assume long for initial conditions
  41. af = IAF;         // init acelleration factor
  42. ep = Low[ 0 ];   // init extreme point
  43. hp = High [ 0 ];
  44. lp = Low [ 0 ];
  46. for( i = 2; i < BarCount; i++ )
  47. {
  48. if ( long )
  49. {
  50. psar [ i ] = psar [ i-1 ] + af * ( hp - psar [ i-1 ] );
  51. }
  52. else
  53. {
  54. psar [ i ] = psar [ i-1 ] + af * ( lp - psar [ i-1 ] );
  55. }
  57. reverse =  0;
  58. //check for reversal
  59. if ( long )
  60. {
  61. if ( Low [ i ] < psar [ i ]  )
  62. {
  63. long = 0; reverse = 1; // reverse position to Short
  64. psar [ i ] =  hp;       // SAR is High point in prev trade
  65. lp = Low [ i ];
  66. af = IAF;
  67. }
  68. }
  69. else
  70. {
  71. if ( High [ i ] > psar [ i ]  )
  72. {
  73. long = 1; reverse = 1;        //reverse position to long
  74. psar [ i ] =  lp;
  75. hp = High [ i ];
  76. af = IAF;
  77. }
  78. }
  80. if ( reverse == 0 )
  81. {
  82. if ( long )
  83. {
  84. if ( High [ i ] > hp ) 
  85. {
  86. hp = High [ i ]; 
  87. af = af + IAF; 
  88. if( af > MaxAF ) af = MaxAF; 
  89. }
  90.              
  91. if( Low[ i - 1 ] < psar[ i ] ) psar[ i ] = Low[ i - 1 ];
  92. if( Low[ i - 2 ] < psar[ i ] ) psar[ i ] = Low[ i - 2 ];
  93. }
  94.        else
  95. {
  96. if ( Low [ i ] < lp )  
  97. { 
  98. lp = Low [ i ]; 
  99. af = af + IAF; 
  100. if( af > MaxAF ) af = MaxAF; 
  101. }
  103. if( High[ i - 1 ] > psar[ i ] ) psar[ i ] = High[ i - 1 ];
  104. if( High[ i - 2 ] > psar[ i ] ) psar[ i ] = High[ i - 2 ];
  106. }
  107. }
  108. }
  110. Plot( Close, "Price", colorBlack, styleCandle );
  111. Plot( psar, "SAR", colorRed, styleDots | styleNoLine | styleThick );