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

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

金融证券系统

开发平台：

Others

Weekly Trend in Daily Graph.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Weekly Trend in Daily Graph
  4. //  Author/Uploader: Frank Snay 
  5. //  E-mail:          fesnay@san.rr.com
  6. //  Date/Time Added: 2002-04-04 19:16:47
  7. //  Origin:          Weekly Trend in Daily Graph
  8. //  Keywords:        Weekly Trend in Daily Graph
  9. //  Level:           basic
  10. //  Flags:           indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=183
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=183
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  A text description in the Title Line of a daily graph giving the weekly
  17. //  trend. Just add this code to any of your daily graphs.
  18. //
  19. //------------------------------------------------------------------------------
  21. /*  Text of Weekly MACD Signal with 5 ROC on Daily Charts 
  22.     INSTRUCTIONS AT END OF CODE  */
  24. weeklyprice=C;
  25. Weekly=ValueWhen(DayOfWeek() > Ref( DayOfWeek(),1),WeeklyPrice);
  27. W6ema = EMA(weekly,30);// 6 weeks * 5 days per week
  28. W13ema = EMA(weekly,65);// 13 weeks * 5 days per week
  29. MACDSignal = EMA((W6ema - W13ema),25);// 5 weeks * 5 days per week
  31. ROCMACD = MACDSignal - Ref(MACDSignal,-25);//ROC of MACD Signal
  33. //Cond1 - "V" bottom, start of climb
  34. Cond1 = IIf(ROCMACD > Ref(ROCMACD,-5)  AND Ref(ROCMACD,-5) <= Ref(ROCMACD,-10),1,0);
  35. //Cond2 - "V" top, start of drop
  36. Cond2 = IIf(ROCMACD < Ref(ROCMACD,-5)   AND Ref(ROCMACD,-5) >= Ref(ROCMACD,-10),1,0);
  37. //cond3 - Steady up trend
  38. Cond3 = IIf(ROCMACD> Ref(ROCMACD,-5) AND Ref(ROCMACD,-5) >= Ref(ROCMACD,-10),1,0);
  39. //Cond4 - Steady down trend
  40. Cond4 = IIf(ROCMACD < Ref(ROCMACD,-5) AND Ref(ROCMACD,-5) <= Ref(ROCMACD,-10),1,0);
  41. //Cond5 - no change - flat
  42. Cond5 = IIf(ROCMACD = Ref(ROCMACD,-5) ,1,0);
  44. Title = Title + "        Weekly -"  
  45.  + WriteIf(Cond1," NEW UP TREND  ", WriteIf(Cond2," NEW DOWN TREND   ", WriteIf(Cond3," Trend is Up    ",WriteIf(Cond4,"  Trend is Down    ",WriteIf(Cond5,"    Trend is Flat    ","")))));
  47. //  Add this code to ANY indicator you like.  To be used in "Indicator" in AB
  48. //  This code will approximate A Weekly ROC of MACD ( see seperate code for an
  49. //  weekly indicator in the AB Files ).  There is NO PRESENTATION of A GRAPH.  
  50. //  The results will give a text readout during "Daily" presentation of what the       //  weekly trend is doing.