大智慧板块强弱选股指标公式源码

大智慧板块强弱选股指标公式源码

源码正文：

INPUT:N(9,1,999){XG51};
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)))))))))))))))))))))))))))))))){XG51};
个股强弱:SLOPE(C,N)/ma(C,N)*100,ColorFFFF00,LINETHICK0{XG51};
板块强弱:SLOPE(ZSC,N)/MA(ZSC,N)*100,COLORBLUE,LINETHICK0{XG51};
大盘强弱:SLOPE(INDEXC,N)/MA(INDEXC,N)*100,colorwhite,LINETHICK0{XG51};
DRAWTEXTAbs(5,5,'选股无忧网 www.xg51.cn'),linethick1,COLOR00EEff{XG51};
板块:=stRLEFT(BKNAME,STRFIND(BKNAME,',',1)-1){XG51};
DRAWTEXTABS(5,5,'板块强弱 = ('+' '+板块+'指数 )'),COLORBLUE{XG51};
个板差值:=个股强弱-板块强弱{XG51};
个股大盘差:(个股强弱-大盘强弱),COLORBLUE,LINETHICK0{XG51};
aa:=个板差值>0 and 个股大盘差>0{XG51};
bb:=not(aa) and not(个股大盘差<0){XG51};
cc:=个股大盘差<0{XG51};
STICKLINE(bb,0,个股大盘差,8.10,0),colorwhite{XG51};
STICKLINE(aa>0,0,个股大盘差,8.10,0),colorff00ff,layer7{XG51};
STICKLINE(个股大盘差<0,0,个股大盘差,8.10,0),colorgreen{XG51};
STICKLINE(个股大盘差>2,0,个股大盘差,8.10,0),COLOR0000CC{XG51};
连强排序:barslast(not(aa) ),ColorFFFF00,LINETHICK0{XG51};
极强排序:count(个股大盘差>2,20),LINETHICK0{XG51};
2,colorwhite{XG51};
-2,ColorFFFF00{XG51};
DRAWGBKLAST(close>0,STRIP(RGB(0,128,128),RGB(25,25,112),0)){X^G_5_1^C^N^{};