variable:riqi=0;
c1:callstock(stklabel,vtclose,6,-1);
o1:casllstock(stklabel,vtopen,6,-1);
if c1>o1 then begin
buy(holding=0,1,limitr,c);
riqi:=date;
end
if date>=riqi+1 then sell(holding>0,0,limitr,o);