AJDX system.afl
上传用户:shiqiang
上传日期:2009-06-12
资源大小:1289k
文件大小:2k
源码类别:

金融证券系统

开发平台:

Others

  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    AJDX system
  4. //  Author/Uploader: Jaco Jonker 
  5. //  E-mail:          jjonker@shisas.com
  6. //  Date/Time Added: 2001-06-18 05:06:17
  7. //  Origin:          Wellis Wilder
  8. //  Keywords:        ADX, trend, system
  9. //  Level:           basic
  10. //  Flags:           system
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=25
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=25
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  This is a trading system based on the ADX line and should only be used as a
  17. //  basic exploration to determine the direction of a trend. The Buy indicator
  18. //  is of most value and changes to fixed variables can be done to fit
  19. //  different markets.
  20. //
  21. //------------------------------------------------------------------------------
  22. /* Commentary Name :ADX (English)
  23. **    Requirements : AmiBroker 3.0 + (AFL 1.1)
  24. **         Version : 0.03
  25. **    Version Date :September 20, 2000
  26. **          Author Jaco Jonker
  27. */
  28. ct = 100;
  29. resa = pdi(14)/mdi(14);
  30. maxp = hhv(pdi(14),ct);
  31. minp = llv(pdi(14),ct);
  32. maxm = hhv(mdi(14),ct);
  33. minm = llv(pdi(14),ct);
  34. area1 = maxp - minm;
  35. area2 = maxm - minp;
  36. dif1 = pdi(14) - mdi(14);
  37. dif2 = mdi(14) - pdi(14);
  38. buy = dif2 < ref(dif2,-1) 
  39.           and dif2/area2 > 0.75
  40.           and ref(close,-ct) > 1 
  41.           and (sum(V,5)/5) > 100000 
  42.           and close > 10; 
  43. sell = dif1 < ref(dif1,-1) 
  44.           and dif1/area1 > 0 
  45.           or low < (highestsince(buy,high,1)*0.95);