三线反转源码

三线反转，又称三价线，是《股票K线战法》一书中记录的，日本证券界常用的股票价格线图。该图的绘制中，仅考虑股票的价格，而不考虑时间，故无法与常用的阴阳线同图显示。本源码对此进行改进，根据三线反转图中黑白块对应的时间，对其宽度进行调整，使三线反转图可以与标准的阴阳线图对应显示。

源码如下，适用于飞狐交易师软件：

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]

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;