管理員救命.單程序老出問題，老會多補一手，然后平掉.
作者：開拓者 TB 來源：cxh99.com 發布時間：2012年08月30日
- 咨詢內容：
sjdc=A_buyPosition;
sjkc=A_SellPosition;
FileAppend("D:\\false.txt","實際多倉校驗前"+Text(sjdc));
FileAppend("D:\\false.txt","實際多倉校驗前"+Text(sjkc));
If(sjdc!=InvalidNumeric and sjkc!=InvalidNumeric)
{ If(A_GetOpenOrderCount()>0 )// and (CurrentTime-A_OpenOrderTime(0))*1000000>2
{FileAppend("D:\\false.txt","未成交掛單前"+Text(A_GetOpenOrderCount()));
A_DeleteOrder(A_OpenOrderContractNo());
}
FileAppend("D:\\false.txt","未成交掛單后"+Text(A_GetOpenOrderCount()));
If(A_GetOpenOrderCount()==0 )
{if(MyRealMP>=0)
{If(sjkc>0)
{A_SendOrder(Enum_buy,Enum_Exit,sjkc,Q_askPrice);
}else
If(sjdc>MyRealMP*EveryLots)
{ A_SendOrder(Enum_sell,Enum_Exit,sjdc-MyRealMP,Q_BidPrice);
}else
if(sjdc<MyRealMP*EveryLots)
{A_SendOrder(Enum_buy,Enum_Entry,MyRealMP-sjdc,Q_AskPrice);
}
}
IF(MyRealMP<0)
{If(sjdc>0)//實際多倉，A_sellpositon==NA
{A_SendOrder(Enum_Sell,Enum_Exit,sjdc,Q_BidPrice);
}else
if(sjkc>Abs(MyRealMP)*EveryLots)
{A_SendOrder(Enum_buy,Enum_Exit,sjkc-Abs(MyRealMP),Q_AskPrice);
}else
if(sjkc<Abs(MyRealMP)*EveryLots)
{A_SendOrder(Enum_Sell,Enum_Entry,Abs(MyRealMP)-sjkc,Q_BidPrice);
}
}
}
}
FileAppend("D:\\false.txt","實際多倉校驗后"+Text(A_buyPosition));
FileAppend("D:\\false.txt","實際多倉校驗后"+Text(A_buyPosition));
- TB技術人員：
交易的時候該補1手多單，老是會先開2手多單，再平掉1手。或者先開3手再平2手。有時候是正常的
打印本文
關閉窗口