TB持倉(cāng)信號(hào)和真實(shí)賬戶持倉(cāng)不同步的調(diào)整模塊 [開(kāi)拓者 TB]
- 咨詢內(nèi)容： 本人開(kāi)發(fā)了一套策略，歷史數(shù)據(jù)回測(cè)什么都很好，接下來(lái)要做到計(jì)算機(jī)自動(dòng)交易?，F(xiàn)在萬(wàn)里長(zhǎng)征還差最后一步，就是TB持倉(cāng)信號(hào)和真實(shí)賬戶持倉(cāng)不同步的調(diào)整模塊，由于都是A_函數(shù)只有在實(shí)時(shí)行情的時(shí)候才能測(cè)試，從上周到現(xiàn)在花了好幾個(gè)交易日，也改了好幾次代碼但還是有重復(fù)發(fā)單或者持倉(cāng)不足等情況，今天收盤(pán)后針對(duì)發(fā)生的問(wèn)題又改進(jìn)了一下，也不知道明天能不能順利通過(guò)。心里沒(méi)底所以把這部分代碼公開(kāi)出來(lái)，希望管理員或有自動(dòng)交易實(shí)盤(pán)經(jīng)驗(yàn)的高手指點(diǎn)一下。
If((BarInterval==1 And Time!=0.1514) Or (BarInterval==5 And Time!=0.1510) Or (BarInterval==15 And Time!=0.1500))
{
TickCnt1=15; //等待TickCnt1次后如不成交采取相應(yīng)措施
If(GetGlobalVar(2)==InvalidNumeric) //對(duì)全局變量初始賦值（包括意外網(wǎng)絡(luò)中斷、賬戶斷開(kāi)等情況后的初始化賦值）
{
SetGlobalVar(2,0);
}
If(MarketPosition==1)
{
If(OrderWaitCounts!=TickCnt1 And A_GetOpenOrderCount==0) //沒(méi)有未成交委托單時(shí)計(jì)數(shù)器歸零
{
SetGlobalVar(2,0);
}
If(A_BuyPosition>0)
{
If(A_BuyPosition>Abs(CurrentContracts)) //真實(shí)賬戶相對(duì)TB信號(hào)有多余持倉(cāng)
{
If(A_GetOpenOrderCount!=0)
{
OrderWaitCounts=GetGlobalVar(2)+1; //計(jì)數(shù)器記錄未成交委托單存在的Tick數(shù)
SetGlobalVar(2,OrderWaitCounts);
}else if(A_GetOpenOrderCount==0 And GetGlobalVar(2)==0) //沒(méi)有委托單時(shí)直接發(fā)單平掉多余持倉(cāng)
{
A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition-Abs(CurrentContracts),Q_BidPrice);
SetGlobalVar(2,0);
}
If(OrderWaitCounts==TickCnt1) //如果委托單持續(xù)TickCnt1個(gè)Tick數(shù)后仍沒(méi)成交
{
A_DeleteOrder(); //撤所有委托單
A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition-Abs(CurrentContracts),Q_BidPrice); //重新發(fā)單平掉多余持倉(cāng)
SetGlobalVar(2,0); //重置全局變量
}
}else if(A_BuyPosition<Abs(CurrentContracts))
{
If(A_GetOpenOrderCount!=0)
{
OrderWaitCounts=GetGlobalVar(2)+1; //計(jì)數(shù)器記錄未成交委托單存在的Tick數(shù)
SetGlobalVar(2,OrderWaitCounts);
}else if(A_GetOpenOrderCount==0 And GetGlobalVar(2)==0)
{
A_SendOrder(Enum_Buy,Enum_Entry,Abs(CurrentContracts)-A_BuyPosition,Q_AskPrice);
SetGlobalVar(2,0);
}
If(OrderWaitCounts==TickCnt1)
{
A_DeleteOrder();
A_SendOrder(Enum_Buy,Enum_Entry,Abs(CurrentContracts)-A_BuyPosition,Q_AskPrice);
SetGlobalVar(2,0);
}
}else if(A_BuyPosition==Abs(CurrentContracts)) //真實(shí)賬戶和TB信號(hào)持倉(cāng)同步的時(shí)候
{
If(A_GetOpenOrderCount!=0) //如果還有未成交委托單全部撤單，重置全局變量
{
A_DeleteOrder();
SetGlobalVar(2,0);
}else if(GetGlobalVar(2)!=0)
{
SetGlobalVar(2,0);
}
}
}else if(A_SellPosition>0)
{
If(A_GetOpenOrderCount!=0)
{
OrderWaitCounts=GetGlobalVar(2)+1;
SetGlobalVar(2,OrderWaitCounts);
}else if(A_GetOpenOrderCount==0 And GetGlobalVar(2)==0)
{
A_SendOrder(Enum_Buy,Enum_Exit,A_SellPosition,Q_AskPrice);
SetGlobalVar(2,0);
}
If(OrderWaitCounts==TickCnt1)
{
A_DeleteOrder();
A_SendOrder(Enum_Buy,Enum_Exit,A_SellPosition,Q_AskPrice);
SetGlobalVar(2,0);
}
}else if(A_BuyPosition==0 And A_SellPosition==0)
{
If(A_GetOpenOrderCount!=0)
{
OrderWaitCounts=GetGlobalVar(2)+1;
SetGlobalVar(2,OrderWaitCounts);
}else if(A_GetOpenOrderCount==0 And GetGlobalVar(2)==0)
{
A_SendOrder(Enum_Buy,Enum_Entry,Abs(CurrentContracts),Q_AskPrice);
SetGlobalVar(2,0);
}
If(OrderWaitCounts==TickCnt1)
{
A_DeleteOrder();
A_SendOrder(Enum_Buy,Enum_Entry,Abs(CurrentContracts),Q_AskPrice);
SetGlobalVar(2,0);
}
}
}else if(MarketPosition==-1)
{
If(OrderWaitCounts!=TickCnt1 And A_GetOpenOrderCount==0) //沒(méi)有未成交委托單時(shí)計(jì)數(shù)器歸零
{
SetGlobalVar(2,0);
}
If(A_BuyPosition>0)
{
If(A_GetOpenOrderCount!=0)
{
OrderWaitCounts=GetGlobalVar(2)+1;
SetGlobalVar(2,OrderWaitCounts);
}else if(A_GetOpenOrderCount==0 And GetGlobalVar(2)==0)
{
A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition,Q_BidPrice);
SetGlobalVar(2,0);
}
If(OrderWaitCounts==TickCnt1)
{
A_DeleteOrder();
A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition,Q_BidPrice);
SetGlobalVar(2,0);
}
}else if(A_SellPosition>0)
{
If(A_SellPosition>Abs(CurrentContracts))
{
If(A_GetOpenOrderCount!=0)
{
OrderWaitCounts=GetGlobalVar(2)+1; //計(jì)數(shù)器記錄未成交委托單存在的Tick數(shù)
SetGlobalVar(2,OrderWaitCounts);
}else if(A_GetOpenOrderCount==0 And GetGlobalVar(2)==0)
{
A_SendOrder(Enum_Buy,Enum_Exit,A_SellPosition-Abs(CurrentContracts),Q_AskPrice);
SetGlobalVar(2,0);
}
If(OrderWaitCounts==TickCnt1)
{
A_DeleteOrder();
A_SendOrder(Enum_Buy,Enum_Exit,A_SellPosition-Abs(CurrentContracts),Q_AskPrice);
SetGlobalVar(2,0);
}
}else if(A_SellPosition<Abs(CurrentContracts))
{
If(A_GetOpenOrderCount!=0)
{
OrderWaitCounts=GetGlobalVar(2)+1; //計(jì)數(shù)器記錄未成交委托單存在的Tick數(shù)
SetGlobalVar(2,OrderWaitCounts);
}else if(A_GetOpenOrderCount==0 And GetGlobalVar(2)==0)
{
A_SendOrder(Enum_Sell,Enum_Entry,Abs(CurrentContracts)-A_SellPosition,Q_BidPrice);
SetGlobalVar(2,0);
}
If(OrderWaitCounts==TickCnt1)
{
A_DeleteOrder();
A_SendOrder(Enum_Sell,Enum_Entry,Abs(CurrentContracts)-A_SellPosition,Q_BidPrice);
SetGlobalVar(2,0);
}
}else if(A_SellPosition==Abs(CurrentContracts))
{
If(A_GetOpenOrderCount!=0)
{
A_DeleteOrder();
SetGlobalVar(2,0);
}else if(GetGlobalVar(2)!=0)
{
SetGlobalVar(2,0);
}
}
}else if(A_BuyPosition==0 And A_SellPosition==0)
{
If(A_GetOpenOrderCount!=0)
{
OrderWaitCounts=GetGlobalVar(2)+1;
SetGlobalVar(2,OrderWaitCounts);
}else if(A_GetOpenOrderCount==0 And GetGlobalVar(2)==0)
{
A_SendOrder(Enum_Sell,Enum_Entry,Abs(CurrentContracts),Q_BidPrice);
SetGlobalVar(2,0);
}
If(OrderWaitCounts==TickCnt1)
{
A_DeleteOrder();
A_SendOrder(Enum_Sell,Enum_Entry,Abs(CurrentContracts),Q_BidPrice);
SetGlobalVar(2,0);
}
}
}else if(MarketPosition==0)
{
If(OrderWaitCounts!=TickCnt1 And A_GetOpenOrderCount==0) //沒(méi)有未成交委托單時(shí)計(jì)數(shù)器歸零
{
SetGlobalVar(2,0);
}
If(A_BuyPosition>0)
{
If(A_GetOpenOrderCount!=0)
{
OrderWaitCounts=GetGlobalVar(2)+1;
SetGlobalVar(2,OrderWaitCounts);
}else if(A_GetOpenOrderCount==0 And GetGlobalVar(2)==0)
{
A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition,Q_BidPrice);
SetGlobalVar(2,0);
}
If(OrderWaitCounts==TickCnt1)
{
A_DeleteOrder();
A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition,Q_BidPrice);
SetGlobalVar(2,0);
}
}else if(A_SellPosition>0)
{
If(A_GetOpenOrderCount!=0)
{
OrderWaitCounts=GetGlobalVar(2)+1;
SetGlobalVar(2,OrderWaitCounts);
}else if(A_GetOpenOrderCount==0 And GetGlobalVar(2)==0)
{
A_SendOrder(Enum_Buy,Enum_Exit,A_SellPosition,Q_AskPrice);
SetGlobalVar(2,0);
}
If(OrderWaitCounts==TickCnt1)
{
A_DeleteOrder();
A_SendOrder(Enum_Buy,Enum_Exit,A_SellPosition,Q_AskPrice);
SetGlobalVar(2,0);
}
}else if(A_BuyPosition==0 And A_SellPosition==0)
{
If(A_GetOpenOrderCount!=0)
{
A_DeleteOrder();
SetGlobalVar(2,0);
}else if(GetGlobalVar(2)!=0)
{
SetGlobalVar(2,0);
}
}
}
}
前面部分在MarketPosition==1情況下做了些注釋，后面邏輯是一致的?；舅悸肪褪前l(fā)覺(jué)TB信號(hào)與實(shí)際持倉(cāng)不一致的時(shí)候，先檢查是不是已有委托單（可能是其他模塊用Buy Sell命令發(fā)送的），如果已有委托單等待TickCnt1時(shí)間，如果該時(shí)間后沒(méi)有成交則撤單用A_SendOrder發(fā)送。同時(shí)繼續(xù)用OrderWaitCounts記錄委托單發(fā)出未成的時(shí)間，如果過(guò)了TickCnt1時(shí)間還是沒(méi)成交，繼續(xù)撤單重發(fā)，直至實(shí)際持倉(cāng)與TB信號(hào)同步。同步后檢查是否還有未成交的委托單，如果有全部撤單并重置全局變量。
不同步的問(wèn)題測(cè)試起來(lái)實(shí)在很麻煩，所以懇請(qǐng)高手回復(fù)，看看以上代碼有無(wú)邏輯錯(cuò)誤，會(huì)不會(huì)導(dǎo)致重復(fù)發(fā)單或其他問(wèn)題。多謝了，加急?。?！ - TB技術(shù)人員： 不是有數(shù)據(jù)回放嗎？可以多試試的現(xiàn)在，以前沒(méi)有回放的時(shí)候我也很糾結(jié)。。。
- TB客服： 回放只顯示行情，對(duì)實(shí)際賬戶持倉(cāng)測(cè)試沒(méi)用的
- 網(wǎng)友回復(fù)： 額，好吧，忘記自己沒(méi)用A函數(shù)了。。
- 網(wǎng)友回復(fù)： 今天實(shí)時(shí)行情繼續(xù)測(cè)試中，問(wèn)題比之前少了些，不過(guò)還是有很多警告，而且都是連續(xù)發(fā)出的警告，持倉(cāng)不足、資金不足和相應(yīng)委托不能撤銷這三類都有。我分析了一下代碼，選前一段一起看一下：
If(A_BuyPosition>0)
{
If(A_BuyPosition>Abs(CurrentContracts)) //真實(shí)賬戶相對(duì)TB信號(hào)有多余持倉(cāng)
{
If(A_GetOpenOrderCount!=0)
{
OrderWaitCounts=GetGlobalVar(2)+1; //計(jì)數(shù)器記錄未成交委托單存在的Tick數(shù)
SetGlobalVar(2,OrderWaitCounts);
}else if(A_GetOpenOrderCount==0 And GetGlobalVar(2)==0) //沒(méi)有委托單時(shí)直接發(fā)單平掉多余持倉(cāng)
{
A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition-Abs(CurrentContracts),Q_BidPrice);
SetGlobalVar(2,0);
}
If(OrderWaitCounts==TickCnt1) //如果委托單持續(xù)TickCnt1個(gè)Tick數(shù)后仍沒(méi)成交
{
A_DeleteOrder(); //撤所有委托單
A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition-Abs(CurrentContracts),Q_BidPrice); //重新發(fā)單平掉多余持倉(cāng)
SetGlobalVar(2,0); //重置全局變量
}
}
我估計(jì)問(wèn)題出在
If(OrderWaitCounts==TickCnt1) //如果委托單持續(xù)TickCnt1個(gè)Tick數(shù)后仍沒(méi)成交
{
A_DeleteOrder(); //撤所有委托單
A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition-Abs(CurrentContracts),Q_BidPrice); //重新發(fā)單平掉多余持倉(cāng)
SetGlobalVar(2,0); //重置全局變量
}
這段里，因?yàn)槔锩嬗谐蜂N委托操作和發(fā)單操作，如果是開(kāi)倉(cāng)單頻繁發(fā)單就會(huì)導(dǎo)致資金不足警告，如果是平倉(cāng)單就會(huì)導(dǎo)致持倉(cāng)不足警告。我設(shè)計(jì)的思路是當(dāng)OrderWaitCounts==TickCnt1的時(shí)候只要求發(fā)送一次，因?yàn)榘l(fā)送完全局變量就被重置為0了，這樣即使不成交再進(jìn)入該條件OrderWaitCounts又要重新開(kāi)始計(jì)數(shù)等待，如果等到TickCnt1時(shí)再撤單重發(fā)。但實(shí)際情況是這段代碼并沒(méi)有只發(fā)送一次，還是頻繁在發(fā)送，百思不其解，請(qǐng)管理員或諸位高手幫忙解答，謝謝了！
有思路，想編寫(xiě)各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 262069696 進(jìn)行 有償 編寫(xiě)！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)