主题：[求助]如何在老图表上编写策略模型

问题正在解决中

不知行不行

input:D(350,0.00001,1000,0.00001),M1(1.5,0.0001,100,0.0001),M2(0.8,0.0001,100,0.0001);
input:A1(75,0,100,1),A2(25,0,100,1),B1(8,-60,60,1),B2(12,-60,60,1);
//下列变量用于区别首次，和完成后面的条件 开多以来和开空以来
VARIABLE:kkyl=0,kdyl=0;
VX:"vcr.vx";
CX:"vcr.cx";
R:"vcr.r";
RX:"vcr.rx";

//首次开多条件(程序开启后只执行一次):
if STKINDI('','vcr.vx',2,5)>=M1 and STKINDI('','vcr.r',2,2)<=A1 and STKINDI('','vcr.rx',2,2)>=B2 and kdyl=0 then
begin
BUY(kdyl=0,1,market);
kdyl=BARPOS;
end
if STKINDI('','vcr.rx',2,5)>=B1 and STKINDI('','vcr.rx',2,2)>=B2 and STKINDI('','vcr.r',2,2)<=A1 and kdyl=0 then
 begin
BUY(kdyl=0,1,market);
kdyl=BARPOS;
end
 
 if STKINDI('','vcr.cx',2,5)>=M1 and STKINDI('','vcr.r',2,2)<=A1 and STKINDI('','vcr.rx',2,2)>=B2 and kdyl=0 then
begin
BUY(kdyl=0,1,market);
kdyl=BARPOS;
end

//首次开空条件(程序开启后只执行一次):
if STKINDI('','vcr.vx',2,5)<=M2 and STKINDI('','vcr.r',2,2)>=A2 and STKINDI('','vcr.rx',2,2)<=-B2 and kkyl=0 then
begin
BUYSHORT( kkyl=0,1,market);
kkyl=BARPOS;
end

if STKINDI('','vcr.rx',2,5)<=-B1 and STKINDI('','vcr.rx',2,2)<=-B2 and STKINDI('','vcr.r',2,2)>=A2 and kkyl=0  then
begin
BUYSHORT( kkyl=0,1,market);
kkyl=BARPOS;
end

if STKINDI('','vcr.cx',2,5)<=M2 and STKINDI('','vcr.r',2,2)>=A2 and STKINDI('','vcr.rx',2,2)<=-B2 and kkyl=0  then
begin
BUYSHORT( kkyl=0,1,market);
kkyl=BARPOS;
end
//开多仓条件(程序开启后循环执行):CLOSE>=开空以来的最低价+D；
if close>=LLV(c,BARPOS-kkyl)+D and kkyl<>0 then BUY(HOLDING<>0,1,market);

//平多仓条件(程序开启后循环执行):CLOSE<=开多以来的最高价-D；
if close<=HHV(c,BARPOS-kdyl)-D and kdyl<>0 then SELL(HOLDING<>0,1,market);

//开空仓条件(程序开启后循环执行):CLOSE<=开多以来的最高价-D；
if close<=HHV(c,BARPOS-kdyl)-D and kdyl<>0 then BUYSHORT(HOLDING<>0,1,market);

//平空仓条件(程序开启后循环执行):CLOSE>=开空以来的最低价+D；
if close>=LLV(c,BARPOS-kkyl)+D and kkyl<>0 then BUY(HOLDING<>0,1,market);