最新公告
  • 欢迎您光临九毛八公式指标网www.9m8.cn,本站全新改版试运行,期间内容全部免费,欢迎下载!欢迎加入本站VIP
  • 大智慧板块监控的新写法【板块监控】完整版源代码

    正文概述    2024-04-12 23:00:08  

    有同学问到大智慧板块监控有没有新的写法,以前的写法每取一个指标数值都需要一大段判断,太费资源。确实,指标技术发展到了今天,理应有更为简洁方便的写法,只是大智慧能用于板块的函数实在少得可怜。这里提供一个全新的思路,语句作了详细说明,方便大家自创指标。
     
    【说明】 可用于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;
     


    九毛八公式指标,一个优质的公式指标平台!
    九毛八公式指标 » 大智慧板块监控的新写法【板块监控】完整版源代码 加入收藏