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

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

金融证券系统

开发平台：

Others

Head & Shoulders Pattern.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Head & Shoulders Pattern
  4. //  Author/Uploader: Dimitris Tsokakis 
  5. //  E-mail:          
  6. //  Date/Time Added: 2002-02-27 05:27:02
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           medium
  10. //  Flags:           exploration
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=166
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=166
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  For a short description of Head & Shoulders Pattern you may see at
  17. //
  18. //  http://www.chartpattern.com/head_sholuders.html
  19. //
  20. //  http://www.chartpatterns.com/headandshoulderschartsstocks.htm
  21. //
  22. //  etc.
  23. //
  24. //  Paste the formula in Automatic Analysis and Explore for n last quotations,
  25. //  n=1.
  26. //
  27. //  Paste the same formula in Indicator Builder and select scaling Automatic.
  28. //
  29. //  H&S points and respective neckline is painted yellow, inverted H&S
  30. //  is light blue.
  31. //
  32. //  H&S is considered as a bearish formation, confirmed after the neckline
  33. //  breakout.
  34. //
  35. //  Inverted H&S is considered as a bullish formation, confirmed after the
  36. //  neckline breakout.
  37. //
  38. //  Sensitivity is calibrated at the per=5 line. Increasing per makes the
  39. //  formula less sensitive.
  40. //
  41. //  The last shoulder should be less than back=50 days ago and the distance
  42. //  between shoulders should be less than inter=100 days.
  43. //
  44. //------------------------------------------------------------------------------
  46. x = Cum(1);
  47. per = 5;
  48. back=50;
  49. inter=100;
  50. s11=H;s12=L;
  51. /* H & S */
  52. pR = PeakBars( s11, per, 1 ) == 0;
  53. endt1= LastValue(ValueWhen( pR, x, 1 ));
  54. medt1=LastValue(ValueWhen( pR, x, 2 ));
  55. startt1=LastValue(ValueWhen( pR, x, 3 ));
  56. dt1=endt1-startt1;
  57. C1=x==endt1 OR x==medt1 OR x==startt1;
  58. endR = LastValue(ValueWhen( pR, s11, 1 ) );
  59. medR=LastValue(ValueWhen( pR, s11, 2 ) );
  60. startR = LastValue( ValueWhen( pR, s11, 3  ));
  61. Filter1=medR>endR AND medR>startR AND abs(startR-endR)<0.02*(startR+endR) AND dt1<inter AND endt1>LastValue(x)-back;
  62. MaxGraph=10;Graph1=C;Graph1Style=64;GraphXSpace=5;
  63. /*H&S Neck Line*/
  64. Aper=medt1-startt1;bper=endt1-medt1;
  65. La=  LastValue(ValueWhen(x==medt1,LLV(L,Aper)));
  66. Lb=LastValue(ValueWhen(x==-1+endt1,LLV(L,bper)));
  67. Fa=L==La AND x>startt1 AND x<medt1;
  68. Fb=L==Lb AND x>medt1 AND x<endt1;
  69. endt= LastValue(ValueWhen( Fb, x ));
  70. startt=LastValue(ValueWhen( Fa, x ));
  71. dtS =endt-startt;endS = Lb;startS = La;
  72. aS = (endS-startS)/dtS;bS = endS;
  73. trendlineS = aS * ( x  -endt ) + bS; 
  74. Graph3 = IIf(Filter1 AND x>startt-5,trendlineS,-1e10);Graph3BarColor=7;
  75. /*Inverted H & S*/
  76. tpR = TroughBars( s12, per, 1 ) == 0;
  77. tendt1=LastValue(ValueWhen(tpr,x,1));
  78. tmedt1=LastValue(ValueWhen(tpr,x,2));
  79. tstartt1=LastValue(ValueWhen(tpr,x,3));
  80. tdt1=tendt1-tstartt1;
  81. C2=x==tendt1 OR x==tmedt1 OR x==tstartt1;
  82. tendR = LastValue(ValueWhen( tpR, s12, 1 ) );
  83. tmedR=LastValue(ValueWhen( tpR, s12, 2 ) );
  84. tstartR = LastValue( ValueWhen( tpR, s12, 3  ));
  85. Filter2=tmedR<tendR AND tmedR<tstartR AND abs(tstartR-tendR)<0.02*(tstartR+tendR) AND tdt1<inter AND tendt1>LastValue(x)-back;
  86. Graph1BarColor=IIf(C1 AND Filter1,7,IIf(C2 AND Filter2,10,1));
  87. /*Inverted H&S Neck Line*/
  88. tAper=tmedt1-tstartt1;tbper=tendt1-tmedt1;
  89. Ha=  LastValue(ValueWhen(x==tmedt1,HHV(H,tAper)));
  90. Hb=LastValue(ValueWhen(x==-1+tendt1,HHV(H,tbper)));
  91. tFa=H==Ha AND x>tstartt1 AND x<tmedt1;
  92. tFb=H==Hb AND x>tmedt1 AND x<tendt1;
  93. Rendt= LastValue(ValueWhen(tFb, x ));
  94. Rstartt=LastValue(ValueWhen( tFa, x ));
  95. Rdt =Rendt-Rstartt;endR = Hb;startR = Ha;
  96. aR = (endR-startR)/Rdt;bR = endR;
  97. trendlineR = aR * ( x  -Rendt ) + bR; 
  98. Graph4 = IIf(Filter2 AND x>Rstartt-5,trendlineR,-1e10);Graph4BarColor=10;
  99. Filter=Filter1 OR Filter2;
  100. NumColumns=2;/*Graph2=x==-1+tendt1;*/
  101. Column0=Filter1;
  102. Column1=Filter2;
  103. Column0Format=Column1Format=1.0;
  104. Column0Name="H&S";
  105. Column1Name="inv H&S";