板块涨跌全息图－－及时了解板块活跃度

我们在分析市场和分析股票时，总是要与其在相对应的行业板块活跃度挂钩。
这就出现这种现象：一旦发现目标，总要去看一下它所在的版块现在表现如何？
可总是得翻页查找，很不方便。
于是版块涨跌幅的全景指标自然就在脑海中浮现了，今天是周末、利用了半个小时时间做了一个小玩意。
希望它能方便你的分析和操作。
指标暂时命名为【版块全息】，因为是新弄的名字还没有想好，你可以自己按照你的意图重新命名。
总之，方便使用才是正道。

板块涨跌全息图

VAR1:=( 399139$CLOSE VAR2:=( 399190$CLOSE VAR3:=( 399132$CLOSE
VAR4:=( 399150$CLOSE VAR5:=( 399138$CLOSE VAR6:=( 399200$CLOSE
VAR7:=( 399110$CLOSE VAR8:=( 399136$CLOSE VAR9:=( 399135$CLOSE
VAR10:=( 399130$CLOSE VAR11:=( 399160$CLOSE VAR12:=( 399131$CLOSE
VAR13:=( 399137$CLOSE VAR14:=( 399140$CLOSE VAR15:=( 399210$CLOSE
VAR16:=( 399101$CLOSE VAR17:=( 399102$CLOSE VAR18:=( 399372$CLOSE
VAR19:=( 399374$CLOSE VAR20:=( 399376$CLOSE HS3:=( 399300$CLOSE
DD:=(INDEXC/ref(INDEXC,1)-1)*100;HS:=(hs3/ref(hs3,1)-1)*100;P:=SYSPARAM(1);
医药:=(VAR1/REF(VAR1,1)-1)*100;金融:=(VAR2/REF(VAR2,1)-1)*100;
纺织:=(VAR3/REF(VAR3,1)-1)*100;建筑:=(VAR4/REF(VAR4,1)-1)*100;
机械:=(VAR5/REF(VAR5,1)-1)*100;地产:=(VAR6/REF(VAR6,1)-1)*100;
农林:=(VAR7/REF(VAR7,1)-1)*100;电子:=(VAR8/REF(VAR8,1)-1)*100;
石化:=(VAR9/REF(VAR9,1)-1)*100;制造:=(VAR10/REF(VAR10,1)-1)*100;
运输:=(VAR11/REF(VAR11,1)-1)*100;食品:=(VAR12/REF(VAR12,1)-1)*100;
金属:=(VAR13/REF(VAR13,1)-1)*100;水电:=(VAR14/REF(VAR14,1)-1)*100;
服务:=(VAR15/REF(VAR15,1)-1)*100;中小:=(VAR16/REF(VAR16,1)-1)*100;
创业:=(VAR17/REF(VAR17,1)-1)*100;大盘:=(VAR18/REF(VAR18,1)-1)*100;
中盘:=(VAR19/REF(VAR19,1)-1)*100;小盘:=(VAR20/REF(VAR20,1)-1)*100;
STICKLINE(BARPOS=SYSPARAM(3) and 食品[p] =0,0,食品[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3) and 食品[p] 0,0,-食品[p],10,0),COLOR00EE00;
STICKLINE(BARPOS=SYSPARAM(3)-5 and 建筑[p] =0,0,建筑[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-5 and 建筑[p] 0,0,-建筑[p],10,0),COLOR00EE00;
STICKLINE(BARPOS=SYSPARAM(3)-10 and 纺织[p] =0,0,纺织[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-10 and 纺织[p] 0,0,-纺织[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-15 and 运输[p] =0,0,运输[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-15 and 运输[p] 0,0,-运输[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-20 and 农林[p] =0,0,农林[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-20 and 农林[p] 0,0,-农林[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-25 and 制造[p] =0,0,制造[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-25 and 制造[p] 0,0,-制造[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-30 and 电子[p] =0,0,电子[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-30 and 电子[p] 0,0,-电子[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-35 and 机械[p] =0,0,机械[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-35 and 机械[p] 0,0,-机械[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-40 and 医药[p] =0,0,医药[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-40 and 医药[p] 0,0,-医药[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-45 and 金属[p] =0,0,金属[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-45 and 金属[p] 0,0,-金属[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-50 and 石化[p] =0,0,石化[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-50 and 石化[p] 0,0,-石化[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-55 and 地产[p] =0,0,地产[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-55 and 地产[p] 0,0,-地产[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-60 and 金融[p] =0,0,金融[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-60 and 金融[p] 0,0,-金融[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-65 and 服务[p] =0,0,服务[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-65 and 服务[p] 0,0,-服务[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-70 and 水电[p] =0,0,水电[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-70 and 水电[p] 0,0,-水电[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-75 and 中小[p] =0,0,中小[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-75 and 中小[p] 0,0,-中小[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-80 and 创业[p] =0,0,创业[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-80 and 创业[p] 0,0,-创业[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-85 and 大盘[p] =0,0,大盘[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-85 and 大盘[p] 0,0,-大盘[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-90 and 中盘[p] =0,0,中盘[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-90 and 中盘[p] 0,0,-中盘[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-95 and 小盘[p] =0,0,小盘[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-95 and 小盘[p] 0,0,-小盘[p],10,0),COLOR00ee00;
DRAWTEXT(BARPOS=SYSPARAM(3),0,'食品n n'+NUMTOSTR(食品[p],2)),SHIFT1,PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-4,0,'建筑n n'+NUMTOSTR(建筑[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-9,0,'纺织n n'+NUMTOSTR(纺织[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-14,0,'运输n n'+NUMTOSTR(运输[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-19,0,'农林n n'+NUMTOSTR(农林[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-24,0,'制造n n'+NUMTOSTR(制造[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-29,0,'电子n n'+NUMTOSTR(电子[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-34,0,'机械n n'+NUMTOSTR(机械[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-39,0,'医药n n'+NUMTOSTR(医药[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-44,0,'金属n n'+NUMTOSTR(金属[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-49,0,'石化n n'+NUMTOSTR(石化[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-54,0,'地产n n'+NUMTOSTR(地产[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-59,0,'金融n n'+NUMTOSTR(金融[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-64,0,'服务n n'+NUMTOSTR(服务[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-69,0,'水电n n'+NUMTOSTR(水电[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-74,0,'中小n n'+NUMTOSTR(中小[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-79,0,'创业n n'+NUMTOSTR(创业[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-84,0,'大盘n n'+NUMTOSTR(大盘[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-89,0,'中盘n n'+NUMTOSTR(中盘[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXT(BARPOS=SYSPARAM(3)-94,0,'小盘n n'+NUMTOSTR(小盘[p],2)),PXUP68,COLORDDDDDD;
DRAWTEXTEX(c,1,10,0,'当前对应市场涨跌幅:'+NUMTOSTR(DD[p],2)+' %');
DRAWTEXTEX(c,1,10,150,'当前沪深300 涨跌幅:'+NUMTOSTR(HS[p],2)+' %');