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

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

金融证券系统

开发平台：

Others

Plot Monthly,Weekly and Daily Moving average.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Plot Monthly,Weekly and Daily Moving average
  4. //  Author/Uploader: Anthony Faragasso 
  5. //  E-mail:          ajf1111@epix.net
  6. //  Date/Time Added: 2002-03-02 16:27:46
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           basic
  10. //  Flags:           indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=168
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=168
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  You can plot a Monthly , weekly and Daily Moving average
  17. //
  18. //  on your Daily custom price chart window without changing the view
  19. //
  20. //  settings. Also, Title information is included.
  21. //
  22. //------------------------------------------------------------------------------
  24. //Plot Monthly, Weekly and Daily Moving Average on Daily Price Chart
  25. //Ver.1.01 revision
  26. //3/02/02, coded by Anthony Faragasso
  27. //e-mail: ajf1111@epix.net
  29. MaxGraph=7;
  31. //Input Time periods for Monthly,Weekly and Daily Moving Averages
  32. MonthlyPds=10;//Months
  33. WeeklyPds=20;//Weeks
  34. DailyPds=10;//Days 
  35. /***********************************/
  36. //Input Price Variable ( open, high ,low, close);
  37. Price=C;
  39. MonthlyPrice=Price;
  40. WeeklyPrice=Price;
  41. DailyPrice=Price;
  42. /**********************************/
  44. /***Colors***/
  45. //Set to your Preference
  46. Color=6;//Price chart
  47. MthAvgColor=3;//Monthly AverageLine
  48. WklyAvgColor=5;//weekly AverageLine
  49. DlyAvgColor=4;//Daily AverageLine
  50. /**********************************/
  52. Weekly=ValueWhen(DayOfWeek() > Ref( DayOfWeek(),1),WeeklyPrice);
  53. Monthly=ValueWhen(Day() > Ref( Day(), 1 ),MonthlyPrice);
  55. MonthlyAvg=EMA(Monthly,MonthlyPds);
  56. WeeklyAvg=EMA(Weekly,WeeklyPds);
  57. DailyAvg=EMA(DailyPrice,DailyPds);
  59. Graph0=C;
  60. Graph0Style=64;
  61. Graph0Color=Color;
  63. Graph1=WeeklyAvg;
  64. Graph1Style=1+4;//Thick line
  65. Graph1Color=WklyAvgColor;
  67. Graph2=DailyAvg;
  68. Graph2Style=1;
  69. Graph2Color=DlyAvgColor;
  71. Graph3=MonthlyAvg;
  72. Graph3Style=1;
  73. Graph3Color=MthAvgColor;
  76. Title=Name()+"  "+"("+WriteVal(WeeklyPds,1)+")"+" Week Moving Average= "+"("+WriteVal(WeeklyAvg,1.2)+")"+" :: "+"("+WriteVal(DailyPds,1)+")"+" Period Moving Average= "+"("+WriteVal(DailyAvg,1.2)+")"+" :: "+"("+WriteVal(MonthlyPds,1)+")"+" Month Moving Average= "+"("+WriteVal(MonthlyAvg,1.2)+")";