- 精华
- 0
- 在线时间
- 1479 小时
- UID
- 5696
- 积分
- 1213
- 帖子
- 256
- 阅读权限
- 60
- 注册时间
- 2009-10-18
- 最后登录
- 2023-6-10
- 精华
- 0
- UID
- 5696
- 积分
- 1213
- 帖子
- 256
- 主题
- 111
- 阅读权限
- 60
- 注册时间
- 2009-10-18
- 最后登录
- 2023-6-10
|
回复 5# lh948
.........
if(BarStatus==0)
{
SetGlobalVar(10,0);
SetGlobalVar(20,0);
mytickcounter = 0;
}
else
{
mytickcounter = mytickcounter[1]+1;
if(mytickcounter>sendtickinterval)
{
mytickcounter=1;
SetGlobalVar(10,0);
SetGlobalVar(20,0);
}
}
..........
nCount1 = A_GetOpenOrderCount;
if(bcon && GetGlobalVar(10)==0)
{
SetGlobalVar(10,1);
mytickcounter = 0;
if(nCount1>0)
{
for i=1 to nCount1
{
nStatus = A_OpenOrderStatus(i);
nEntryFlag = A_OpenOrderEntryOrExit(i);
nBuyOrSell = A_OpenOrderBuyOrSell(i);
OrderPrice = A_OpenOrderPrice(i);
OrderLot = A_OpenOrderLot(i);
strContractNo = A_OpenOrderContractNo(i);
if( nEntryFlag==Enum_Entry && nBuyOrSell==Enum_Sell )
{
A_DeleteOrder(strContractNo);
}
else if( nEntryFlag==Enum_Exit && nBuyOrSell==Enum_Sell )
{
A_DeleteOrder(strContractNo);
}
else if( nEntryFlag==Enum_Entry && nBuyOrSell==Enum_Buy )
{
A_DeleteOrder(strContractNo);
}
else if( nEntryFlag==Enum_Exit && nBuyOrSell==Enum_buy )
{
A_DeleteOrder(strContractNo);
}
}
}
if(A_SellPosition>0)
{
A_SendOrder(Enum_Buy,Enum_Exit,A_SellPosition,q_bidprice+morepoint*minpoint);
}
if(A_BuyPosition<myLotMax && tradetime && GetGlobalVar(10)==1) A_SendOrder(Enum_Buy,Enum_Entry,everylot,q_bidprice + morepoint*minpoint);
}
......
使用全局变量10和序列变量tickcounter控制,在tick图下运行。 |
|