如何在下單組件里面實(shí)現(xiàn)追價(jià)功能 [文華財(cái)經(jīng)]
- 咨詢內(nèi)容：
我自己編了個(gè)程序，放在下單組件里面，一切運(yùn)行都很好，就是有時(shí)候會(huì)發(fā)生觸及止損條件了但卻成交不上的情況。原來是設(shè)定為市價(jià)成交，后來修改為對(duì)一價(jià)成交，可還是存在成交不上的問題。有沒有辦法在組件里實(shí)現(xiàn)追價(jià)功能？ 另外我要不要把程序發(fā)給你們看一看
- 文華技術(shù)人員：
以下是我的程序，能不能幫我做一下修改？ 痛苦等待中。。。。
// ????+??????
VAR minp;//???????,??????
VAR BPRICE,SPRICE;//????????,??????,?????,?????
VAR Step,LoseBit; //??????,????,????,??????
VAR code;VAR buyvol,sellvol;//?????????
VAR SPID,BPID;
VAR moveup,movedown;
VOID MAIN()
{
code="IF1308";
Step=2.2; //??????
LoseBit=2.8; //??????
minp=MinPrice(code);
BPRICE=T_BuyAvgPrice(code);//???????????????
SPRICE=T_SellAvgPrice(code);//???????????????
buyvol=T_BuyPosition(code);
sellvol=T_SellPosition(code);
IF (buyvol>0)
{
MOVETOZERO(1);
}
ELSE IF (sellvol>0)
{
MOVETOZERO(0);
}
ELSE
{
WriteGlobal("movedown",0);
WriteGlobal("moveup",0);
MessageOut("手動(dòng)平倉后清空標(biāo)記");
}
}
VOID MOVETOZERO(VAR isup)
{IF(isup==1)
{
moveup=ReadGlobal("moveup");
IF(Price(code)-BPRICE>=Step && moveup==0)
{
WriteGlobal("moveup",1);
MessageOut("標(biāo)記準(zhǔn)備上移");
}
ELSE IF(Price(code)<=BPRICE+minp && moveup==1)
{
SPID=T_Deal(code,1,1,buyvol,0);
WriteGlobal("SPID",SPID);
WriteGlobal("moveup",0);
MessageOut("上移成本價(jià)止損");
}ELSE IF(BPRICE-Price(code)>LoseBit && moveup==0)
{
SPID=T_Deal(code,1,1,buyvol,0);
MessageOut("賣平止損");
WriteGlobal("moveup",0);
WriteGlobal("SPID",SPID);
}
}
ELSE{
movedown=ReadGlobal("movedown");
IF(SPRICE-Price(code)>=Step && movedown==0)
{
WriteGlobal("movedown",1);
MessageOut("標(biāo)記下移");
}
ELSE IF(Price(code)>=SPRICE-minp && movedown==1)
{
BPID=T_Deal(code,0,1,sellvol,0);
WriteGlobal("BPID",BPID);
WriteGlobal("movedown",0);
MessageOut("賣平成本價(jià)止損");
}ELSE IF(Price(code)-SPRICE>LoseBit && movedown==0)
{
BPID=T_Deal(code,0,1,sellvol,0);
MessageOut("買平止損");
WriteGlobal("movedown",0);
WriteGlobal("BPID",BPID);
}}
}
- 文華客服：
組件修改需要段時(shí)間 請您耐心等待 修改好后會(huì)及時(shí)為您回復(fù)。
- 網(wǎng)友回復(fù)：
// ????+??????
VAR minp;//???????,??????
VAR BPRICE,SPRICE;//????????,??????,?????,?????
VAR Step,LoseBit; //??????,????,????,??????
VAR code;VAR buyvol,sellvol;//?????????
VAR SPID,BPID;
VAR moveup,movedown;
VOID MAIN()
{
code="IF1308";
Step=2.2; //??????
LoseBit=2.8; //??????
minp=MinPrice(code);
BPRICE=T_BuyAvgPrice(code);//???????????????
SPRICE=T_SellAvgPrice(code);//???????????????
buyvol=T_BuyPosition(code);
sellvol=T_SellPosition(code);
IF (buyvol>0)
{
MOVETOZERO(1);
}
ELSE IF (sellvol>0)
{
MOVETOZERO(0);
}
ELSE
{
WriteGlobal("movedown",0);
WriteGlobal("moveup",0);
MessageOut("手動(dòng)平倉后清空標(biāo)記");
}
}
VOID MOVETOZERO(VAR isup)
{
IF(isup==1)
{
moveup=ReadGlobal("moveup");
IF(Price(code)-BPRICE>=Step && moveup==0)
{
WriteGlobal("moveup",1);
MessageOut("標(biāo)記準(zhǔn)備上移");
}
ELSE IF(Price(code)<=BPRICE+minp && moveup==1)
{
SPID=T_Deal(code,1,1,buyvol,0);
WriteGlobal("SPID",SPID);
WriteGlobal("moveup",0);
MessageOut("上移成本價(jià)止損");
}
ELSE IF(BPRICE-Price(code)>LoseBit && moveup==0)
{
SPID=T_Deal(code,1,1,buyvol,0);
MessageOut("賣平止損");
WriteGlobal("moveup",0);
WriteGlobal("SPID",SPID);
}
}
ELSE
{
movedown=ReadGlobal("movedown");
IF(SPRICE-Price(code)>=Step && movedown==0)
{
WriteGlobal("movedown",1);
MessageOut("標(biāo)記下移");
}
ELSE IF(Price(code)>=SPRICE-minp && movedown==1)
{
BPID=T_Deal(code,0,1,sellvol,0);
WriteGlobal("BPID",BPID);
WriteGlobal("movedown",0);
MessageOut("賣平成本價(jià)止損");
}
ELSE IF(Price(code)-SPRICE>LoseBit && movedown==0)
{
BPID=T_Deal(code,0,1,sellvol,0);
MessageOut("買平止損");
WriteGlobal("movedown",0);
WriteGlobal("BPID",BPID);
}
}
}模型僅供參考
- 網(wǎng)友回復(fù)： 非常感謝！
有思路，想編寫各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 1145508240 進(jìn)行 有償 編寫！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會(huì)員登錄/注冊