一根多空线主图 EA

一根多空线主图

rn

源码

rn

DRAWGBK(C,COLORRGB(36,68,36),COLORRGB(100,100,100),1);
rn{K线}
rnKLINE(O,H,L,C,0);
rn{以下短线循环}
rnFxc8:=C;
rnAx8:=hhv(h,3);
rnBx8:=llv(l,3);
rnax18:=ma(H,3+1);
rnbx18:=ma(L,3+1);
rnaxx18:=ema(h,3+1);
rnbxx18:=ema(l,3+1);
rnhh8:=cross(c,ax18);
rnll8:=cross(bx18,c);
rnarh8:=ref(h,1);
rnarl8:=ref(l,1);
rnaxxx18:=ema(h,3);
rnbxxx18:=ema(l,3);
rnhl8:=h;
rnKk8:=h;
rn<%
rnVc8=ffl.vardata("fxc8")
rnlast=ubound(vc8)
rnvhh8=ffl.vardata("hh8")
rnvll8=ffl.vardata("ll8")
rnvhl8=ffl.vardata("hl8")
rnvhk8=ffl.vardata("Kk8")
rnvlk8=ffl.vardata("Kk8")
rnvax18=ffl.vardata("ax18")
rnvbx18=ffl.vardata("bx18")
rnvrax18=ffl.vardata("axxx18")
rnvrbx18=ffl.vardata("bxxx18")

rn

for i8=2 to last
rnvhh8(i8)=0
rnvll8(i8)=0
rnif vc8(i8-1) <= vax18(i8-1)  and  vc8(i8) > vax18(i8)  then vhh8(i8)=1
rnif vc8(i8-1) >= vbx18(i8-1)  and  vc8(i8) < vbx18(i8) then vll8(i8)=1
rnnext

rn

for i8=2 to last
rnvhk8(i8)=0
rnvlk8(i8)=0
rnif vc8(i8-1) <= vrax18(i8-1)  and  vc8(i8) > vrax18(i8)  then vhk8(i8)=1
rnif vc8(i8-1) >= vrbx18(i8-1)  and  vc8(i8) < vrbx18(i8) then vlk8(i8)=1
rnnext

rn

th8=0
rntl8=0
rnkh8=0
rnkl8=0

rn

for i8=1 to last

rn

if vhh8(i8)=1 then
rn     th8=1
rn     tl8=0
rnend if
rnif th8=1 and tl8=0 then vhl8(i8)=1

rn

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

rn

next

rn

for i8=1 to last

rn

if vhk8(i8)=1 then
rn     kh8=1
rn     kl8=0
rnend if
rnif kh8=1 and kl8=0 then vhk8(i8)=1

rn

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

rn

next

rn

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

rn