
等级: 新手上路
- 注册:
- 2023-2-26
- 曾用名:
|
今天测试了,后台交易没有加仓,是哪里有问题吗?后台的代码:
variable:oneprice=-1,num=0;;
RUC:880;
diff:=6;
if THOLDING=0 and close<=RUC then begin
首开:tbuy(1,1,mkt);
oneprice:=TENTERPRICE;
num:=1;
end
IF oneprice-C>diff*mindiff AND num<40 THEN BEGIN
开仓:Tbuy(1,1,MKT);
oneprice:=TENTERPRICE;
num:=num+1;
END
if close-oneprice>diff*mindiff and num>1 then BEGIN
平仓:TSELL(1,1,MKT);
oneprice:=TEXITPRICE;
num:=num-1;
END
if THOLDING=1 and CLOSE>=ruc+ 10 * MINDIFF and num=1 then BEGIN
平首:TSELL(1,1,MKT );
num:=0;
END
图表的代码:variable:oneprice=-1,num=0;;
RUC:870;
diff:=6;
if HOLDING=0 and close<=RUC then begin
首开:buy(1,1,MARKET);
oneprice:=ENTERPRICE;
num:=1;
end
IF oneprice-c>diff*MINDIFF AND num<=40 and HOLDING<=40 THEN BEGIN
开仓:buy(1,1,MARKET);
oneprice:=ENTERPRICE;
num:=num+1;
END
if c-oneprice>=diff*MINDIFF and num>1 then BEGIN
平仓:SELL(1,1,MARKET);
oneprice:=EXITPRICE;
num:=num-1;
END
if HOLDING=1 and CLOSE>=ruc+ 10 * MINDIFF and num=1 then BEGIN
平首:SELL(1,1,MARKET );
num:=0;
END
|
|