当前位置：分析家公式网 → 股票公式 → 大智慧L2公式 → 一键转帖：F行业IC－－仿指南针行业IC
软件名称：[B]F行业IC－－仿指南针行业IC[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：解密版
软件大小：11.0 KB
官方主页：Home Page
更新时间：2009-07-19 20:33:07
软件简介:
F行业IC
INPUT:N(13,1,999);
ZSC:=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))))))))))))))))))))))))))))))));
ZSO:=IF(INBLOCK('工程建筑'),"991002$OPEN",IF(INBLOCK('电力'),"991003$OPEN",IF(INBLOCK('计算机'),"991004$OPEN",
IF(INBLOCK('电子信息'),"991006$OPEN",IF(INBLOCK('房地产'),"991007$OPEN",IF(INBLOCK('纺织服装'),"991008$OPEN",
IF(INBLOCK('钢铁'),"991009$OPEN",IF(INBLOCK('供水供气'),"991010$OPEN",IF(INBLOCK('化工化纤'),"991011$OPEN",
IF(INBLOCK('电器'),"991014$OPEN",IF(INBLOCK('交通设施'),"991016$OPEN",IF(INBLOCK('银hang类'),"991017$OPEN",
IF(INBLOCK('旅游酒店'),"991018$OPEN",IF(INBLOCK('煤炭石油'),"991019$OPEN",IF(INBLOCK('酿酒食品'),"991020$OPEN",
IF(INBLOCK('农林牧渔'),"991021$OPEN",IF(INBLOCK('商业连锁'),"991023$OPEN",IF(INBLOCK('建材'),"991024$OPEN",
IF(INBLOCK('其他行业'),"991025$OPEN",IF(INBLOCK('汽车类'),"991026$OPEN",IF(INBLOCK('机械'),"991027$OPEN",
IF(INBLOCK('医药'),"991028$OPEN",IF(INBLOCK('外贸'),"991031$OPEN",IF(INBLOCK('教育传媒'),"991032$OPEN",
IF(INBLOCK('仪电仪表'),"991033$OPEN",IF(INBLOCK('有色金属'),"991034$OPEN",IF(INBLOCK('造纸印刷'),"991035$OPEN",
IF(INBLOCK('券商'),"991036$OPEN",IF(INBLOCK('电力设备'),"991037$OPEN",IF(INBLOCK('通信'),"991135$OPEN",
IF(INBLOCK('运输物流'),"991136$OPEN",IF(INBLOCK('保险'),"991255$OPEN",0))))))))))))))))))))))))))))))));
DPZD:=ZSC/ZSO*100-100;
ZD:=C/O*100-100;
领涨系数:SUM(IF(ZD>0,ZD,0),N)/SUM(ABS(DPZD),N)*100,Color5050FF;
领跌系数:SUM(IF(ZD<=0,ABS(ZD),0),N)/SUM(ABS(DPZD),N)*100,ColorD2E141;
板块:=STRLEFT(BKNAME,STRFIND(BKNAME,',',1)-1);
DRAWTEXTABS(5,5,'所属 ('+' '+板块+'指数 )'),COLORYELLOW;
INPUT:N(13,1,999);
ZSC:=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))))))))))))))))))))))))))))))));
ZSO:=IF(INBLOCK('工程建筑'),"991002$OPEN",IF(INBLOCK('电力'),"991003$OPEN",IF(INBLOCK('计算机'),"991004$OPEN",
IF(INBLOCK('电子信息'),"991006$OPEN",IF(INBLOCK('房地产'),"991007$OPEN",IF(INBLOCK('纺织服装'),"991008$OPEN",
IF(INBLOCK('钢铁'),"991009$OPEN",IF(INBLOCK('供水供气'),"991010$OPEN",IF(INBLOCK('化工化纤'),"991011$OPEN",
IF(INBLOCK('电器'),"991014$OPEN",IF(INBLOCK('交通设施'),"991016$OPEN",IF(INBLOCK('银hang类'),"991017$OPEN",
IF(INBLOCK('旅游酒店'),"991018$OPEN",IF(INBLOCK('煤炭石油'),"991019$OPEN",IF(INBLOCK('酿酒食品'),"991020$OPEN",
IF(INBLOCK('农林牧渔'),"991021$OPEN",IF(INBLOCK('商业连锁'),"991023$OPEN",IF(INBLOCK('建材'),"991024$OPEN",
IF(INBLOCK('其他行业'),"991025$OPEN",IF(INBLOCK('汽车类'),"991026$OPEN",IF(INBLOCK('机械'),"991027$OPEN",
IF(INBLOCK('医药'),"991028$OPEN",IF(INBLOCK('外贸'),"991031$OPEN",IF(INBLOCK('教育传媒'),"991032$OPEN",
IF(INBLOCK('仪电仪表'),"991033$OPEN",IF(INBLOCK('有色金属'),"991034$OPEN",IF(INBLOCK('造纸印刷'),"991035$OPEN",
IF(INBLOCK('券商'),"991036$OPEN",IF(INBLOCK('电力设备'),"991037$OPEN",IF(INBLOCK('通信'),"991135$OPEN",
IF(INBLOCK('运输物流'),"991136$OPEN",IF(INBLOCK('保险'),"991255$OPEN",0))))))))))))))))))))))))))))))));
DPZD:=ZSC/ZSO*100-100;
ZD:=C/O*100-100;
领涨系数:SUM(IF(ZD>0,ZD,0),N)/SUM(ABS(DPZD),N)*100,Color5050FF;
领跌系数:SUM(IF(ZD<=0,ABS(ZD),0),N)/SUM(ABS(DPZD),N)*100,ColorD2E141;
板块:=STRLEFT(BKNAME,STRFIND(BKNAME,',',1)-1);
DRAWTEXTABS(5,5,'所属 ('+' '+板块+'指数 )'),COLORYELLOW;
[url=http://www.70822.com/soft/sort013/sort03/down-10943.html]F行业IC－－仿指南针行业IC[/url]