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

INTPART

这个函数什么意思？

 

n:=round((7-c)/0.05);
T:=(7-C)/0.05；

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

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

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

0.05和0.25是怎么看出来的？

取整，有向上取整，向下取整，四舍五入取整，这个不是随便的问题，要定义好

推理 (7-c)/0.05=  (7-c)*20/(0.05*20)=(7-c)*20/1

 

就是推断(7-c)*20是不是整数

 

而根据上面的推断，

求某个数是不是整数的办法是

mod((7-c)*20*10,10)=0

 

所以你的下单条件要修改成

 

T:=(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);

怎么买就随你的需求改了，我前面的代码有地方写错了，就是最开的不是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 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);

 

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

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

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和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);