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

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

金融证券系统

开发平台：

Others

Dinapoli Guru Commentary.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Dinapoli Guru Commentary
  4. //  Author/Uploader: Grayesso 
  5. //  E-mail:          grayesso@rambler.ru
  6. //  Date/Time Added: 2003-12-10 14:06:39
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           basic
  10. //  Flags:           commentary
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=311
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=311
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  Dinapoli Guru Commentari + MACD optimise + Stochastic optimise = Trade
  17. //  system
  18. //
  19. //------------------------------------------------------------------------------
  21. /* Project:       AmiBroker
  22. ** File:          Dinapoli.afl
  23. ** Title:         Dinapoli Guru Commentary (Trading with DiNapoli Levels,chapter 5)
  24. ** Date:          Dec 8th, 2003
  25. ** Written by:    Grayesso (grayesso dog rambler dot ru)
  26. */ 
  29. /* MACD (fa,sa,sig) , where: fa - fast avg., sa - slow avg., sig - signal
  30.  (it is necessary to install in preferences [Preferences - Indicators]) */
  31. fa = Prefs( 11 );
  32. sa = Prefs( 12 );
  33. sig = Prefs( 13 );
  35. /* Stochastic (range, Ksmooth, Dsmooth) 
  36. range - to install in preferences [Preferences - Indicators]*/
  37. range = Prefs(14);
  39. /* Attention!!! 
  40. Ksmooth and Dsmooth - to install here and now, in preferences uselessly to change */
  42. Ksmooth=3;
  43. Dsmooth=3;
  46. Buy=Cross(StochK (range,Ksmooth), StochD(range,Ksmooth,Dsmooth)) AND (MACD(fa,sa)>Signal(fa,sa,sig)) OR Cross(MACD(fa,sa),Signal(fa,sa,sig)) ;
  48. Sell = Cross(StochD(range,Ksmooth,Dsmooth), StochK(range,Ksmooth)) AND (MACD(fa,sa)< Signal (fa,sa,sig)) OR Cross(Signal(fa,sa,sig),MACD(fa,sa));
  51. "n Review of    " + FullName() + " (" + Name() + ")" + "n as of            " + Date();
  52. "n MACD:          (" + Prefs(11)+","+Prefs(12)+","+Prefs(13)+")";
  53. " Stochastic:    (" + Prefs(14)+","+Ksmooth+","+Dsmooth+")";
  54. "n Current Statistics :n";
  55. " Close:              " + WriteVal(Close);
  56. " Change:          " + WriteVal(Close - Ref( Close, -1 ) ) ;
  57. "n MACD Value:  " + WriteVal(MACD(fa,sa));
  58. " Signal Line:     " + WriteVal(Signal(fa,sa,sig));
  59. "n Stochastic %K  "+WriteVal (StochK(range,Ksmooth));
  60. " Stochastic %D  "+WriteVal (StochD(range,Ksmooth, Dsmooth ));