代码优化 谢谢

飞炫

input:p(4,1,20,2),step(2,1,5,1),maxp(20,5,80,8),ss(1,1,300,1);
variable:recent_turn:=0;
turn:sarturn(p,step,maxp);

if turn=1 then recent_turn:=1;
if turn=-1 then recent_turn:=-1;
macd:"macd.macd1"(26,12,9);//调用macd的数值

手数:=ss;
//交易条件

开多平空条件:=recent_turn>0 and  macd>0;//开多平空条件
开空平多条件:=recent_turn<0 and macd<0;//开空平多条件

//交易系统
平空:sellshort(开多平空条件,holding,market);
平多:sell(开空平多条件,holding,market);
开多:buy(开多平空条件 and holding=0,手数,market);
开空:buyshort(开空平多条件 and holding=0,手数,market);

当前持仓:holding,colorgray,linethick0;
当前资产:asset,noaxis,colorgray;

需要优化的执行条件是：
开多平空条件:SAR指标多先MACD指标大于0后的下一柱线或MACD指标大于0后的下一柱线先SAR指标多后，执行开多平空
开空平多条件:SAR指标空先MACD指标小于0后的下一柱线或MACD指标小于0后的下一柱线先SAR指标空后，执行开空平多

技术008

a:SAR(10,STEP,MAXP),CIRCLEDOT;


if ref(a,1)>0 and ref(macd,1)<0 and macd>0 then
begin
        sellshort(1,1,marketr);
        buy(1,1,marketr);
END

if ref(a,1)<0 and ref(macd,1)>0 and macd<0 then
begin
        sell(1,1,marketr);
        buyshort(1,1,marketr);
END

技术008

a:SAR(10,STEP,MAXP),CIRCLEDOT;


if ref(a,1)>0 and ref(macd,1)<0 and macd>0 then
begin
        sellshort(1,1,marketr);
        buy(1,1,marketr);
END

if ref(a,1)<0 and ref(macd,1)>0 and macd<0 then
begin
        sell(1,1,marketr);
        buyshort(1,1,marketr);
END

飞炫

您好，您可以帮我融入到那个原始代码里吗？谢谢

技术008

直接拷到你代码后面就行了
建议用户基本代码要能看懂点，这种拷贝黏贴啥的应该要能理解

飞炫

我复制到原代码后面，执行了一下，结果是错误的。可能是我融入时的问题，请您帮忙融合一下。谢谢

技术008

这个条件就是上一跟ksar大于0，并且macd也是小于0，现在的macd大于0.
不太明白您具体需求

a:SAR(10,STEP,MAXP),CIRCLEDOT;


if ref(a,1)>0 and ref(macd,1)<0 and macd>0 then
begin
        sellshort(1,1,marketr);
        buy(1,1,marketr);
END

100020023

技术008 发表于 2024-4-10 11:07
a:SAR(10,STEP,MAXP),CIRCLEDOT;

版主你好，a的值不会小于0，if条件似乎用不上。
另外step与maxp的取值范围是多少？谢谢。

技术009

input:p(4,1,20,2),step(2,1,5,1),maxp(20,5,80,8),ss(1,1,300,1);

参数定义里 已经说明了最大最小范围