一发千钧作品

上两个版本都是在系统板块指数框架下制作的，有利也有弊。
利--不需要其它数据配合、只要是飞狐软件就都可以使用。而且改成通达信指标时不用替换板块代码。
弊--反映的板块信息不够全面，证监会板块划分的比较宽泛不细致。
因此，就有很多朋友觉得不过瘾，不能反映大多数板块情况。
下面这个指标就是建立在‘千钧个人制作的板块指数’状态下的。
注意：
1、你必须下载使用帖子中的板块指数，或者你自己有能力的，可以分别把你的板块指数代码修改的与指标对应，否则不能正常运行此指标。
2、没有下载我的板块指数的朋友，请不要安装这个指标，因为它无法在你的软件中运行。

图示：

公式文件：板块全息1.alg
板块文件：StkBlock.rar
在附件里

源码：
V1:="AA01$VOL"/ref(ma("AA01$VOL",5),1);V2:=("AA02$VOL")/ref(ma("AA02$VOL",5),1);
V3:=("AA03$VOL")/ref(ma("AA03$VOL",5),1);V4:=("AA04$VOL")/ref(ma("AA04$VOL",5),1);
V5:=("AA05$VOL")/ref(ma("AA05$VOL",5),1);V6:=("AA06$VOL")/ref(ma("AA06$VOL",5),1);
V7:=("AA07$VOL")/ref(ma("AA07$VOL",5),1);V8:=("AA08$VOL")/ref(ma("AA08$VOL",5),1);
V9:=("AA09$VOL")/ref(ma("AA09$VOL",5),1);V10:=("AA10$VOL")/ref(ma("AA10$VOL",5),1);
V11:=("AA11$VOL")/ref(ma("AA11$VOL",5),1);V12:=("AA12$VOL")/ref(ma("AA12$VOL",5),1);
V13:=("AA13$VOL")/ref(ma("AA13$VOL",5),1);V14:=("AA14$VOL")/ref(ma("AA14$VOL",5),1);
V15:=("AA15$VOL")/ref(ma("AA15$VOL",5),1);V16:=("AA16$VOL")/ref(ma("AA16$VOL",5),1);
V21:=("AA21$VOL")/ref(ma("AA21$VOL",5),1);V22:=("AA22$VOL")/ref(ma("AA22$VOL",5),1);
V23:=("AA23$VOL")/ref(ma("AA23$VOL",5),1);V24:=("AA24$VOL")/ref(ma("AA24$VOL",5),1);
V25:=("AA25$VOL")/ref(ma("AA25$VOL",5),1);V26:=("AA26$VOL")/ref(ma("AA26$VOL",5),1);
V27:=("AA27$VOL")/ref(ma("AA27$VOL",5),1);V28:=("AA28$VOL")/ref(ma("AA28$VOL",5),1);
V29:=("AA29$VOL")/ref(ma("AA29$VOL",5),1);V30:=("AA30$VOL")/ref(ma("AA30$VOL",5),1);
V31:=("AA31$VOL")/ref(ma("AA31$VOL",5),1);V32:=("AA35$VOL")/ref(ma("AA35$VOL",5),1);
V33:=("AA37$VOL")/ref(ma("AA37$VOL",5),1);V34:=("AA38$VOL")/ref(ma("AA38$VOL",5),1);
V35:=("AA39$VOL")/ref(ma("AA39$VOL",5),1);V36:=("AA40$VOL")/ref(ma("AA40$VOL",5),1);
V37:=("AA43$VOL")/ref(ma("AA43$VOL",5),1);V38:=("AA44$VOL")/ref(ma("AA44$VOL",5),1);
V39:=("399005$VOL")/ref(ma("399005$VOL",5),1);V40:=("399006$VOL")/ref(ma("399006$VOL",5),1);
V41:=("399314$VOL")/ref(ma("399314$VOL",5),1);V42:=("399316$VOL")/ref(ma("399316$VOL",5),1);
aa:=BLKNAME;BB:=STRLEFT(AA,STRFIND(AA,',',1)-1);K:=STKCOUNT(BB);DD:=(INDEXC/ref(INDEXC,1)-1)*100;
Z1:=("AA01$CLOSE"/ref("AA01$CLOSE",1)-1)*100;Z2:=("AA02$CLOSE"/ref("AA02$CLOSE",1)-1)*100;
Z3:=("AA03$CLOSE"/ref("AA03$CLOSE",1)-1)*100;Z4:=("AA04$CLOSE"/ref("AA04$CLOSE",1)-1)*100;
Z5:=("AA05$CLOSE"/ref("AA05$CLOSE",1)-1)*100;Z6:=("AA06$CLOSE"/ref("AA06$CLOSE",1)-1)*100;
Z7:=("AA07$CLOSE"/ref("AA07$CLOSE",1)-1)*100;Z8:=("AA08$CLOSE"/ref("AA08$CLOSE",1)-1)*100;
Z9:=("AA09$CLOSE"/ref("AA09$CLOSE",1)-1)*100;Z10:=("AA10$CLOSE"/ref("AA10$CLOSE",1)-1)*100;
Z11:=("AA11$CLOSE"/ref("AA11$CLOSE",1)-1)*100;Z12:=("AA12$CLOSE"/ref("AA12$CLOSE",1)-1)*100;
Z13:=("AA13$CLOSE"/ref("AA13$CLOSE",1)-1)*100;Z14:=("AA14$CLOSE"/ref("AA14$CLOSE",1)-1)*100;
Z15:=("AA15$CLOSE"/ref("AA15$CLOSE",1)-1)*100;Z16:=("AA16$CLOSE"/ref("AA16$CLOSE",1)-1)*100;
Z21:=("AA21$CLOSE"/ref("AA21$CLOSE",1)-1)*100;Z22:=("AA22$CLOSE"/ref("AA22$CLOSE",1)-1)*100;
Z23:=("AA23$CLOSE"/ref("AA23$CLOSE",1)-1)*100;Z24:=("AA24$CLOSE"/ref("AA24$CLOSE",1)-1)*100;
Z25:=("AA25$CLOSE"/ref("AA25$CLOSE",1)-1)*100;Z26:=("AA26$CLOSE"/ref("AA26$CLOSE",1)-1)*100;
Z27:=("AA27$CLOSE"/ref("AA27$CLOSE",1)-1)*100;Z28:=("AA28$CLOSE"/ref("AA28$CLOSE",1)-1)*100;
Z29:=("AA29$CLOSE"/ref("AA29$CLOSE",1)-1)*100;Z30:=("AA30$CLOSE"/ref("AA30$CLOSE",1)-1)*100;
Z31:=("AA31$CLOSE"/ref("AA31$CLOSE",1)-1)*100;Z32:=("AA35$CLOSE"/ref("AA35$CLOSE",1)-1)*100;
Z33:=("AA37$CLOSE"/ref("AA37$CLOSE",1)-1)*100;Z34:=("AA38$CLOSE"/ref("AA38$CLOSE",1)-1)*100;
Z35:=("AA39$CLOSE"/ref("AA39$CLOSE",1)-1)*100;Z36:=("AA40$CLOSE"/ref("AA40$CLOSE",1)-1)*100;
Z37:=("AA43$CLOSE"/ref("AA43$CLOSE",1)-1)*100;Z38:=("AA44$CLOSE"/ref("AA44$CLOSE",1)-1)*100;
Z39:=("399005$CLOSE"/ref("399005$CLOSE",1)-1)*100;Z40:=("399006$CLOSE"/ref("399006$CLOSE",1)-1)*100;
Z41:=("399314$CLOSE"/ref("399314$CLOSE",1)-1)*100;Z42:=("399316$CLOSE"/ref("399316$CLOSE",1)-1)*100;
HS3:=("399300$CLOSE"/ref("399300$CLOSE",1)-1)*100;P:=SYSPARAM(1);
STICKLINE(BARPOS=SYSPARAM(3) and Z1[p]>=0,0,Z1[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3) and Z1[p]<0,0,-Z1[p],10,0),COLOR00EE00;
STICKLINE(BARPOS=SYSPARAM(3)-7 and Z2[p]>=0,0,Z2[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-7 and Z2[p]<0,0,-Z2[p],10,0),COLOR00EE00;
STICKLINE(BARPOS=SYSPARAM(3)-14 and Z3[p]>=0,0,Z3[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-14 and Z3[p]<0,0,-Z3[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-21 and Z4[p]>=0,0,Z4[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-21 and Z4[p]<0,0,-Z4[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-28 and Z5[p]>=0,0,Z5[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-28 and Z5[p]<0,0,-Z5[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-35 and Z6[p]>=0,0,Z6[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-35 and Z6[p]<0,0,-Z6[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-42 and Z7[p]>=0,0,Z7[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-42 and Z7[p]<0,0,-Z7[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-49 and Z8[p]>=0,0,Z8[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-49 and Z8[p]<0,0,-Z8[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-56 and Z9[p]>=0,0,Z9[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-56 and Z9[p]<0,0,-Z9[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-63 and Z10[p]>=0,0,Z10[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-63 and Z10[p]<0,0,-Z10[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-70 and Z11[p]>=0,0,Z11[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-70 and Z11[p]<0,0,-Z11[p],10,0),COLOR00ee00;