帮我改成后台交易代码

兰延追风石

VARIABLE:num:=0,oneprice:=-1,kk:=0;;


kd:=c< l1-diff*MINDIFF or oneprice-c>diff*MINDIFF;

//首次开仓时记录开仓时是的价格
if kd and holding=0  and BARPOS>=20 then begin
    buy(kd and holding=0,1,marketr);
    oneprice:=ENTERPRICE;
    num:=1;//开启加仓模式
end

//加仓处理
if oneprice-c>diff*MINDIFF and num>0 and ENTERBARS>2 and  holding>0 THEN begin
    加仓:buy(1,1,marketr);
    num:=num+1;
   oneprice:=ENTERPRICE;
end

//减仓处理
if c-oneprice>diff*MINDIFF and  ENTERBARS>1 and  num>1 and holding>0 THEN
begin
   减仓: sell(1,1,marketr);
    num:=num-1;
    oneprice:=EXITPRICE;
end

if c-oneprice>diff*6*MINDIFF and  ENTERBARS>1 and  num=1 and holding>0 THEN
begin
    sell(1,holding,marketr);
    num:=0;
    oneprice:=EXITPRICE;
end

技术008

GLOBALVARIABLE:num:=0,oneprice:=-1,kk:=0;;


kd:=c< l1-diff*MINDIFF or oneprice-c>diff*MINDIFF;

//首次开仓时记录开仓时是的价格
if kd and tholding=0  and BARPOS>=20 then begin
    tbuy(kd and tholding=0,1,mkt);
    oneprice:=tENTERPRICE;
    num:=1;//开启加仓模式
end

//加仓处理
if oneprice-c>diff*MINDIFF and num>0 and tenterbars(1)>2 and  tholding>0 THEN begin
    tbuy(1,1,mkt);
    num:=num+1;
   oneprice:=tENTERPRICE;
end

//减仓处理
if c-oneprice>diff*MINDIFF and  tenterbars(1)>1 and  num>1 and tholding>0 THEN
begin
   tsell(1,1,mkt);
    num:=num-1;
    oneprice:=tEXITPRICE;
end

if c-oneprice>diff*6*MINDIFF and  tenterbars(1)>1 and  num=1 and tholding>0 THEN
begin
    tsell(1,holding,mkt);
    num:=0;
    oneprice:=tEXITPRICE;
end

兰延追风石

谢谢

jzt001

在图表里没有问题，但是后台还是不能交易

技术008

建议输出些条件跟踪看看呢，debugfile是我们使用后台输出的工具

技术008

https://www.weistock.com/docs/HE ... BA%A4%E6%98%93.html


建议直接使用自带的功能

兰延追风石

试过了，不实我要策略


补充内容 (2024-6-12 15:08):
不是

兰延追风石

我试用了自带功能，但是交易的仓位出现增加

兰延追风石

本来应该只交易了3手，但是持仓却是5手，交易本身就是仓位管理，要是在仓位上不可控的情况下，不敢贸然交易

技术008

VARIABLE:num:=0,oneprice:=-1,kk:=0;;


kd:=c< l1-diff*MINDIFF or oneprice-c>diff*MINDIFF;

//首次开仓时记录开仓时是的价格
if kd and holding=0  and BARPOS>=20 then begin
        tbuy(kd and holding=0,1,mkt);
    buy(kd and holding=0,1,marketr);
    oneprice:=ENTERPRICE;
    num:=1;//开启加仓模式
end

//加仓处理
if oneprice-c>diff*MINDIFF and num>0 and ENTERBARS>2 and  holding>0 THEN begin
        tbuy(1,1,mkt);
    加仓:buy(1,1,marketr);
    num:=num+1;
   oneprice:=ENTERPRICE;
end

//减仓处理
if c-oneprice>diff*MINDIFF and  ENTERBARS>1 and  num>1 and holding>0 THEN
begin
        tsell(1,1,mkt);
   减仓: sell(1,1,marketr);
    num:=num-1;
    oneprice:=EXITPRICE;
end

if c-oneprice>diff*6*MINDIFF and  ENTERBARS>1 and  num=1 and holding>0 THEN
begin
        tsell(1,holding,mkt);
    sell(1,holding,marketr);
    num:=0;
    oneprice:=EXITPRICE;
end