飞狐立一线
lr:=(v/CAPITAL)*100;
ll:=v;
bl:=l;
bh:=h;
ba:=AMOUNT;
bc:=c;
bv:=v;
bs:=c;
bz:=c;
<%
vr=ffl.vardata("lr")
vl=ffl.vardata("ll")
vn=ffl.vardata("n")
vt=ffl.vardata("t")
vll=ffl.vardata("bl")
vhh=ffl.vardata("bh")
va=ffl.vardata("ba")
vc=ffl.vardata("bc")
vv=ffl.vardata("bv")
vs=ffl.vardata("bs")
vz=ffl.vardata("bz")
last=ubound(vr)
tt=vt
for i=vt to last
jj=vr(i)
vl(i)=jj
ih=vhh(i)
il=vll(i)
ia=va(i)
iv=vv(i)
iz=vz(i)
ii=i
if vv(i)>1 then
vc(i)=va(i)/vv(i)
end if
do while jj<=vn
zt=0
i=i+1
if i>last then
zt=1
exit do
end if
if vll(i)<il then il=vll(i)
if vhh(i)>ih then ih=vhh(i)
ia=ia+va(i)
iv=iv+vv(i)
if iv>1 then
vc(i)=ia/iv
vz(i)=100*(vz(i)-iz)/iz
end if
jj=jj+vr(i)
vl(i)=jj
loop
for j=ii to i-zt
vll(j)=il
vhh(j)=ih
vs(j)=i-zt-ii
next
next
FFL.VarStartIndex("ll")=vt
ffl.vardata("ll")=vl
if vt>0 then
vtt=vt-1
end if
FFL.VarStartIndex("bl")=vtt
ffl.vardata("bl")=vll
FFL.VarStartIndex("bh")=vtt
ffl.vardata("bh")=vhh
FFL.VarStartIndex("bc")=vt
ffl.vardata("bc")=vc
FFL.VarStartIndex("bs")=vt
ffl.vardata("bs")=vs
FFL.VarStartIndex("bz")=vt
ffl.vardata("bz")=vz
%>
换手:ll,LINETHICK0;
最低:bl;
最高:bh;
均价:bc/100;
天:bs,LINETHICK0;
涨幅:bz,LINETHICK0,COLORGREEN;
anything wrong?
