[转载]FBFD

var1:="chzhshch@kxian";{处理K线}
var2:="chzhshch@bi";{处理笔关系}
drawline(var2=1,h,var2=-1,l,0),pointdot,coloryellow,LINETHICK2;
drawline(var2=-1,l,var2=1,h,0),pointdot,coloryellow,LINETHICK2;
var3:="chzhshch@duan";{处理段关系}

drawline(var3=1,h,var3=-1,l,0),colorff6600,LINETHICK3;
drawline(var3=-1,l,var3=1,h,0),colorff6600,LINETHICK3;

{var4:="chzhshch@duan2";
drawline(var4=1,h,var4=-1,l,0),linethick2,colorred;
drawline(var4=-1,l,var4=1,h,0),linethick2,colorred;}

h1:=0;
X1:=BARSLAST(h1);
MA1:MA(CLOSE,5);
MA2:MA(CLOSE,10);
gao:=INTPART( h);
di:=INTPART( l);

drawtext(var3=1,h*1.006,''+h),align1,colorred;
drawtext(var3=-1,l*0.994,''+l),align1,colorgreen;

a1:=barslast(var2<>0);
a2:=ref(var2,a1);
aa1:=ref(a1+1,1); {到前顶或底的距离}
gao1:=hhv(h,aa1);
a:=barslast(var2=1)+2;
前一高:=hhv(h,a);
b:=barslast(var2=-1)+2;
前一低:=llv(l,b);

UU:=BACKSET(BARSTATUS=2,BARSLAST(var3=-1)+1);
VV:=UU>REF(UU,1);
WW:=BACKSET(VV,REF(BARSLAST(var3=-1),1)+2);
XX:=WW>REF(WW,1);

UU2:=BACKSET(BARSTATUS=2,BARSLAST(var3=1)+1);
VV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(var3=1),1)+2);
XX2:=WW2>REF(WW2,1);

一低:=REF(L,BARSLAST(VV));
二低:=REF(L,BARSLAST(XX));
一高:=REF(H,BARSLAST(VV2));
二高:=REF(H,BARSLAST(XX2));