開拓者 TB 10倍20倍均線交易策略模型 簡單可參考

僅供參考 

1. Params


2.         Numeric N5(5);


3.         Numeric N10(10);


4.         Numeric N20(20);


5.         Numeric N30(30);


6.         Numeric stopline(30);


7. Vars


8.         NumericSeries MA5;


9.         NumericSeries MA10;


10.         NumericSeries MA20;       


11.         NumericSeries MA30;


12.         NumericSeries MyPrice;
13. //程序化交易


14. Begin


15.         ma5=AverageFC(close,N5);


16.         ma10=AverageFC(close,n10);


17.         ma20=AverageFC(close,n20);


18.         ma30=AverageFC(close,n30);


19.         PlotNumeric("MA5",MA5);


20.         PlotNumeric("MA10",MA10);


21.         PlotNumeric("MA20",MA20);


22.         PlotNumeric("MA30",MA30);


23.         If(ma10[1]>ma20[1] And ma20[1]>ma30[1] And MA5[2]<ma10[2] And MA5[1]>ma10[1])


24.         {


25.                 MyPrice=Open;


26.                 Buy(1,MyPrice);


27.         }


28.         If(MarketPosition==1 And BarsSinceEntry>0)


29.         {


30.                 If(High>=MyPrice+stopline)


31.                 {


32.                         Sell(1,MyPrice+stopline);


33.                         Return;


34.                 }


35.                 else If(Low<=ma10)


36.                 {


37.                         MyPrice=MA10;


38.                         If(MyPrice>Open)MyPrice=Open;


39.                         Sell(1,MyPrice);


40.                 }


41.         }


42.         If(ma10[1]<ma20[1] And ma20[1]<ma30[1] And MA5[2]>ma10[2] And MA5[1]<ma10[1])


43.         {


44.                 MyPrice=Open;


45.                 SellShort(1,MyPrice);


46.         }       


47.         If(MarketPosition==-1 And BarsSinceEntry>0)


48.         {


49.                 If(Low<=MyPrice-stopline)


50.                 {


51.                         BuyToCover(1,MyPrice-stopline);


52.                         Return;


53.                 }


54.                 else If(High>=MA10)


55.                 {


56.                         MyPrice=MA10;


57.                         If(MyPrice<Open)MyPrice=Open;


58.                         BuyToCover(1,MyPrice);


59.                 }


60.         }


61. End