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

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

金融证券系统

开发平台：

Others

Pattern Recognition Exploration.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Pattern Recognition Exploration
  4. //  Author/Uploader: Dimitris Tsokakis 
  5. //  E-mail:          tsokakis@oneway.gr
  6. //  Date/Time Added: 2001-09-03 14:03:35
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           medium
  10. //  Flags:           exploration
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=105
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=105
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  Paste the code in Automatic Analysis and Explore All Stocks for the last
  17. //  date of your data.
  18. //
  19. //  In Results click twice a label , for example "a TR" and you will collect
  20. //  all ascending Triangles marked with an "1".
  21. //
  22. //  This Exploration recognizes the following patterns:
  23. //
  24. //  +Ascending Wedges "aW"
  25. //
  26. //  +Descending Wedges "dW"
  27. //
  28. //  + ascending Triangles "a TR"
  29. //
  30. //  +descending Triangles "d TR"
  31. //
  32. //  +ascending channel "a ll"
  33. //
  34. //  +descending channel "d ll"
  35. //
  36. //  +almost horizontal channel "ll"
  37. //
  38. //  +Converging Support and Resistance
  39. //
  40. //  +Diverging Support and Resistance
  41. //
  42. //  +N/A, ie examples not belonging to any above category.
  43. //
  44. //  You may decrease sensitivity, changing
  45. //
  46. //  per=3;
  47. //
  48. //  with another percentage higher than 3.
  49. //
  50. //  For Indicator Builder paste the code in Comments.
  51. //
  52. //------------------------------------------------------------------------------
  54. /*Pattern Recognition Exploration
  55. by Dimitris Tsokakis*/
  56. x = cum(1);
  57. per = 3;
  58. s1=l;
  59. s11=h;
  60. pS = troughBars( s1, per, 1 ) == 0;
  61. endt= lastvalue(ValueWhen( pS, x, 1 ));
  62. startt=lastvalue(ValueWhen( pS, x, 2 ));
  63. dtS =endt-startt;
  64. endS = lastvalue(ValueWhen( pS, s1, 1 ) );
  65. startS = lastvalue( ValueWhen( pS, s1, 2  ));
  66. aS = (endS-startS)/dtS;
  67. pR = PEAKBars( s11, per, 1 ) == 0;
  68. endt1= lastvalue(ValueWhen( pR, x, 1 ));
  69. startt1=lastvalue(ValueWhen( pR, x, 2 ));
  70. dtR =endt1-startt1;
  71. endR = lastvalue(ValueWhen( pR, s11, 1 ) );
  72. startR = lastvalue( ValueWhen( pR, s11, 2  ));
  73. aR = (endR-startR)/dtR;
  74. filter=1;
  75. numcolumns=12;
  76. column0=aS;
  77. column1=aR;
  78. column0name="aSup";
  79. column1name="aRes";
  80. column2=ar>0 and as>3*ar;
  81. column2name="a W";
  82. column2format=1.0;
  83. column3=ar<3*as and as<0;
  84. column3name="d W";
  85. column3format=1.0;
  86. column4=abs(aR)<0.002 and aS>0;
  87. column4name="a TR";
  88. column4format=1.0;
  89. column5=abs(aS)<0.002 and ar<0;
  90. column5name="d TR";
  91. column5format=1.0;
  92. column6=abs(aR-aS)<0.1*aS;
  93. column6name="a ll";
  94. column6format=1.0;
  95. column7=abs(aR-aS)<0.1*abs(aR) and aR<0;
  96. column7name="d ll";
  97. column7format=1.0;
  98. column8=abs(aR-aS)<0.1*abs(aR) and abs(aR)<0.01;
  99. column8name=" ll ";
  100. column8format=1.0;
  101. column9=aR<0 and aS>0;
  102. column9name="Converging";
  103. column9format=1.0;
  104. column10=aR>0 and aS<0;
  105. column10name="Diverging";
  106. column10format=1.0;
  107. column11=column2==0 and column3==0 and column4==0 and 
  108. column5==0 and column6==0 and column7==0 and column8==0 
  109. and column9==0 and column10==0;
  110. COLUMN11NAME="N/A";
  111. COLUMN11FORMAT=1.0;