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

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

金融证券系统

开发平台：

Others

Rainbow Oscillator.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Rainbow Oscillator
  4. //  Author/Uploader: Anthony Faragasso 
  5. //  E-mail:          ajf1111@epix.net
  6. //  Date/Time Added: 2001-08-13 21:42:30
  7. //  Origin:          July 1997 TASC Traders Tips
  8. //  Keywords:        
  9. //  Level:           medium
  10. //  Flags:           indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=101
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=101
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  Very Good Visual with colored bars .
  17. //
  18. //  Imediately Identify Underlying Trend Of the Market.
  19. //
  20. //------------------------------------------------------------------------------
  22. /* Rainbow Oscillator */
  23. /* July 1997 TASC Traders Tips*/
  24. /* Coded by Anthony Faragasso */
  26. maxgraph =16;
  28. avg1= Max (Ma(C,2),
  29.            Max (Ma(Ma(C,2),2),
  30.            Max (Ma(Ma(Ma(C,2),2),2),
  31.            Max (Ma(Ma(Ma(Ma(C,2),2),2),2),
  32.            Max(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),
  33.            Max(Ma(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),2),
  34.            Max(Ma(Ma(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),2),2),
  35.            Max(Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),2),2),2),
  36.            Max(Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),2),2),2),2),
  37.            Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),2),2),2),2),2))))))))));;;;;;;;;
  38.        
  41. avg2 = Min(Ma(C,2),
  42.             Min(Ma(Ma(C,2),2),
  43.             Min(Ma(Ma(Ma(C,2),2),2),
  44.             Min(Ma(Ma(Ma(Ma(C,2),2),2),2),
  45.             Min(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),
  46.             Min(Ma(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),2),
  47.             Min(Ma(Ma(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),2),2),
  48.             Min(Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),2),2),2),
  49.             Min(Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),2),2),2),2),
  50.             Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),2),2),2),2),2))))))))));;;;;;;;;;
  52.                /*     Rainbow Oscillator */
  54.   graph0 =   100 * (CLOSE - ((Ma(C,2)+
  55.                     Ma(Ma(C,2),2)+
  56.                     Ma(Ma(Ma(C,2),2),2) + Ma(Ma(Ma(Ma(C,2),2),2),2) +
  57.                     Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2) +
  58.                     Ma(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),2) + 
  59.                     Ma(Ma(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),2),2)+
  60.                     Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),2),2),2)+
  61.                     Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),2),2),2),2)+
  62.                     Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(Ma(C,2),2),2),2),2),2),2),2),2),2))
  63.                     /10))/(HHV(C,10)-LLV(C,10));
  65.                      
  67.                 /*  Lower Rainbow Band */
  69. graph1 = -100  *( avg1 - avg2) /
  70.                     (HHV(C,10) - LLV(C,10));
  72.                /*     Upper Rainbow Band */
  74. graph2 =  100 * (avg1 - avg2) /
  75.                     (HHV(C,10) - LLV(C,10));
  77. graph0style = 3;
  78. graph2style = graph1style = 1;
  79. graph2color = graph1color =3;
  80. graph3 = 0;
  81. graph3color =8;
  83. downbar =graph0 <ref( graph3,-1);
  84. upbar = graph0 > ref(graph3,-1);
  85. barcolor = IIF( downbar,4, IIF( upbar, 6, 0 )  );
  86. graph0barcolor = ValueWhen( barcolor != 0, barcolor );
  89. title = name() +" Rainbow Oscillator : "+writeval(graph0,format=1.2) +" % ";