原碼: T3:=(CROSS(T1,0.9));//作多
T4:=(CROSS(T2,0.9));//作空
多進:=T3 or barpos=0;
空進:=T4 or barpos=0;
強出:=time>=133000;
多進:=T3 and 強出=0 or barpos=0;
空進:=T4 and 強出=0 or barpos=0;
多空:=0; //1.多 -1.空 0.無
控損:=30; 進價:=0; CC:=C;
進向:=多進-空進;
進出:C*0 NOAXIS;
盈虧:C*0 linethick0;
for i = 1 to datacount do begin
if 多空=0 then begin
多空:=進向[i]; 進出[i]:=多空;
if 多空<>0 then 進價:=CC[i];
end else if 多空<>0 then begin
盈虧[i]:=(CC[i]-進價)*多空;
if 強出[i] then begin
進出[i]:=多空*4; 多空:=0;
end else if 多空<>進向[i] and 進向[i]<>0 then begin
進出[i]:=多空*2; 多空:=-多空; 進價:=CC[i];
end else if 盈虧[i]<=-控損 then begin
進出[i]:=多空*3; 多空:=0;
end;
end;
end;
原碼: T3:=(CROSS(T1,0.9));//作多
T4:=(CROSS(T2,0.9));//作空
多進:=T3 or barpos=0;
空進:=T4 or barpos=0;
強出:=time>=133000;
多進:=T3 and 強出=0 or barpos=0;
空進:=T4 and 強出=0 or barpos=0;
多空:=0; //1.多 -1.空 0.無
控損:=30; 進價:=0; CC:=C;
進向:=多進-空進;
進出:C*0 NOAXIS;
盈虧:C*0 linethick0;
for i = 1 to datacount do begin
if 多空=0 then begin
多空:=進向[i]; 進出[i]:=多空;
if 多空<>0 then 進價:=CC[i];
end else if 多空<>0 then begin
盈虧[i]:=(CC[i]-進價)*多空;
if 強出[i] then begin
進出[i]:=多空*4; 多空:=0;
end else if 多空<>進向[i] and 進向[i]<>0 then begin
進出[i]:=多空*2; 多空:=-多空; 進價:=CC[i];
end else if 盈虧[i]<=-控損 then begin
進出[i]:=多空*3; 多空:=0;
end;
end;
end;