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

金融证券系统

开发平台:

Others

  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    DT Oscillator
  4. //  Author/Uploader: X-Trader 
  5. //  E-mail:          
  6. //  Date/Time Added: 2005-06-04 13:35:04
  7. //  Origin:          
  8. //  Keywords:        Dynamic Traders Miner StochRSI
  9. //  Level:           basic
  10. //  Flags:           indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=465
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=465
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  The very known indicator created by Robert Miner based on StochRSI. Use it
  17. //  as a Stochastic or to help you counting waves. Set MAType=1 if you want the
  18. //  simple version, or MAType=2 for exponential.
  19. //
  20. //------------------------------------------------------------------------------
  21. /* DT Oscillator 
  22. **
  23. ** AFL translation by X-Trader
  24. ** http://www.x-trader.net
  25. **
  26. */
  27. PeriodRSI= Param("PeriodRSI", 13, 1, 250, 1);
  28. PeriodStoch=Param("PeriodStoch", 8, 1, 250, 1);
  29. MAType=Param("MAType", 1, 1, 2, 1);
  30. PeriodSK=Param("PeriodSK", 5, 1, 250, 1);
  31. PeriodSD=Param("PeriodSD", 3, 1, 250, 1);
  32. Upper=Param("Upper", 70, 50, 100, 1);
  33. Lower=Param("Lower", 30, 0, 50, 1);
  34. StoRSI= 100*(( RSI( PeriodRSI) - LLV( RSI( PeriodRSI ) , PeriodStoch ) ) / ( ( HHV( RSI( PeriodRSI) , PeriodStoch ) ) - LLV(RSI( PeriodRSI ), PeriodStoch ) ) );
  35. if(MAType==1)
  36. {
  37. SK=MA(StoRSI,PeriodSK);
  38. SD=MA(SK,PeriodSD);
  39. }
  40. if(MAType==2)
  41. {
  42. SK=EMA(StoRSI,PeriodSK);
  43. SD=EMA(SK,PeriodSD);
  44. }
  45. Plot(SK,"DTOscSK",ParamColor( "ColorSK", colorBlue ),styleLine); 
  46. Plot(SD,"DTOscSD",ParamColor( "ColorSD", colorBlack ),styleDashed);
  47. Plot(0,"ZeroLine",ParamColor( "ColorZero", colorBlack ),styleLine);
  48. Plot(Upper,"Upper",ParamColor( "ColorUpper", colorRed ),styleLine);
  49. Plot(Lower,"Lower",ParamColor( "ColorLower", colorGreen ),styleLine);