软件名称：[B]大资金流（副图 源码）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：28.0 KB
官方主页：Home Page
更新时间：2010-10-19 06:37:46
软件简介:
大资金流
{【SUPERVIEW大资金流向】}
DRAWTEXTABS(0,2,'《》'),COLOR0000FF;
DRAWTEXTABS(85,2,'《》'),COLORYELLOW;
板块指数:=IF(INBLOCK('工程建筑'),"991002$CLOSE",
IF(INBLOCK('电力'),"991003$CLOSE",
IF(INBLOCK('计算机'),"991004$CLOSE",
IF(INBLOCK('电子信息'),"991006$CLOSE",
IF(INBLOCK('房地产'),"991007$CLOSE",
IF(INBLOCK('纺织服装'),"991008$CLOSE",
IF(INBLOCK('钢铁'),"991009$CLOSE",
IF(INBLOCK('供水供气'),"991010$CLOSE",
IF(INBLOCK('化工化纤'),"991011$CLOSE",
IF(INBLOCK('电器'),"991014$CLOSE",
IF(INBLOCK('交通设施'),"991016$CLOSE",
IF(INBLOCK('银hang类'),"991017$CLOSE",
IF(INBLOCK('旅游酒店'),"991018$CLOSE",
IF(INBLOCK('煤炭石油'),"991019$CLOSE",
IF(INBLOCK('酿酒食品'),"991020$CLOSE",
IF(INBLOCK('农林牧渔'),"991021$CLOSE",
IF(INBLOCK('商业连锁'),"991023$CLOSE",
IF(INBLOCK('建材'),"991024$CLOSE",
IF(INBLOCK('其他行业'),"991025$CLOSE",
IF(INBLOCK('汽车类'),"991026$CLOSE",
IF(INBLOCK('机械'),"991027$CLOSE",
IF(INBLOCK('医药'),"991028$CLOSE",
IF(INBLOCK('外贸'),"991031$CLOSE",
IF(INBLOCK('教育传媒'),"991032$CLOSE",
IF(INBLOCK('仪电仪表'),"991033$CLOSE",
IF(INBLOCK('有色金属'),"991034$CLOSE",
IF(INBLOCK('造纸印刷'),"991035$CLOSE",
IF(INBLOCK('券商'),"991036$CLOSE",
IF(INBLOCK('电力设备'),"991037$CLOSE",
IF(INBLOCK('通信'),"991135$CLOSE",
IF(INBLOCK('运输物流'),"991136$CLOSE",
IF(INBLOCK('保险'),"991255$CLOSE",0)
)))))))))))))))))))))))))))))));
板块涨幅:=SUM(板块指数/REF(板块指数,1)*100-100,1);
板块:=IFS(INBLOCK('工程建筑'),'工程建筑',
IFS(INBLOCK('电力'),'电力',
IFS(INBLOCK('计算机'),'计算机',
IFS(INBLOCK('电子信息'),'电子信息',
IFS(INBLOCK('房地产'),'房地产',
IFS(INBLOCK('纺织服装'),'纺织服装',
IFS(INBLOCK('钢铁'),'钢铁',
IFS(INBLOCK('供水供气'),'供水供气',
IFS(INBLOCK('化工化纤'),'化工化纤',
IFS(INBLOCK('电器'),'电器',
IFS(INBLOCK('交通设施'),'交通设施',
IFS(INBLOCK('银hang类'),'银hang类',
IFS(INBLOCK('旅游酒店'),'旅游酒店',
IFS(INBLOCK('煤炭石油'),'煤炭石油',
IFS(INBLOCK('酿酒食品'),'酿酒食品',
IFS(INBLOCK('农林牧渔'),'农林牧渔',
IFS(INBLOCK('商业连锁'),'商业连锁',
IFS(INBLOCK('建材'),'建材',
IFS(INBLOCK('其他行业'),'其他行业',
IFS(INBLOCK('汽车类'),'汽车类',
IFS(INBLOCK('机械'),'机械',
IFS(INBLOCK('医药'),'医药',
IFS(INBLOCK('外贸'),'外贸',
IFS(INBLOCK('教育传媒'),'教育传媒',
IFS(INBLOCK('仪电仪表'),'仪电仪表',
IFS(INBLOCK('有色金属'),'有色金属',
IFS(INBLOCK('造纸印刷'),'造纸印刷',
IFS(INBLOCK('券商'),'券商',
IFS(INBLOCK('电力设备'),'电力设备',
IFS(INBLOCK('通信'),'通信',
IFS(INBLOCK('运输物流'),'运输物流',
IFS(INBLOCK('保险'),'保险','')
)))))))))))))))))))))))))))))));
DRAWTEXTABS(0,38,'大盘指数：'+INDEXC+''),LINETHICK0,COLORFF00FF;
DRAWTEXTABS(0,52,'大盘涨跌：'+INDEXC-REF(INDEXC,1)),LINETHICK0,PRECIS2,COLORFFFF00;
DRAWTEXTABS(225,38,'大盘涨幅：'+((INDEXC-REF(INDEXC,1))/REF(INDEXC,1)*100)+'%'),LINETHICK0,PRECIS2,COLORred;
DRAWTEXTABS(0,66,'上涨家数：'+NUMTOSTRN(DYNAINFO(69),0)),COLOR0000FF;
DRAWTEXTABS(0,80,'下跌家数：'+NUMTOSTRN(DYNAINFO(70),0)),COLOR00FF00;
DRAWTEXTABS(0,94,'平盘家数：'+NUMTOSTRN(DYNAINFO(71),0)),COLORFFFFFF;
DRAWTEXTABS(0,112,'股票代码： '+STKLABEL+''),LINETHICK1,COLORFFFF00;
DRAWTEXTABS(0,126,'股票名称：'+STKNAME+''),LINETHICK1,COLORFFFF00;
DRAWTEXTABS(0,140,'所属板块：'+ 板块),COLOR00FFFF;
DRAWTEXTABS(0,154,'板块指数：'+ 板块指数),PRECIS2,COLOR00FFFF;
DRAWTEXTABS(0,168,'板块涨跌：'+ 板块指数-REF(板块指数,1)),PRECIS2,COLOR00FFFF;
DRAWTEXTABS(342,38,'板块涨幅：'+ 板块涨幅+'%'),PRECIS2,COLOR00FFFF;
DRAWTEXTABS(0,185,'最新股价：'+DYNAINFO(7)+'元'),COLORFF00FF;
DRAWTEXTABS(460,38,'个股涨幅：'+DYNAINFO(14)*100+'%'),COLORFF00FF,PRECIS2;
DRAWTEXTABS(0,199,'今日涨跌：'+C-REF(C,1)+'元'),COLORFFFF00,PRECIS2;
DRAWTEXTABS(0,213,'换 手 率：'+VOL/CAPITAL* 100),COLORFF00FF,PRECIS2;
DRAWTEXTABS(0,257,'历史最高价：'+HHV(HIGH,0)),Colorred,LINETHICK0;
DRAWTEXTABS(0,272,'历史最低价：'+LLV(LOW,0)),COLOR00FF00,LINETHICK0;
TODAY:=("DDY.DDY")=0; {判断是否有正版数据}
{叠加大盘线}
{TC:=STRCMP(STRLEFT(MARKETLABEL,2),'SZ');
DPSH:="SH000001$CLOSE"/HHV(STKINDI('SH000001','分超引用.昨收#DAY'),0);
DPSZ:="399001$CLOSE"/HHV(STKINDI('399001','分超引用.昨收#DAY'),0);
DPC:=IF(INBLOCK('A股板块'),DYNAINFO(3)*IF(TC=0,DPSZ,DPSH),C);
POLYLINE(C>0,DPC),COLORFF00FF,LINETHICK2,LAYER0;}
{DRAWTEXTABS(90,5,TC);}
{分时超赢}
HS:=vol/capital;
ZLB:=IF(TODAY,"DDEDATA@BIGORDER"(1,2),BIGORDER(1,2));
ZLS:=IF(TODAY,"DDEDATA@BIGORDER"(2,2),BIGORDER(2,2));
TDB:=IF(TODAY,"DDEDATA@BIGORDER"(1,3),bigorder(1,3));
TDS:=IF(TODAY,"DDEDATA@BIGORDER"(2,3),bigorder(2,3));
DDB:=IF(TODAY,"DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3),bigorder(1,2)-bigorder(1,3));
DDS:=IF(TODAY,"DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3),bigorder(2,2)-bigorder(2,3));
ZDB:=IF(TODAY,"DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(1,2),bigorder(1,1)-bigorder(1,2));
ZDS:=IF(TODAY,"DDEDATA@BIGORDER"(2,1)-"DDEDATA@BIGORDER"(2,2),bigorder(2,1)-bigorder(2,2));
XDB:=IF(TODAY,1-"DDEDATA@BIGORDER"(1,1),1-bigorder(1,1));
XDS:=IF(TODAY,1-"DDEDATA@BIGORDER"(2,1),1-bigorder(2,1));
WPB:=sum(if(DYNAINFO(23)*close,DYNAINFO(23),0),0)*0.003906;
NPS:=sum(if(DYNAINFO(22)*close,DYNAINFO(22),0),0)*0.003906;
主动率:=(WPB-NPS)/(NPS+WPB)*100;
单数比:=IF(DYNAINFO(92)/DYNAINFO(91) ,DYNAINFO(92)/DYNAINFO(91) ,0 );
TCL1:=IF(TODAY ,(DDB+TDB ) ,(DYNAINFO(95)+DYNAINFO(94)));
TCL2:=IF(TODAY,(TDS+DDS) ,(DYNAINFO(98)+DYNAINFO(97)) );
{通吃率:=(TCL1-TCL2)*VOL/VOL*100;}
DRAWTEXTABS(0,227,'主 动 率：'+ NUMTOSTRN(主动率,2)),COLOR00FFFF;
DRAWTEXTABS(0,242,'单 数 比：'+ NUMTOSTRN(单数比,2)),COLOR00FFFF;
{DRAWTEXTABS(0,136,'通 吃 率：'+ NUMTOSTRN(通吃率,2)),COLOR00FFFF;}
TDLR:=TDB*AMOUNT/10000;
TDLC:=TDS*AMOUNT/10000;
CJ:=TDLR-TDLC{,COLORFF00FF,LINETHICK0,PRECIS2};
超增:=SUM(TDB,1)-SUM(TDS,1){,COLORFF00FF,LINETHICK0,PRECIS2};
CD:=TDB-TDS;
超大:=HS*CD*100;
CDCC:= 25+Sum(超大,0);
DDLR:=DDB*AMOUNT/10000;
DDLC:=DDS*AMOUNT/10000;
DJ:=DDLR-DDLC{,COLOR00FF00,LINETHICK0,PREC
[url=http://www.70822.com/soft/sort013/sort03/down-26197.html]大资金流（副图 源码）[/url]