代码帮忙编写

Crystal

老师好，我想要实现连续4日交易的后5天不能继续交易这个功能该怎么编写

技术009

可以这样子的处理思路：

[PEL] 复制代码

VARIABLE:ct:=0,;



td:=TODAYBAR;

//统计连续交易的次数（每个交易日有开仓就算）
if time=CLOSETIME(0) and ENTERBARS<>-1  then
begin 
if ENTERBARS+1<td then ct:=ct+1;
if ENTERBARS+1>=td  then ct:=0;//如果连续交易中断 则重置为0
end 


cd:cross(ct,3);//标记连续四个交易日有下单

LEN:=BARSLAST(CD);

TCD:COUNT(TIME=CLOSETIME(0),LEN);//连续交易四个交易日后的 累计交易日次数


ma5:=ma(c,5);
ma10:=ma(c,10);

kd:cross(ma5,ma10) and (VALID(TCD)=0 or TCD>5);
buy(KD,1,market);

实际应用到你本地代码，可以参考上面思路进行调整。