软件名称：[B]换手看盘[/B]
软件类型：国产软件
运行环境：Win9X/2000/XP/2003/
软件语言：简体中文
授权方式：解密版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2009-02-20 05:29:02
软件简介:
换手看盘
{☆财富沙龙常用指标}
input: n(5,2,1000),t(0,0,10000),m(10,1,15);
a0:=numtostr(ma(v,5),2);
b0:=numtostr(ma(v/capital*100,5)*5,2);
typ:=(h+l+c)/3;
ll:=llv(l,12);
hh:=hhv(h,12);
wr:=typ+typ-ll;
ws:=typ-hh-typ;
wa:=numtostr(wr,2);
wb:=numtostr(ws,2);
drawtext(barpos=sysparam(2),h,stkname+'\n'+stklabel+'\n'+blkname),align4,colorff00;
收盘:c,pointdot,colorffff;
var1:=if(c>ref(c,1),88,0);
var2:=if(c/ref(c,1)>1.05 and h/c<1.01 and var1>0,91,0);
drawtext(var2>90,l*0.99,'▲加仓'),colorff;
var1:=(h+l+o+2*c)/5;
var2:=ref(var1,1);
var3:=sma(max(var1-var2,0),10,1)/sma(abs(var1-var2),10,1)*100;
hy3:=if(count(var3<20,5)>=1 and count(var1=llv(var1,10),10)>=1 and c>=o*1.038 and v>ma(v,5)*1.2,1,0);
drawtext(hy3,l,'▲注意买入'),colorff;
s:=ma(v,5)/ma(v,60);
a:=ma(s,5);
bias:=(c-ma(c,5))/ma(c,5)*100;
f:=ma(s,121);
rsv:=(c-llv(l,45))/(hhv(h,45)-llv(l,45))*100;
k:=sma(rsv,15,1);
d:=sma(k,15,1);
j:=3*k-2*d;
lc:=ref(c,1);
rsi:=sma(max(c-lc,0),6,1)/sma(abs(c-lc),6,1)*100;
drawtext(cross(84,rsi),h,'●逃顶!!'),colorffff;
s1:=if(j<11 and bias>-11 and cross(s,f) and s-f>0.01,2,0);
drawtext(s1=2,l,'◆●关注!!'),colorff00;
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,colorff00;
var1:=ma(c,5);
var2:=ma(c,10);
var3:=ma(c,20);
var4:=ma(c,30);
h1a:=(var1+var2+var3+var4)/4;
stickline(c>=o,h,l,1,0),colorff;
stickline(c>=o,h,l,0,0),colorff;
stickline(c>=o,c,o,8,1),colorff;
stickline(c<=o,h,l,1,0),colorff0000;
stickline(c<=o,h,l,0,0),colorffff00;
stickline(c<=o,c,o,8,0),colorffff00;
pn:=mod(barpos-1,n);
fo:ref(o,pn),linethick0;
fh:refx(hhv(h,n),n-pn-1),linethick0;
fl:refx(llv(l,n),n-pn-1),linethick0;
fc:refx(c,n-pn-1),linethick0;
tj:=fc>fo or fc=fo and fc>ref(fc,n+1);
stickline(tj,fc,fo,m,0),colorff;
stickline(tj and pn=intpart(n/2),fh,fl,2,0),colorff;
stickline(not(tj),fc,fo,m,0),colorff0000;
stickline(not(tj) and pn=intpart(n/2),fh,fl,2,0),colorff0000;
tj1:=c>o or c=o and c>ref(c,1);
stickline(tj1,h,l,0.1,1),colorff00ff;
stickline(tj1,c,o,7,1),colorff00ff;
stickline(not(tj1),h,l,0.1,0),colorff00;
stickline(not(tj1),c,o,7,0),colorff00;
[url=http://www.70822.com/soft/sort013/sort02/down-6582.html]换手看盘[/url]