主题：求助

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

long:=  tholding<=0 and sp;
if long then begin
tsellshort(1,0,0,0,mkt,'12202822');
tbuy(1,1,0,0,mkt,'12202822');
end

short:= tholding>=0 and bp;

if short then begin
tsell(1,0,0,0,mkt,'12202822');
tbuyshort(1,1,0,0,mkt,'12202822');
end

long1:=  tholding<0 and c>ma42;
long2:=  tholding=0 and c>ma42 and ma42>ref(ma42,1);
 
if long1 then begin
tsellshort(1,0,mkt,0,0,'800309');
end
if long2 then begin
tbuy(1,1,mkt,0,0,'800309');
end

short1:= tholding>0 and c<ma42;
short2:= tholding=0 and c<ma42 and ma42<ref(ma42,1);

if short1 then begin
tsell(1,0,mkt,0,0,'800309');
end
if short2 then begin
tbuyshort(1,1,mkt,0,0,'800309');
end