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