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

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

金融证券系统

开发平台：

Others

ADX Indicator - Colored.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    ADX Indicator - Colored
  4. //  Author/Uploader: Tommy Beard 
  5. //  E-mail:          tab321@yahoo.com
  6. //  Date/Time Added: 2005-01-25 00:12:58
  7. //  Origin:          
  8. //  Keywords:        ADX  Indicator  DMI  Signal  Timing
  9. //  Level:           basic
  10. //  Flags:           indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=420
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=420
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  Easily see rise or fall of the ADX with this colored ADX Line. The period
  17. //  default is 10 but easily adjusted using the parameter feature.
  18. //
  19. //------------------------------------------------------------------------------
  21. //Trend Following Systems DO NOT work when ADX is Below 20 - Tech Analysis A-Z; page 120
  23. P1 = Param("Period",10,0,100,1);
  25. MyPDI= PDI(P1);//Positive Directional Indicator
  27. MyMDI= MDI(P1);//Negative Directional Indicator (Minus)
  29. MyADX= ADX(P1);//Average Directional Movement Index
  31. //Green ADX Line=Rising; Red ADX Line=Falling
  33. col = IIf( MyADX > Ref( MyADX, -1 ), colorGreen, colorRed );
  35. Plot( MyPDI,"+DI",colorWhite, styleLine);
  37. Plot( MyMDI,"-DI",colorBlue, styleLine);
  39. Plot( MyADX,"ADX",col, styleLine);
  41. Title=Name()+ " " + Date() + " Price: " + C + EncodeColor(colorIndigo) +"  ADX" + WriteVal( MyADX )+ EncodeColor(colorWhite) + "  +DMI" + WriteVal( MyPDI )+ EncodeColor(colorBlue) + "  -DMI" + WriteVal( MyMDI );