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

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

金融证券系统

开发平台：

Others

ROC of MACD Weekly.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    ROC of MACD Weekly
  4. //  Author/Uploader: Frank Snay 
  5. //  E-mail:          fesnay@san.rr.com
  6. //  Date/Time Added: 2002-04-04 15:46:25
  7. //  Origin:          Weekly Trend Indicator using ROC of MACD Signal Line
  8. //  Keywords:        ROC of MACD Weekly
  9. //  Level:           basic
  10. //  Flags:           indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=182
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=182
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  Using the Weekly icon on the side toolbar, this indicator will give a
  17. //  visual presentation of the trend of a stock. The title will also give
  18. //  values and a text description of the trend
  19. //
  20. //------------------------------------------------------------------------------
  22. /* ROC of MACD Signal Line
  23.    Use with "Weekly" toolbar icon */
  25. MAWeeklyMacd = Signal(6,13,5);
  26. MACDRoc = maWeeklyMacd - Ref(maWeeklyMacd,-5);
  28. //Cond1 - "V" bottom, NEW UP TREND  
  29. Cond1 = IIf(MACDRoc > Ref(MACDRoc,-1) AND Ref(MACDRoc,-1) <= Ref(MACDRoc,-2),1,0);
  30. //Cond2 - "V" top, NEW DOWN TREND   
  31. Cond2 = IIf(MACDRoc < Ref(MACDRoc,-1) AND Ref(MACDRoc,-1) >= Ref(MACDRoc,-2),1,0);
  32. //cond3 - Trend is Up    
  33. Cond3 = IIf(MACDRoc > Ref(MACDRoc,-1) AND Ref(MACDRoc,-1) >= Ref(MACDRoc,-2),1,0);
  34. //Cond4 - Trend is Down    
  35. Cond4 = IIf(MACDRoc < Ref(MACDRoc,-1) AND Ref(MACDRoc,-1) <= Ref(MACDRoc,-2),1,0);
  36. //Cond5 - Trend is Flat    
  37. Cond5 = IIf(MACDRoc== Ref(MACDRoc,-1) ,1,0);
  39. Graph0 = MACDRoc;Graph0Style = 1;Graph0Color = 6;
  41. Title = Name() + "   MACD ROC Values:   Yesterday =" + WriteVal(Ref(MACDRoc,-1)) + "   Today =" + WriteVal(MACDRoc)+ "       Weekly -" +
  42. WriteIf(Cond1==1," NEW UP TREND  ", WriteIf(Cond2==1," NEW DOWN TREND   ", WriteIf(Cond3==1,"   Trend is Up    ",WriteIf(Cond4==1," Trend is Down    ",WriteIf(Cond5==1," Trend is Flat    ","")))));