原碼: GB:=CROSS(XA,XB);
CC:=C;
BB:=c*0; SS:=BB;
UU:=0; //持倉
DP:=0; //進價
for i=lbound(GB) to datacount do begin
if UU=0 and GB[i]=1 then begin
BB[i]:=1; UU:=1; DP:=CC[i];
end else if UU=1 then begin
if cc[i]<DP*0.85 then SS[i]:=1; //停損
if cc[i]>DP*1.35 then SS[i]:=2; //出場
if SS[i]>0 then UU:=0;
end;
end;
ENTERLONG:BB;
EXITLONG:SS>0;