大智慧板块监控的新写法【板块监控】完整版源代码

有同学问到大智慧板块监控有没有新的写法，以前的写法每取一个指标数值都需要一大段判断，太费资源。确实，指标技术发展到了今天，理应有更为简洁方便的写法，只是大智慧能用于板块的函数实在少得可怜。这里提供一个全新的思路，语句作了详细说明，方便大家自创指标。
 
【说明】 可用于A股任意个股，公式提取的是行业板块，自选股设置为系统默认（自选股、自选股1～8）
 
{新板块监控}
 {利用BKNAME函数取得[行业板块]名称字符串,自选股～自选股8}
 X:=MAX(STRFIND(BKNAME,'自选股1',1),STRFIND(BKNAME,'自选股2',1),STRFIND(BKNAME,'自选股3',1),STRFIND(BKNAME,'自选股4',1),STRFIND(BKNAME,'自选股5',1),STRFIND(BKNAME,'自选股6',1),STRFIND(BKNAME,'自选股7',1),STRFIND(BKNAME,'自选股8',1));
 X1:=(STRFIND(BKNAME,'自选股',1)=1)*8;
 XZ:=IF(STRFIND(STRMID(BKNAME,X+X1,5),',',1)=5,5,IF(STRFIND(STRMID(BKNAME,X+X1,7),',',1)=7,7,9));
 BK:=STRMID(BKNAME,X+X1,XZ-1);{公式在线网提供：.cn}
 {根据板块字符串比较条件，取得不同[行业板块]代码字符串}
 BKDM:=IFS(STRCMP(BK,'工程建筑')=0,'991002',IFS(STRCMP(BK,'电力')=0,'991003',
 IFS(STRCMP(BK,'计算机')=0,'991004',IFS(STRCMP(BK,'电子信息')=0,'991006',
 IFS(STRCMP(BK,'房地产')=0,'991007',IFS(STRCMP(BK,'纺织服装')=0,'991008',
 IFS(STRCMP(BK,'钢铁')=0,'991009',IFS(STRCMP(BK,'供水供气')=0,'991010',
 IFS(STRCMP(BK,'化工化纤')=0,'991011',IFS(STRCMP(BK,'电器')=0,'991014',
 IFS(STRCMP(BK,'交通设施')=0,'991016',IFS(STRCMP(BK,'银行类')=0,'991017',
 IFS(STRCMP(BK,'旅游酒店')=0,'991018',IFS(STRCMP(BK,'煤炭石油')=0,'991019',
 IFS(STRCMP(BK,'酿酒食品')=0,'991020',IFS(STRCMP(BK,'农林牧渔')=0,'991021',
 IFS(STRCMP(BK,'商业连锁')=0,'991023',IFS(STRCMP(BK,'建材')=0,'991024',
 IFS(STRCMP(BK,'其他行业')=0,'991025',IFS(STRCMP(BK,'交通工具')=0,'991026',
 IFS(STRCMP(BK,'机械')=0,'991027',IFS(STRCMP(BK,'医药')=0,'991028',
 IFS(STRCMP(BK,'外贸')=0,'991031',IFS(STRCMP(BK,'教育传媒')=0,'991032',
 IFS(STRCMP(BK,'仪电仪表')=0,'991033',IFS(STRCMP(BK,'有色金属')=0,'991034',
 IFS(STRCMP(BK,'造纸印刷')=0,'991035',IFS(STRCMP(BK,'券商')=0,'991036',
 IFS(STRCMP(BK,'通信')=0,'991135',IFS(STRCMP(BK,'运输物流')=0,'991136',
 IFS(STRCMP(BK,'保险')=0,'991255','')))))))))))))))))))))))))))))));
 {引用相应板块的指标数值，举例如下：}
 板块指数:STKINDI(BKDM,'MA.MA1',1),LINETHICK0,PRECIS2;
 板块涨幅:STKINDI(BKDM,'涨幅.'),LINETHICK0,PRECIS2;
 板块DDX:STKINDI(BKDM,'DDX.DDX'),LINETHICK0;
 {.......这里可以方便取得任意系统或自定义引用公式的指标数值}
 
{下面是文字部分的应用实例，可根据需要修改成线型什么的}
 大盘涨幅:INDEXC/REF(INDEXC,1)*100-100,LINETHICK0,PRECIS2;
 个股涨幅:C/REF(C,1)*100-100,LINETHICK0,PRECIS2;
 DRAWTEXTABS(5,5,'板块信息：'+BK+'('+BKDM+') 涨幅'+NUMTOSTRN(板块涨幅,2)+'%'),COLORDDDDDD;
 DRAWTEXTABS(240,5,IFS(板块涨幅>大盘涨幅,'强于大盘','')),COLOR0000FF;
 DRAWTEXTABS(240,5,IFS(板块涨幅<大盘涨幅,'弱于大盘','')),COLOR00FF00;
 DRAWTEXTABS(5,20,'个股信息：'+STKNAME+'('+STKLABEL+') 涨幅'+NUMTOSTRN(个股涨幅,2)+'%'),COLORDDDDDD;
 DRAWTEXTABS(240,20,IFS(个股涨幅>大盘涨幅,'强于大盘','')),COLOR0000FF;
 DRAWTEXTABS(240,20,IFS(个股涨幅<大盘涨幅,'弱于大盘','')),COLOR00FF00;
 DRAWTEXTABS(300,20,IFS(个股涨幅>板块涨幅,'强于板块','')),COLOR0000FF;
 DRAWTEXTABS(300,20,IFS(个股涨幅<板块涨幅,'弱于板块','')),COLOR00FF00;