ＴＢ实盘开贴
大道至简品种：ＲＢ
周期：１５分钟
模型：均线系统，捕捉趋势，海龟头寸管理，单手实盘半年
起始资金：４.８万
试运行阶段（２０１６.１１月－１２月）
正式启动：２０１７年１月
关于后台避免重复发单的问题，在网上搜索了一些思路，写了几行代码，准备实盘测试一下
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 于 2016-11-16 11:04 编辑
主机的选用：很多人用的是阿里云，有点小贵。我是选的淘宝上的VPS，商家名称是亿网正通，选VPS套餐4，每个月35元，win2003系统跑旗舰版够用，极速版不支持win2003，ping值15ms。已经实盘了半年，VPS很稳定，不需自动登录脚本和软件。旗舰版一直开着，交易时间自动登录，偶尔行情出现问题时需要手工切换一下tb的行情服务器。
beijib 发表于 2016-11-16 10:38 static/image/common/back.gif
主机的选用：很多人用的是阿里云，有点小贵。我是选的淘宝上的VPS，商家名称是亿网正通，选VPS套餐4，每个 ...
给你看下阿里云上的网络延迟，你就知道阿里云物有所值了，而且VPS大部分都是超卖状态，如果真是实盘，还是谨慎点好，毕竟是白花花的银子。
superwin 发表于 2016-11-16 14:01 static/image/common/back.gif
给你看下阿里云上的网络延迟，你就知道阿里云物有所值了，而且VPS大部分都是超卖状态，如果真是实盘，还 ...
:)确实不错 beijib 发表于 2016-11-15 10:45 static/image/common/back.gif
关于后台避免重复发单的问题，在网上搜索了一些思路，写了几行代码，准备实盘测试一下
if(barstatus==0) ...
COOL。。。 这个贴子是干什么的？ 海龟头寸实盘代码，后台发单
AvgTR = XAverage(TrueRange,ATRLength);
N = AvgTR;
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)); 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);
}
} beijib 发表于 2016-11-15 10:45 static/image/common/back.gif
关于后台避免重复发单的问题，在网上搜索了一些思路，写了几行代码，准备实盘测试一下
if(barstatus==0) ...
这个思路不错