[PEL] 复制代码
timecd1:time>11500 and time<=CLOSETIME(1);
timecd2:time>131500 and time<=CLOSETIME(0);
timecd:timecd1 or timecd2;//开仓是时间限制
t1:=VALUEWHEN(time=CLOSETIME(0),timetot0(time)-timetot0(ref(time,1)));//周期对应的秒数
t2:=timetot0(CLOSETIME(1))-time0;//距离夜盘收盘K的跨度(秒)
Len:=t2/t1;//收盘K位置输出值为0,前一个K为1,以此类推。
if len<5 then //夜盘收盘前5分钟
begin
sellshort(1,holding,market);
sell(1,holding,market);
end
if time>185500 then //白盘收盘前5分钟
begin
sellshort(1,holding,market);
sell(1,holding,market);
end
timecd 直接加入到开仓条件里面去。 |