软件名称：[B]一根多空线(飞狐)[/B]
软件类型：国产软件
运行环境：Win2000/WinXP/Win2003/WinVista
软件语言：简体中文
授权方式：共享软件
软件大小：2.00 KB
官方主页：Home Page
更新时间：2013-04-12 09:06:08
软件简介:

//一根多空线   (飞狐)
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;

[url=http://www.70822.com/soft/sort013/sort02/down-61399.html]一根多空线(飞狐)[/url]