求助编写以下逻辑

100020197

加过滤条件的网格交易
入场条件：1.开启条件：周K线上，3日均线上穿8日均线，且8日均线斜率为正，3日均线斜率为负时(斜率用金字塔函数slop)；
2.操作K线是日K线，输入参数，给定input 5个：参考价格，H价格，L价格，基准价格，格子数，手数
单位格子间距=(H价格- L价格)/格子数
交易逻辑：
1.没有仓位时，达到基准价格开一单位手数
2.从基准价格下跌，每跌一格子，买入一手数
3.上涨，上一次买入的价格上涨一单位格子间距，则把上一次买入的数量卖出
清仓逻辑：


档价格跌破L价格-1倍单位格子间距时，清仓

技术008

程序比较复杂，工作人员编写中，请耐心等待

技术008

a1:stkindi('','A1.cond',0,7,0);
input:k1(0,1,100,1),k2(0,1,100,1),k3(0,1,100,1),k4(0,1,100,1),k5(0,1,100,1),k6(0,1,100,1);
间隔:=(k2-k3/k5);
if holding=0 and close>k4 then
begin
        k4:=close;
        buy(1,k6,marketr);
end
if close<k4-间隔 then
begin
        k4:=close;
sell(1,k6,marketr);
end

if close<k3-间隔 then sell(1,holding,marketr);

技术008

在公式A1中写如下代码
cond:cross(ma(c,3),ma(c,8)) and slope(c,8)>0 and slope(c,3)<0

100020197

谢谢

技术008

上面有个错误，修正如下

variable:k4=100;
a1:stkindi('','A1.cond',0,7,0);
input:k1(1,1,100,1),k2(1,1,100,1),k3(1,1,100,1),k5(1,1,100,1),k6(1,1,100,1);
间隔:=(k2-k3/k5);
if holding=0 and close>k4 then
begin
        k4:=close;
        buy(1,k6,marketr);
end
if close<k4-间隔 then
begin
        k4:=close;
sell(1,k6,marketr);
end

if close<k3-间隔 then sell(1,holding,marketr);