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

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

金融证券系统

开发平台：

Others

Bow tie.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Bow tie
  4. //  Author/Uploader: dtholz 
  5. //  E-mail:          
  6. //  Date/Time Added: 2002-02-28 00:06:30
  7. //  Origin:          AFL Implementation by Geoff Mulhall
  8. //  Keywords:        Dave Landry's Bow
  9. //  Level:           basic
  10. //  Flags:           exploration
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=167
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=167
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  /* Boe Tie - AFL Implementation by Geoff Mulhall 12-5-2001
  17. //
  18. //------------------------------------------------------------------------------
  20.  
  21. /* Boe Tie - AFL Implementation by Geoff Mulhall 12-5-2001 */
  23. dollars = 5000; /* Or whatever you investment is to be - for the bangforbuck calculation */
  24. maShort = 10;
  25. maMedium = 20;
  26. maLong = 30;
  27.  
  29. /* Bow Tie conditions - Short term moving average has crossed the medium term moving average sometime in the last 15 days - Add more conditions for more days */ 
  30.  
  31. cond11 = ref(cross(ma(close,maShort),ma(close,maMedium)),-1) > 0;
  32. cond12 =  ref(cross(ma(close,maShort),ma(close,maMedium)),-2) > 0;
  33. cond13 =  ref(cross(ma(close,maShort),ma(close,maMedium)),-3) > 0;
  34. cond14 =  ref(cross(ma(close,maShort),ma(close,maMedium)),-4) > 0;
  35. cond15 =  ref(cross(ma(close,maShort),ma(close,maMedium)),-5) > 0;
  36. cond16 =  ref(cross(ma(close,maShort),ma(close,maMedium)),-6) > 0;
  37. cond17 =  ref(cross(ma(close,maShort),ma(close,maMedium)),-7) > 0;
  38. cond18 =  ref(cross(ma(close,maShort),ma(close,maMedium)),-8) > 0;
  39. cond19 =  ref(cross(ma(close,maShort),ma(close,maMedium)),-9) > 0;
  40. cond110 =  ref(cross(ma(close,maShort),ma(close,maMedium)),-10) > 0;
  41. cond111 =  ref(cross(ma(close,maShort),ma(close,maMedium)),-11) > 0;
  42. cond112 =  ref(cross(ma(close,maShort),ma(close,maMedium)),-12) > 0;
  43. cond113 =  ref(cross(ma(close,maShort),ma(close,maMedium)),-13) > 0;
  44. cond114 =  ref(cross(ma(close,maShort),ma(close,maMedium)),-14) > 0;
  45. cond115 =  ref(cross(ma(close,maShort),ma(close,maMedium)),-15) > 0;
  46.  
  47. cond1 = cond11 OR cond12 OR cond13 OR cond14 OR cond15 OR cond16 OR cond17 OR cond18 OR cond19 OR cond110 OR cond111 OR cond112 OR cond113 OR cond114 OR cond115; 
  48.  
  49. /* Moving averages must be in the correct order at the buy signal */
  50.  
  51. cond2 = (ma(close,maShort) > ma(close,maMedium)) AND (ma(close,maMedium) > ma(close,maLong)); 
  52.  
  53. /* Signal is given when the close crosses above the short term moving average */
  54.  
  55. cond3 = cross(close,ma(close,maShort));
  56.  
  57. filter =  cond1 AND cond2 AND cond3;
  58.  
  59. buy = filter;
  60.  
  61. sell = 0; 
  62.  
  63. BangForBucks = (dollars/close) * atr(200);
  64.  
  65. numcolumns = 3;
  66. column0 = close;
  67. column0format = 3.2;
  68. column0name = "Close";
  69. column1 = atr(maLong);
  70. column1format = 3.4;
  71. column1name = "ATR - maLong";
  72. column2 = BangForBucks;
  73. column2format = 3.2;
  74. column2name = "BangForBucks"; 
  76.