ＴＢ实盘开贴

beijib

大道至简
品种：ＲＢ
周期：１５分钟
模型：均线系统，捕捉趋势，海龟头寸管理，单手实盘半年
起始资金：４.８万
试运行阶段（２０１６.１１月－１２月）
正式启动：２０１７年１月

beijib

关于后台避免重复发单的问题，在网上搜索了一些思路，写了几行代码，准备实盘测试一下

                if(barstatus==0)
                {
                        Setglobalvar(0,0);
                }

                if (A_BuyPosition()-A_SellPosition()==0 && con3==True){ //没有仓位的情况，符合过滤条件
                        if(con1==True && GetGlobalVar(0)==0){
                                A_SendOrder(Enum_Buy,Enum_Entry,TurtleUnits,Q_AskPrice()+2*MinPoint); //开多
                                SetGlobalVar(0,1);
                        }                                       
                        if(con2==True && GetGlobalVar(0)==0){
                                A_SendOrder(Enum_Sell,Enum_Entry,TurtleUnits,Q_BidPrice()-2*MinPoint); //开空
                                SetGlobalVar(0,1);
                        }
                }
               
                if (A_BuyPosition()-A_SellPosition()>0){ //做多情况下
                        if(con2==True && GetGlobalVar(0)==0){
                                A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition,Q_BidPrice()-2*MinPoint); //平多
                                SetGlobalVar(0,1);
                        }
                }
                if (A_BuyPosition()-A_SellPosition()<0){ //做空情况下
                        if(con1==True && GetGlobalVar(0)==0){
                                A_SendOrder(Enum_Buy,Enum_Exit,A_SellPosition,Q_AskPrice()+2*MinPoint); //平空
                                SetGlobalVar(0,1);
                        }
                }               
                if (GetGlobalVar(0)>=1){                                 //延时5个tick后，状态重置
                        SetGlobalVar(0,GetGlobalVar(0)+1);
                        if (GetGlobalVar(0)>=5){
                                SetGlobalVar(0,0);  
                        }
                }

beijib

主机的选用：很多人用的是阿里云，有点小贵。我是选的淘宝上的VPS，商家名称是亿网正通，选VPS套餐4，每个月35元，win2003系统跑旗舰版够用，极速版不支持win2003，ping值15ms。已经实盘了半年，VPS很稳定，不需自动登录脚本和软件。旗舰版一直开着，交易时间自动登录，偶尔行情出现问题时需要手工切换一下tb的行情服务器。

superwin

beijib 发表于 2016-11-16 10:38
主机的选用：很多人用的是阿里云，有点小贵。我是选的淘宝上的VPS，商家名称是亿网正通，选VPS套餐4，每个 ...

给你看下阿里云上的网络延迟，你就知道阿里云物有所值了，而且VPS大部分都是超卖状态，如果真是实盘，还是谨慎点好，毕竟是白花花的银子。

beijib

superwin 发表于 2016-11-16 14:01
给你看下阿里云上的网络延迟，你就知道阿里云物有所值了，而且VPS大部分都是超卖状态，如果真是实盘，还 ...

确实不错

yimatouzi

beijib 发表于 2016-11-15 10:45
关于后台避免重复发单的问题，在网上搜索了一些思路，写了几行代码，准备实盘测试一下

                if(barstatus==0) ...

COOL。。。

wert2003

这个贴子是干什么的？

beijib

海龟头寸实盘代码，后台发单
        AvgTR = XAverage(TrueRange,ATRLength);
        N = AvgTR[1];       
        TotalEquity = A_CurrentEquity; //登录账户且开启自动交易后才有效
        TurtleUnits = (TotalEquity*RiskRatio/100) /(N * ContractUnit()*BigPointValue());
                Commentary("TurtleUnits0="+Text(TurtleUnits));
                TurtleUnits = IntPart(TurtleUnits); // 对小数取整
                lots_Max = TotalEquity / (High * 1.6); //保证金16%计算开仓最大值
                Commentary("lots_Max()="+Text(lots_Max));
                if(TurtleUnits>lots_Max){
                        TurtleUnits= IntPart(lots_Max);
                }
                if (TurtleUnits<1){
                        TurtleUnits=1;
                }       
                Commentary("TurtleUnits="+Text(TurtleUnits));

beijib

Tb极速版平今处理
Tb极速版不能判断是否今天仓位，用Enum_Exit平今天仓位出错，需要使用Enum_ExitToday。
if (A_BuyPosition()-A_SellPosition()>0 &&A_GetOpenOrderCount==0){ //做多情况下
if(con2==True && GetGlobalVar(0)==0){
IF( A_TodayBuyPosition==0){
A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition,Q_BidPrice());//平多
}else{
A_SendOrder(Enum_Sell,Enum_ExitToday,A_BuyPosition,Q_BidPrice());//平多
}
SetGlobalVar(0,1);
}
}

tsinglai

beijib 发表于 2016-11-15 10:45
关于后台避免重复发单的问题，在网上搜索了一些思路，写了几行代码，准备实盘测试一下

                if(barstatus==0) ...

这个思路不错