软件名称：[B]股市航灯主图[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：0 Bytes
官方主页：Home Page
更新时间：2010-03-20 20:05:52
软件简介:
{股市航灯5}
TJTS:=BARSTATUS=2;
cg:=hhv(h,125);
cgl:=llv(h,125);
j:=(cg-cgl)/8;
IF C>0 AND TJTS THEN BEGIN
DRAWTEXT(C>0,cg*1.04,'股市航灯 '),LINETHICK6,Coloryellow,ALIGN2;
DRAWTEXT(C>0,cg*1.04,STKLABEL+' '+STKNAME+' '),LINETHICK6,ColorFFFF80,ALIGN2;
DRAWTEXT(C>0,cg*1.04,' '+ '流通:'+NUMTOSTRN( FINANCE(7),0 )+' '+'换手:'+NUMTOSTRN( DYNAINFO(37)*100,3 )+' '),LINETHICK3,ColorFFFF80,ALIGN2;end;
fs:=sma(h,21,2)*1.05;
ls:=sma(l,21,2)*0.95;
bd:=sma(l,5,1);
rd:=sma(c,2,1);
航灯１:=if(cross(rd,bd),fs*1.05,bd);
航灯２:=if(cross(rd,fs),fs*1.1,ls);
前兆:=航灯１;
fillrgn(bd,航灯１,航灯１>bd),colorff9900;
PARTLINE(航灯１,航灯１>bd),POINTDOT,LINETHICK7,colorff9900;
PARTLINE(航灯１,航灯１>bd),POINTDOT,LINETHICK3,colorffffff;
fillrgn(ls,航灯２,航灯２>ls),color0000ff;
PARTLINE(航灯２,航灯２>ls),POINTDOT,LINETHICK7,color0000ff;
PARTLINE(航灯２,航灯２>ls),POINTDOT,LINETHICK3,colorffffff;
热点:=航灯２;
上线:sma(h,21,2)*1.05,color0000ff;
IF rd>上线 and TJTS THEN DRAWTEXT(C>0,cg*1.04,'热点持续区：辨别黑马 '),LINETHICK3,color0000ff,ALIGN2;
中线:bd,colorff00ff;
下线:sma(l,21,2)*0.95,color00ffff;
股市:rd,POINTDOT,LINETHICK7,color00ff00;
PARTLINE(股市,c>0),POINTDOT,LINETHICK3,colorffffff;
life:=(ema(c,60)+ema(c,90))/2;
var1:=(2*c+h+l)/4;
snook:=ema(var1,99)*0.91;
IF c>life AND TJTS THEN DRAWTEXT(C>0,cg-1.1*j,'操作区域分析：多头区域 '),LINETHICK3,color3300ff,ALIGN2;
IF c<=life AND c>=snook AND TJTS THEN DRAWTEXT(C>0,cg-1.1*j,'操作区域分析：盘整区域 '),LINETHICK3,colorff0066,ALIGN2;
IF c<snook AND TJTS THEN DRAWTEXT(C>0,cg-1.1*j,'操作区域分析：空头区域 '),LINETHICK3,color99ff33,ALIGN2;
vVar1:=DYNAINFO(17)*REF(MA(VOL,5),1);
vVar2:=DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT;
Var3:=DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT;
hhsl:=IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,vVar1,vVar2);
hsl:=hhsl/capital*100;
IF hsl<1 AND TJTS THEN DRAWTEXT(C>0,cg-1.1*j,'个股活跃分析：绝对地量 '),LINETHICK3,color33ffcc,ALIGN2;
IF hsl>=1 and hsl<2 AND TJTS THEN DRAWTEXT(C>0,cg-1.1*j,'个股活跃分析：成交低靡 '),LINETHICK3,color33ffcc,ALIGN2;
IF hsl>=2 and hsl<3 AND TJTS THEN DRAWTEXT(C>0,cg-1.1*j,'个股活跃分析：成交温和 '),LINETHICK3,color33ffcc,ALIGN2;
IF hsl>=3 and hsl<5 AND TJTS THEN DRAWTEXT(C>0,cg-1.1*j,'个股活跃分析：成交活跃 '),LINETHICK3,color33ffcc,ALIGN2;
IF hsl>=5 and hsl<8 AND TJTS THEN DRAWTEXT(C>0,cg-1.1*j,'个股活跃分析：成交带量 '),LINETHICK3,color33ffcc,ALIGN2;
IF hsl>=8 and hsl<15 AND TJTS THEN DRAWTEXT(C>0,cg-1.1*j,'个股活跃分析：成交放量 '),LINETHICK3,color33ffcc,ALIGN2;
IF hsl>=15 and hsl<25 AND TJTS THEN DRAWTEXT(C>0,cg-1.1*j,'个股活跃分析：成交巨量 '),LINETHICK3,color33ffcc,ALIGN2;
IF hsl>25 AND TJTS THEN DRAWTEXT(C>0,cg-1.1*j,'个股活跃分析：成交怪异 '),LINETHICK3,color33ffcc,ALIGN2;
zslife:=(ema(indexc,60)+ema(indexc,90))/2;
zsbl:=indexc/zslife;
gglife:=(ema(c,60)+ema(c,90))/2;
zstb:=zsbl*gglife;
rsv:=(c-llv(l,15))/(hhv(h,15)-llv(l,15))*100;
kk:=sma(rsv,10,1);
dd:=sma(kk,5,1);
zlcm:=intpart(sma(rsv,10,1));
shcm:=intpart(sma(kk,5,1));
IF (zlcm+shcm)>50 and (zlcm+shcm)<160 AND TJTS THEN DRAWTEXT(C>0,cg-1.1*j,'精确风险系数%：'+NUMTOSTRN( (zlcm+shcm),2 )+' '),LINETHICK3,color6699cc,ALIGN2;
IF ((zlcm+shcm)<=50 or (zlcm+shcm)>=160) AND TJTS THEN DRAWTEXT(C>0,cg-1.1*j,'精确风险系数%：'+NUMTOSTRN( -(zlcm+shcm),2 )+' '),LINETHICK3,color6699cc,ALIGN2;
aa13:=ema(winner(c)*70,3);
bb13:=ema((winner(c*1.1)-winner(c*0.9))*80,3);
IF aa13>bb13 AND TJTS THEN DRAWTEXT(C>0,cg-2.1*j,'主力控盘系数%：'+NUMTOSTRN( aa13/(aa13+bb13)*100,2 )+' '),LINETHICK3,color0000ff,ALIGN2;
IF aa13<bb13 AND TJTS THEN DRAWTEXT(C>0,cg-2.1*j,'散户套牢系数%：'+NUMTOSTRN( bb13/(aa13+bb13)*100,2 )+' '),LINETHICK3,color00ff00,ALIGN2;
bs:=ema(c,21)-1+ema(v,5)/ema(v,40);
hs:=(bs-life)/life*100;
IF c>0 AND TJTS THEN DRAWTEXT(C>0,cg-3.1*j,'高潮乖离系数%：'+NUMTOSTRN(hs,2 )+' '),LINETHICK3,colorffffcc,ALIGN2;
hot:=ma(c,13);
glv:=atan(hot-ref(hot,1))*3.142*100;
IF c>0 AND TJTS THEN DRAWTEXT(C>0,cg-4.1*j,'股价倾斜系数%：'+NUMTOSTRN(glv,2 )+' '),LINETHICK3,colorff6666,ALIGN2;
IF c>0 AND TJTS THEN DRAWTEXT(C>0,cg-5.1*j,'历史价位系数％：'+NUMTOSTRN((c-llv(l,0))/(hhv(h,0)-llv(l,0))*100,2 )+' &nb
[url=http://www.70822.com/soft/sort013/sort03/down-17538.html]股市航灯主图[/url]