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('银行类'), 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('银行类'), 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;
