全局变量怎样控制连续发单？ [开拓者 TB]
- 咨询内容：
//------------------------------------------------------------------------
// 简称: 1spgpA0118b1to2kx
// 名称:
// 类别: 公式应用
// 类型: 用户应用
// 输出:
//------------------------------------------------------------------------
Params
Numeric offSet(1); // 委托价格偏移，为了保证成交
Numeric BeforeMins(5); // 收盘前几分钟开始操作
Vars
Numeric HasSendOrderk1(0);//开仓1标志,初始值为0
Numeric HasSendOrderp11(0);//平仓1标志,初始值为0
Numeric HasSendOrderp12(0);//平仓2标志,初始值为0
Begin
bcon2=Time>=0.0902&&Time<=0.1456
;
If(date<20161230 )
{
{
If(BarStatus == 0)
{
HasSendOrderp11 = 0;
SetGlobalVar(11,HasSendOrderp11);
}Else
{
HasSendOrderp11 = GetGlobalVar(11);
}
If
( bcon1 &&
BarStatus == 2 &&
HasSendOrderk1 == 0&&
A_BuyPosition==0 )
{
A_SendOrder(Enum_Buy,Enum_Entry,2,Q_AskPrice+MinMove*PriceScale*2);
HasSendOrderk1 = 1;
SetGlobalVar(1,HasSendOrderk1);
}
If
(A_BuyPosition > 0&&
BarStatus == 2 &&
HasSendOrderp11 == 0&&
Q_BidPrice>=A_BuyAvgPrice+MinMove*PriceScale*2) //首次平多单
{
A_SendOrder(Enum_Sell,Enum_Exit,1,Q_BidPrice-MinMove*PriceScale*2);
HasSendOrderp11 = 1;
SetGlobalVar(11,HasSendOrderp11);
}
If
(A_BuyPosition > 0&&
BarStatus == 2 &&
HasSendOrderp12 == 0&&
Q_BidPrice>=A_BuyAvgPrice+MinMove*PriceScale*5) //二次平多单
{
A_SendOrder(Enum_Sell,Enum_Exit,1,Q_BidPrice-MinMove*PriceScale*2);
HasSendOrderp12 = 1;
SetGlobalVar(12,HasSendOrderp12);
HasSendOrderk1 = 0;
SetGlobalVar(1,HasSendOrderk1);
}
}
}
End
首次平仓仍然是连续发单，应该怎样写？请教老师 - TB技术人员： TB公式指南以及F1联机帮助的策略进阶里的都有模板的，可以先参考一下。
有思路，想编写各种指标公式，程序化交易模型，选股公式，预警公式的朋友
可联系技术人员 QQ: 511411198 进行 有偿 编写！（不贵！点击查看价格！）
相关文章
-
没有相关内容
会员登录/注册