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

呵呵，老师，你的里面没有T，如何进行计算呢？再者，我唯一修改的就是这个啊，你也可以自己测试一下，真的结果很乱，我倒是想简单

N:=(7-C)/0.05；

variable:m=0;

cond:=mod(n*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);

 

用的都是N，思路是用N来计算判断，不用再计算个T这么麻烦了

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

这是我现在的代码，测试601618，周期为分钟，开始日期为2012年5月2日

date=1120502 and time=093100

这个是开始时间还是一定要在这个时间点上判断条件然后开仓？

老师，我按照你的代码做了测试，结果是一个交易都没有。

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

 

改了下时间，测评结果是没有满足价格=1时的判断条件，导致了没有平过仓

老师啊，为什么要平仓啊？我要的就是一个能连续买入连续卖出多次自动交易的系统啊

您好,不用测就知道您这个代码逻辑有问题

 

if holding=0 and cond and m=0 and date=1120502 and time=093100 then begin

//这句表示您限定在2012年5月2日早上的第一根K线进行开仓,而当时对应cond根本就不满足!导致整个代码完全不会有开平仓操作

 

建议用户先学习下对应的编程基础,阅读下程序化交易初级教程,网站对应都有学习资料的

http://210.14.66.209/bbs/dispbbs.asp?boardid=16&Id=55142

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

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

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

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

 

 

这是现在简化后的结果，比较好看。但是仍旧出现一个问题，那就是交易不连续

此主题相关图片如下：2{f$fivt1a)0m{a~br0aaa9.jpg

老师帮我看看为什么会出现这些问题吧

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

variable:m=0;

cond:=mod(t*20*10,10)=0;

 

T你少乘了20