您现在的位置：程序化交易>> 期货公式>> 交易开拓者(TB)>> 开拓者知识>>正文内容

仿照系统自带的海龟系统编写了一套简单的海龟交易系统　[开拓者 TB]

作者：开拓者 TB 来源：cxh99.com 发布时间：2012年08月14日 点击数： 　【收藏到本网的会员中心】
  • 咨询内容：
    1. //------------------------------------------------------------------------
    2. // 简称: TurtleDayTrader
    3. // 名称: TurtleDayTrader
    4. // 类别: 公式应用
    5. // 类型: 用户应用
    6. // 输出:
    7. //------------------------------------------------------------------------
    8. Params
    9.                         Numeric LongLength(20);                        // 长周期
    10.                         Numeric ShortLength(10);                // 短周期
    11.                         Numeric TrailingScale(0.5);                // 增仓比例
    12.                         Numeric StopLossSet(2);                        // 止损比例

    14.                         Numeric Lots(1);                                // 交易数量                               
    15. Vars
    16.                         Numeric MinPoint;                                // 最小变动单位
    17.                         NumericSeries AvgTR;                        // ATR
    18.                         Numeric N;                          // N 值
    19.                         NumericSeries DonchianHi;           // 唐奇安通道上轨，延后1个Bar
    20.                         NumericSeries DonchianLo;           // 唐奇安通道下轨，延后1个Bar
    21.                         Numeric ExitHighestPrice;           // 离市时判断需要的N周期最高价
    22.                         Numeric ExitLowestPrice;            // 离市时判断需要的N周期最低价
    23.                         Numeric myEntryPrice;               // 开仓价格
    24.                         Numeric myExitPrice;                // 平仓价格
    25.                         Bool SendOrderThisBar(False);   // 当前Bar有过交易
    26.                         NumericSeries preEntryPrice(0); // 前一次开仓的价格
    27. Begin
    28.                         If(BarStatus == 0)
    29.                         {
    30.                                 preEntryPrice = InvalidNumeric;
    31.                         } Else
    32.                         {
    33.                                 preEntryPrice = preEntryPrice[1];
    34.                         }
    35.        
    36.                         AvgTR = XAverage(TrueRange,LongLength);
    37.                         N = AvgTR[1];       
    38.                         DonchianHi = HighestFC(High[1],LongLength);
    39.                         DonchianLo = LowestFC(Low[1],LongLength);       
    40.                         ExitLowestPrice = LowestFC(Low[1],ShortLength);
    41.                         ExitHighestPrice = HighestFC(High[1],ShortLength);
    42.                         Commentary("N="+Text(N));
    43.                         Commentary("preEntryPrice="+Text(preEntryPrice));
    44.                         PlotNumeric("上轨",DonchianHi);
    45.                         PlotNumeric("下轨",DonchianLo);
    46.                         PlotNumeric("退出上轨",ExitHighestPrice);
    47.                         PlotNumeric("退出下轨",ExitLowestPrice);
    48.                        
    49.                         /*/////////////////////////////////开仓////////////////////////////////////////*/
    50.                         If(MarketPosition == 0 && High > DonchianHi)
    51.                         {
    52.                                 myEntryPrice = min(high,DonchianHi);
    53.                                 myEntryPrice = IIF(myEntryPrice < Open, Open,myEntryPrice); // 大跳空的时候用开盘价代替
    54.                                 preEntryPrice = myEntryPrice;
    55.                                 Buy(Lots,myEntryPrice);
    56.                                 SendOrderThisBar = True;
    57.                         }

    59.                         If(MarketPosition == 0 && Low < DonchianLo)
    60.                         {
    61.                                 myEntryPrice = max(low,DonchianLo);
    62.                                 myEntryPrice = IIF(myEntryPrice > Open, Open,myEntryPrice); // 大跳空的时候用开盘价代替
    63.                                 preEntryPrice = myEntryPrice;
    64.                                 SendOrderThisBar = True;
    65.                                 SellShort(Lots,myEntryPrice);
    66.                         }
    67.                         /*///////////////////////////////止盈加仓////////////////////////////////////*/
    68.                         If(MarketPosition == 1)
    69.                         {      
    70.                                 Commentary("ExitLowestPrice="+Text(ExitLowestPrice));
    71.                                 If(Low < ExitLowestPrice)
    72.                                 {
    73.                                         myExitPrice = max(Low,ExitLowestPrice);
    74.                                         myExitPrice = IIF(myExitPrice > Open, Open,myExitPrice); // 大跳空的时候用开盘价代替
    75.                                         Sell(0,myExitPrice);    // 数量用0的情况下将全部平
    76.                                 }Else
    77.                                 {
    78.                                         If(preEntryPrice!=InvalidNumeric)
    79.                                         {
    80.                                                 If(Open >= preEntryPrice + TrailingScale*N) // 如果开盘就超过设定的1/2N,则直接用开盘价增仓。
    81.                                                 {
    82.                                                         myEntryPrice = Open;
    83.                                                         preEntryPrice = myEntryPrice;
    84.                                                         Buy(Lots,myEntryPrice);
    85.                                                         SendOrderThisBar = True;
    86.                                                 }       

    88.                                                 while(High >= preEntryPrice + TrailingScale*N) // 以最高价为标准，判断能进行几次增仓
    89.                                                 {
    90.                                                         myEntryPrice = preEntryPrice + TrailingScale * N;
    91.                                                         preEntryPrice = myEntryPrice;
    92.                                                         Buy(Lots,myEntryPrice);
    93.                                                         SendOrderThisBar = True;                                       
    94.                                                 }
    95.                                         }                       
    96.                                         /*///////////////////////////////////止损策略///////////////////////////////*/
    97.                                         If(Low <= preEntryPrice - StopLossSet * N && SendOrderThisBar == false) // 加仓Bar不止损
    98.                                         {
    99.                                                 myExitPrice = preEntryPrice - StopLossSet * N;
    100.                                                 myExitPrice = IIF(myExitPrice > Open, Open,myExitPrice); // 大跳空的时候用开盘价代替
    101.                                                 Sell(0,myExitPrice); // 数量用0的情况下将全部平仓
    102.                                         }
    103.                                 }
    104.                         }Else If(MarketPosition ==-1) // 有空仓的情况
    105.                         {
    106.                                 Commentary("ExitHighestPrice="+Text(ExitHighestPrice));
    107.                                 If(High > ExitHighestPrice)
    108.                                 {
    109.                                         myExitPrice = Min(High,ExitHighestPrice);
    110.                                         myExitPrice = IIF(myExitPrice < Open, Open,myExitPrice); // 大跳空的时候用开盘价代替
    111.                                         BuyToCover(0,myExitPrice);    // 数量用0的情况下将全部平仓
    112.                                 }Else
    113.                                 {
    114.                                         If(preEntryPrice!=InvalidNumeric)
    115.                                         {
    116.                                                 If(Open <= preEntryPrice - TrailingScale*N) // 如果开盘就超过设定的1/2N,则直接用开盘价增仓。
    117.                                                 {
    118.                                                         myEntryPrice = Open;
    119.                                                         preEntryPrice = myEntryPrice;
    120.                                                         SellShort(Lots,myEntryPrice);
    121.                                                         SendOrderThisBar = True;
    122.                                                 }
    123.                                                 while(Low <= preEntryPrice - TrailingScale*N) // 以最低价为标准，判断能进行几次增仓
    124.                                                 {
    125.                                                         myEntryPrice = preEntryPrice - TrailingScale * N;
    126.                                                         preEntryPrice = myEntryPrice;
    127.                                                         SellShort(Lots,myEntryPrice);
    128.                                                         SendOrderThisBar = True;
    129.                                                 }
    130.                                 }
    131.                                 /*///////////////////////////////////止损策略///////////////////////////////*/
    132.                                 If(High >= preEntryPrice + StopLossSet * N && SendOrderThisBar==false) // 加仓Bar不止损
    133.                                 {
    134.                                         myExitPrice = preEntryPrice + StopLossSet * N;
    135.                                         myExitPrice = IIF(myExitPrice < Open, Open,myExitPrice); // 大跳空的时候用开盘价代替
    136.                                         BuyToCover(0,myExitPrice); // 数量用0的情况下将全部平仓
    137.                                 }
    138.                         }
    139.                 }

    141. End


    144. //------------------------------------------------------------------------
    145. // 编译版本        GS2010.12.08
    146. // 用户版本        2012/02/24 20:16
    147. // 版权所有        飞跃
    148. // 更改声明        TradeBlazer Software保留对TradeBlazer平台
    149. //                        每一版本的TrabeBlazer公式修改和重写的权利
    150. //------------------------------------------------------------------------

     

  • TB技术人员： 本帖最后由 飞跃 于 2012-3-18 11:45 编辑

    TB自带的海龟交易系统，仿照其编写了一套简单的海龟交易系统，大家可以模拟一下，表现还是不错的，全局设置我设置了交易次数为4次。

     

  • TB客服： 橡胶的30分钟周期（优化参数后的）

    0.jpg (70.74 KB, 下载次数: 7) 2012-3-18 06:58:39 上传 下载次数: 7 4.jpg (100.61 KB, 下载次数: 1) 2012-3-18 06:58:38 上传 下载次数: 1 3.jpg (64.12 KB, 下载次数: 1) 2012-3-18 06:58:39 上传 下载次数: 1 2.jpg (37.18 KB, 下载次数: 1) 2012-3-18 06:58:39 上传 下载次数: 1

     

  • 网友回复： 橡胶的30分钟周期（参数优化后）
    1.jpg (245.33 KB, 下载次数: 0) 2012-3-18 07:00:28 上传 下载次数: 0

     

  • 网友回复： PTA30分钟周期（参数优化后）
    0.jpg (204.22 KB, 下载次数: 0) 2012-3-18 07:04:04 上传 下载次数: 0 1.jpg (70.13 KB, 下载次数: 0) 2012-3-18 07:04:05 上传 下载次数: 0 2.jpg (67.17 KB, 下载次数: 0) 2012-3-18 07:04:05 上传 下载次数: 0 4.jpg (47.16 KB, 下载次数: 0) 2012-3-18 07:04:03 上传 下载次数: 0

 

如果以上指标公式不适用于您常用的行情软件

或者您想改编成选股公式，以便快速选出某种形态个股的话，

可以联系我们相关技术人员 QQ: 262069696  点击在线交流进行 有偿 改编！

 


【字体：小 大】【打印文章】【查看评论】

相关文章

    没有相关内容

栏目导航

本月热门排行