主题：请老师帮我编写一个程序

老师，我需要多次连续买入，所以holding这里进行限制是不行的。按照你的思路，我做了回测，结果有点混乱。

这是我修改过的模型

 T:=(7-C)/0.05；
 n:=INTPART(t);

cond:=mod(t*20*10,10)=0;
if date=1120502 and time=093100 then begin
 buy(1,1,THISCLOSE);
end

if  cond and c<enterprice then buy(1,10*n,THISCLOSE);

if c<=1 then  sell(1,10,THISCLOSE);

怎么买就随你的需求改了，我前面的代码有地方写错了，就是最开的不是T:=，而是应该写成 N:=

这个没事，但是结果不对啊，你可以随便拿一只价格低于7元的股票试试，结果非常混乱

N:=(7-C)/0.05；

variable:m=0;

cond:=mod(t*20*10,10)=0;
if holding=0 and cond and m=0 then begin
 buy(1,10*n,market);
 m:=1;
end

if holding=0 and m=1 and cond and l<enterprice then buy(1,10*n,market);

if h>=1 and l<=1 then  sell(1,0,market);

 

先这样的用一下，看看对不对，

先把基本框架代码弄对了，再考虑怎么下单

老师，你这个只能买一次，看不出来问题啊。我需要的是一个多次连续买入的模型，所以holding函数必须去掉。而且我采用在一个确定时间买入1手的动作，是因为后面需要对前面的买入价格进行对比。既然买入了而且没有卖出，这个时候holding肯定不为零。

所以你这个程序是没办法实现的，需要进行修改，而且既然如此了，m也就成为一个不需要的参数了。所以我才把它去掉了

N:=(7-C)/0.05；

variable:m=0;

cond:=mod(t*20*10,10)=0;
if holding=0 and cond and m=0  and 某个特定时间 then begin
 buy(1,1,market);
 m:=1;
end

if  m=1 and cond and l<enterprice and h>enterprice or h<enterprice then buy(1,10*n,market);

if h>=1 and l<=1 then  sell(1,0,market);

 

m是全局变量来记录第一次下单的

呵呵，公式无效

你把时间判断写上，我简写了

 
t:=(7-C)/0.05；
n:=INTPART(t);

variable:m=0;

cond:=mod(t*20*10,10)=0;
if holding=0 and cond and m=0  and date=1120502 and time=093100 then begin
 buy(1,1,market);
 m:=1;
end

if  m=1 and cond and l<enterprice and h>enterprice or h<enterprice then buy(1,10*n,market);

if h>=1 and l<=1 then  sell(1,10,market);
 

这是现在的，一个交易都没有。老师你可以自己测试一下看看

怎么写的这么乱，T和N乱用，照着我的写，写入对应的时间条件

 

N:=(7-C)/0.05；

variable:m=0;

cond:=mod(t*20*10,10)=0;
if holding=0 and cond and m=0  and date=1120502 and time>=093100  then begin
 buy(1,1,market);
 m:=1;
end

if  m=1 and cond and l<enterprice and h>enterprice or h<enterprice then buy(1,10*n,market);

if h>=1 and l<=1 then  sell(1,0,market);