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

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

金融证券系统

开发平台：

Others

TD sequential.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    TD sequential
  4. //  Author/Uploader: s.carrasset 
  5. //  E-mail:          s.carrasset@laposte.net
  6. //  Date/Time Added: 2004-11-02 04:57:37
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           basic
  10. //  Flags:           system
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=396
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=396
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  Td sequential
  17. //
  18. //------------------------------------------------------------------------------
  20. Title= " Td seq I";
  21. /*TD seq long et short side full version*/
  23. /********Optimize***********/
  24. Opt1=Param("Opt1",9,5,21,1);
  25. Opt2=Param("Opt2",13,1,21,1);
  27. /*********Setup Buy*********/
  28. TD1=IIf(Close<Ref(Close,-4),1,0); 
  29. TD2=IIf(BarsSince(BarsSince(TD1))==Opt1, 1,0); //Sum(TD1,9)==9;
  30. TD3= Ref(H,-1)>=Ref(LLV(L,Opt1-4),-3);
  31. TD4= Ref(C,-Opt1)>=Ref(C,-Opt2);
  32. SetupBuy= TD3 AND TD2 AND TD4;
  34. /***********SetupSell************/
  35. TD1=IIf(Close>Ref(Close,-4),1,0); 
  36. TD2=IIf(BarsSince(BarsSince(TD1))==Opt1, 1,0); 
  37. TD3= Ref(L,-1)<=Ref(HHV(H,Opt1-4),-3);
  38. TD4= Ref(C,-Opt1)<=Ref(C,-Opt2);
  39. SetupSell= TD3 AND TD2 AND TD4 ;
  41. /*********Count Buy ********/
  42. CountBuy= Sum(IIf(C<Ref(C,-2),1,0),BarsSince(SetupBuy));
  43. //or C<Ref(H,-2)
  45. /*********Count Sell ********/
  46. CountSell= Sum(IIf(C>Ref(C,-2),1,0),BarsSince(SetupSell));
  47. //or C>Ref(L,-2)
  49. /***********A***********/
  50. B1= CountBuy >=Opt2; 
  51. B1= Hold(B1==0,2) AND B1;
  52. Timing=(BarsSince(SetUpbuy)< BarsSince(SetUpsell));
  53. Ccount=IIf(CountBuy >=Opt2,ValueWhen(B1,HHV(C,BarsSince(SetupBuy))),Null);
  54. Hsetup=IIf(CountBuy >=Opt2,ValueWhen(SetupBuy,HHV(H,Opt1)),Null);
  55. BuyA=B1 AND Timing AND Hsetup > Ccount;
  57. /******B**********/
  58. B2= CountBuy >Opt2 AND Close > Ref(Close,-4);
  59. B2=Hold(B2==0,2) AND B2;
  60. B2=ExRem(B2,B1);
  61. BuyB=B2  AND Timing  AND Hsetup > Ccount;
  63. /*************C***********/
  64. B3= CountBuy >Opt2 AND Close > Ref(High,-2);
  65. B3= Hold(B3==0,2) AND B3;
  66. B3=ExRem(B3,B1);
  67. BuyC= B3  AND Timing  AND Hsetup > Ccount;
  69. /************Buy Signal********/
  70. Buy=BuyB OR BuyC  ;
  72. ////////////////////////////////
  73. //SHORT
  74. /////////////////////////////////
  76. /***********A***********/
  77. S1= CountSell >=Opt2; 
  78. S1= Hold(S1==0,2) AND S1;
  79. Timing=(BarsSince(SetUpSell)< BarsSince(SetUpbuy));
  80. Ccount=IIf(CountSell >=Opt2,ValueWhen(S1,LLV(C,BarsSince(SetupSell))),Null);
  81. Lsetup=IIf(CountSell >=Opt2,ValueWhen(SetupSell,LLV(L,Opt1)),Null);
  82. SellA=S1 AND Timing AND Lsetup < Ccount;
  84. /******B**********/
  85. S2= CountSell >Opt2 AND Close < Ref(Close,-4);
  86. S2=Hold(S2==0,2) AND S2;
  87. S2=ExRem(S2,S1);
  88. SellB=S2  AND Timing  AND Lsetup < Ccount;
  90. /*************C***********/
  91. S3= CountSell >Opt2 AND Close < Ref(Low,-2);
  92. S3= Hold(S3==0,2) AND S3;
  93. S3=ExRem(S3,S1);
  94. SellC= S3  AND Timing  AND Lsetup < Ccount;
  96. /***********Short Signal********/
  97. Short= SellB OR SellC  ;
  99. Plot(C,"",IIf(Short,colorYellow,IIf(Buy,colorGreen,1)),64);
  101. PlotShapes(IIf(Short,
  102. shapeDownArrow,shapeNone),colorYellow,0,H,-10); 
  103. PlotShapes(IIf(Buy,
  104. shapeUpArrow,shapeNone),colorGreen,0,L,-10);
  106. PlotShapes(IIf(SetupSell,
  107. shapeDigit9,shapeNone),colorRed,0,H,20);  
  108. PlotShapes(IIf(SetupBuy,
  109. shapeDigit9,shapeNone),colorBlue,0,L,-20);