求高手将飞狐三线源码转换为博易大师三线源码，please!
VARIABLE:fc:=close,fh:=h,fl:=l,fcolor:=0,ft1:=0,fb1:=0,fi:=0,t=0,b=0,pt=1,pb=1;
if datacount<2 then exit;
for i=1 to 4 do begin t:=i;b:=1; end;
for i=2 to datacount do begin
if fc>fc] then begin
fh:=fc;fl:=fc];fcolor:=1;
b:=b;b:=b;b:=b;b:=t;
t:=t;t:=t;t:=t;t:=i;
pt:=1;
pb:=if(pb=3,3,pb+1); end;
else if fc<fc] then begin
fh:=fc];fl:=fc;fcolor:=-1;
t:=t;t:=t;t:=t;t:=b;
b:=b;b:=b;b:=b;b:=i;
pb:=1;
pt:=if(pt=3,3,pt+1);
end;
else if fc<=fc] and fc>=fc] then begin fh:=fh;fl:=fl; fcolor:=fcolor;
end;
ft1:=t;fb1:=b;fi:=i;
end;
STICKLINE(fcolor=1,fh,fl,10,0) colorred;
STICKLINE(fcolor=-1,fh,fl,10,0) colorgreen;
QQ:125918832
页:
[1]