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

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

金融证券系统

开发平台：

Others

RSI of Weekly Price Array.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    RSI of Weekly Price Array
  4. //  Author/Uploader: Anthony Faragasso 
  5. //  E-mail:          ajf1111@epix.net
  6. //  Date/Time Added: 2002-09-21 20:27:56
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           medium
  10. //  Flags:           indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=226
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=226
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  Plot the RSI of Weekly Price Arrays,Enter ( t ) variable in
  17. //
  18. //  Multiples of 5 for weekly.
  19. //
  20. //------------------------------------------------------------------------------
  22. //RSI of Weekly Price Array
  23. //Coded by Anthony Faragasso
  24. //Ver. 1.01 Update#1
  25. //Credit to Tomasz for some code help
  26.  
  27. weekstart = DayOfWeek() < Ref( DayOfWeek(), -1 );
  28. weekend = DayOfWeek() > Ref( DayOfWeek(),1);
  30. /****** Weekly Values ***************/
  31. WeeklyOpen=ValueWhen(DayOfWeek()< Ref(DayOfWeek(),-1) ,Open);
  32. WeeklyHigh = ValueWhen( weekend, HighestSince( weekstart, High ) );
  33. WeeklyLow = ValueWhen( weekend, LowestSince( weekstart, Low ) );
  34. WeeklyClose=ValueWhen(DayOfWeek() > Ref( DayOfWeek(),1),Close);
  35. WeeklyVolume=ValueWhen(DayOfWeek() > Ref(DayOfWeek(),1),Sum(V,5));
  37. /***********************************/
  39. /*N-Day RSI of Weekly Price array*/
  40. /*Variable Identifiers*/
  41. A1=weeklyclose;
  42. b2=weeklyHigh;
  43. C3=weeklylow;
  44. D4=weeklyopen;
  45. e5=weeklyvolume;
  47. t=15;// Set Time in Multiples of 5 for weekly 
  48. Var=A1;//Insert Variable Identifier from Above
  49. Up=IIf(Var>Ref(Var,-1),abs(Var-Ref(Var,-1)),0); 
  50. Dn=IIf(Var<Ref(Var,-1),abs(Var-Ref(Var,-1)),0); 
  51. Ut=Wilders(Up,t); 
  52. Dt=Wilders(Dn,t); 
  53. RSIWeekly=100*(Ut/(Ut+Dt)); 
  54. Graph0=RSIweekly;
  55. Graph0Style=1;
  57. Title=Name()+"..."+" "+"("+WriteVal(t,1)+" )"+"...RSI_Weekly Of..."+EncodeColor(colorRed)+WriteIf(Var==A1,"WeeklyClose",WriteIf(Var==b2,"WeeklyHigh",WriteIf(Var==C3,"WeeklyLow",WriteIf(Var==d4,"WeeklyOpen",WriteIf(Var==e5,"WeeklyVolume","")))))+EncodeColor(colorBlack)+""+" = "+"(" +WriteVal(RSIweekly,1.2)+")"+"%";