-- 作者:小布丁
-- 发布时间:2012/12/13 10:04:09
-- 飞狐的三线反转公式,金字塔通不过,怎么改?
VARIABLE: fc:=close,fh:=h,fl:=l,fcolor:=0,ft1:=0,fb1:=0,fi:=0,t[4]=0,b[4]=0,pt=1,pb=1; if datacount<2 then exit; for i=1 to 4 do begin t[i]:=i; b[i]:=1; end for i=2 to datacount do begin if fc[i]>fc[t[pt]] then begin fh[i]:=fc[i]; fl[i]:=fc[t[1]]; fcolor[i]:=1; b[4]:=b[3]; b[3]:=b[2]; b[2]:=b[1]; b[1]:=t[1]; t[4]:=t[3]; t[3]:=t[2]; t[2]:=t[1]; t[1]:=i; pt:=1; pb:=if(pb=3,3,pb+1); end else if fc[i]<fc[b[pb]] then begin fh[i]:=fc[b[1]];fl[i]:=fc[i]; fcolor[i]:=-1; t[4]:=t[3]; t[3]:=t[2]; t[2]:=t[1]; t[1]:=b[1]; b[4]:=b[3]; b[3]:=b[2]; b[2]:=b[1]; b[1]:=i; pb:=1; pt:=if(pt=3,3,pt+1); end else if fc[i]<=fc[t[pt]] and fc[i]>=fc[b[pb]] then begin fh[i]:=fh[i-1]; fl[i]:=fl[i-1]; fcolor[i]:=fcolor[i-1]; end ft1[i]:=t[1]; fb1[i]:=b[1]; fi[i]:=i; end STICKLINE(fcolor=1,fh,fl,10,0),colorred; STICKLINE(fcolor=-1,fh,fl,10,0),colorgreen;
|