公式1:
aa:MINUTE;
公式2
time59:STKINDI('','公式1.aa',0,1);
close1:CALLSTOCK('',vtCLOSE,1);
if close1>open then begin
SELLSHORT(HOLDING<0,HOLDING,MARKET);
buy(1,1,MARKET);
end
if close1<open then begin
SELL(HOLDING>0,HOLDING,MARKET);
buySHORT(1,1,MARKET);
end
if time59=59 then BEGIN
sell(HOLDING>0,HOLDING,MARKET);
SELLSHORT(HOLDING<0,HOLDING,MARKET);
end
if OPENPROFIT>20*MINDIFF then begin
sell(HOLDING>0,HOLDING,MARKET);
SELLSHORT(HOLDING<0,HOLDING,MARKET);
end