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

金融证券系统

开发平台:

Others

  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    The Relative Slope Pivots
  4. //  Author/Uploader: Dimitris Tsokakis 
  5. //  E-mail:          
  6. //  Date/Time Added: 2002-03-25 04:30:18
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           advanced
  10. //  Flags:           indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=181
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=181
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  Definitions:
  17. //
  18. //  "RS up pivot" (RSUP) is the population of stocks presenting a bearish
  19. //  turning point (bearish pivot)
  20. //
  21. //  over a certain (positive) level of their Relative Slope value.
  22. //
  23. //  "RS down pivot" (RSDP) is the population of stocks presenting a bullish
  24. //  turning point (bullish pivot)
  25. //
  26. //  below a certain (negative) level of their Relative Slope value.
  27. //
  28. //  The two levels are predetermined and estimated by the Technical Analyst, as
  29. //  the levels where the majority of stocks obtained their maximum
  30. //  (respectively minimum) Relative slope value.
  31. //
  32. //  Observation indicates that an 80% of this level performs well.
  33. //
  34. //  In the following code, conditions RS>2 and RS<-2 are used respectively.
  35. //  They may be modified according to market profile.
  36. //
  37. //------------------------------------------------------------------------------
  38. /*RSPIVOTS*/
  39. K=EMA((H+L+C)/3,10);
  40. S1=2*(K-Ref(K,-1))/(K+Ref(K,-1));
  41. RS=100*EMA(S1,3);
  42. s3=RS<Ref(RS,-1) AND Ref(RS,-1)>Ref(RS,-2) AND RS>2;
  43. s4=RS>Ref(RS,-1) AND Ref(RS,-1)<Ref(RS,-2) AND RS<-2;
  44. values9 = s3>0;
  45. values10=s4>0;
  46. AddToComposite(Values9,"~rsuppivot","V");
  47. AddToComposite(Values10,"~rsdownpivot","V");
  48. Buy=0;