飞狐一根多空线主图公式

//一根多空线   (飞狐)
 DRAWGBK(C,COLORRGB(36,68,36),COLORRGB(100,100,100),1);
 {K线}
KLINE(O,H,L,C,0);
 {以下短线循环}
 Fxc8:=C;
Ax8:=hhv(h,3);
 Bx8:=llv(l,3);
 ax18:=ma(H,3+1);
 bx18:=ma(L,3+1);
 axx18:=ema(h,3+1);
 bxx18:=ema(l,3+1);
 
hh8:=cross(c,ax18);
 ll8:=cross(bx18,c);
 arh8:=ref(h,1);
 arl8:=ref(l,1);
 axxx18:=ema(h,3);
 bxxx18:=ema(l,3);
 hl8:=h;
 Kk8:=h;
 <%
Vc8=ffl.vardata("fxc8")
last=ubound(vc8)
vhh8=ffl.vardata("hh8")
vll8=ffl.vardata("ll8")
vhl8=ffl.vardata("hl8")
vhk8=ffl.vardata("Kk8")
vlk8=ffl.vardata("Kk8")
vax18=ffl.vardata("ax18")
vbx18=ffl.vardata("bx18")
vrax18=ffl.vardata("axxx18")
vrbx18=ffl.vardata("bxxx18")

for i8=2 to last
vhh8(i8)=0
 vll8(i8)=0
 if vc8(i8-1) <= vax18(i8-1)  and  vc8(i8) > vax18(i8)  then vhh8(i8)=1
 if vc8(i8-1) >= vbx18(i8-1)  and  vc8(i8) < vbx18(i8) then vll8(i8)=1
 next

for i8=2 to last
vhk8(i8)=0
 vlk8(i8)=0
 if vc8(i8-1) <= vrax18(i8-1)  and  vc8(i8) > vrax18(i8)  then vhk8(i8)=1
 if vc8(i8-1) >= vrbx18(i8-1)  and  vc8(i8) < vrbx18(i8) then vlk8(i8)=1
 next

th8=0
 tl8=0
 kh8=0
 kl8=0
 
for i8=1 to last

if vhh8(i8)=1 then
      th8=1
      tl8=0
 end if
 if th8=1 and tl8=0 then vhl8(i8)=1

if vll8(i8)=1 then
      th8=0
       tl8=1
 end if
   if tl8=1 and th8=0 then vhl8(i8)=0

next

for i8=1 to last

if vhk8(i8)=1 then
      kh8=1
      kl8=0
 end if
 if kh8=1 and kl8=0 then vhk8(i8)=1

if vlk8(i8)=1 then
      kh8=0
       kl8=1
 end if
   if kl8=1 and kh8=0 then vhk8(i8)=0

next

ffl.vardata("hl8")=vhl8
ffl.vardata("Kk8")=vhk8
rem ffl.vardata("ll8")=vhl8
rem ffl.vardata("hh8")=vhl8
%>
mm:=if(hl8=1,bx8,ax8),linethick1,colorblue;
 mm1:=if(hl8=1,bx18,ax18),linethick1,colorgreen;
 转:(mm+mm1)/2,PRECISION2,linethick1,COLORGREEN,linethick2;
 partline(C>=转,转),PRECISION2,linethick2,COLORMAGENTA;