The Three Day Reversal.afl
上传用户:shiqiang
上传日期:2009-06-12
资源大小:1289k
文件大小:2k
源码类别:

金融证券系统

开发平台:

Others

  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    The Three Day Reversal
  4. //  Author/Uploader: Prashanth 
  5. //  E-mail:          prash454@Rediffmail.com
  6. //  Date/Time Added: 2005-08-30 23:42:41
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           basic
  10. //  Flags:           system
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=552
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=552
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  The three day reversal is a very simple pattern. When the trend is Up or
  17. //  Long – The Three Day Drop and When the trend is Down or Short
  18. //  – The 3 Day Rise.
  19. //
  20. //------------------------------------------------------------------------------
  21. // 3 Day Reversal by Prashanth
  22. // Knowing the Current Trend
  23. P1 = Param("Period",10,0,100,1);
  24. MyPDI= PDI(P1);//Positive Directional Indicator
  25. MyMDI= MDI(P1);//Negative Directional Indicator (Minus)
  26. // Trend Conditions
  27. Cond1 = MyPDI > MyMDI;
  28. Cond2 = MyPDI < MyMDI;
  29. //Sell Conditions
  30. Cond3 = Ref(C,-1) > Ref(C,-2) AND Ref(C,-2) > Ref(C, -3) AND Ref(C, -3) > Ref(C, -4);
  31. Cond4 = C < Ref(C,-1) AND C < Ref(O, -1);
  32. A = H - C;
  33. B = ( ( 100 * A ) / C );
  34. D = (100 * 0.50 ) / H;
  35. E = (100 * 0.50 ) / L;
  36. Cond5 = O > (H - D); // AND B < 0.50; 
  37. Cond6 = C <= (L + E);
  38. Short = Cond1 AND Cond3 AND Cond4 AND Cond5 AND Cond6;
  39. Cover = C > ShortPrice;
  40. // Buy Conditions
  41. Cond7 = C > Ref(C,-1);
  42. Cond8 = O <= (L + E);
  43. Cond9 = C >= (H - D);
  44. Buy = Cond2 AND Cond7 AND Cond8 AND Cond9;
  45. Sell = C < BuyPrice;
  46. // ApplyStop(stopTypeLoss, stopModePercent, 3, 1);
  47. Buy = ExRem(Buy, BarsSince(Buy) > 5);
  48. Sell = ExRem(Sell, BarsSince(Sell) > 5);