公式首页通达信公式同花顺公式大智慧公式飞狐公式组合选股改编选股悬赏互助充值中心
开启辅助访问 ✸未来函数检测广告管理设为首页收藏本站

公式指标论坛

 找回密码
 立即注册

QQ登录

只需一步，快速开始

搜索
公式指标论坛 › 首 页 ›公式指标› 飞狐公式 › 查看内容

板块全息B解盘

2022-5-25 13:42| 发布者: admin| 查看: 209| 评论: 0

板块全息B解盘
名称: 板块全息B解盘
说明: 新板块柱显,解盘涨幅资金流入
{自定义板块动量比}
V1:="AA04$VOL"/ref(ma("AA04$VOL",5),1); V2:=("AA07$VOL")/ref(ma("AA07$VOL",5),1); V3:=("AA09$VOL")/ref(ma("AA09$VOL",5),1);
V4:=("AA11$VOL")/ref(ma("AA11$VOL",5),1); V5:=("AA12$VOL")/ref(ma("AA12$VOL",5),1); V6:=("AA13$VOL")/ref(ma("AA13$VOL",5),1);
V7:=("AA14$VOL")/ref(ma("AA14$VOL",5),1); V8:=("AA17$VOL")/ref(ma("AA17$VOL",5),1); V9:=("AA18$VOL")/ref(ma("AA18$VOL",5),1);
V10:=("AA23$VOL")/ref(ma("AA23$VOL",5),1);V11:=("AA25$VOL")/ref(ma("AA25$VOL",5),1);V12:=("AA26$VOL")/ref(ma("AA26$VOL",5),1);
V13:=("AA29$VOL")/ref(ma("AA29$VOL",5),1);V14:=("AA30$VOL")/ref(ma("AA30$VOL",5),1);V15:=("AA32$VOL")/ref(ma("AA32$VOL",5),1);
V16:=("AA33$VOL")/ref(ma("AA33$VOL",5),1);V17:=("AA38$VOL")/ref(ma("AA38$VOL",5),1);V18:=("AA41$VOL")/ref(ma("AA41$VOL",5),1);
V19:=("AA44$VOL")/ref(ma("AA44$VOL",5),1);V20:=("AA45$VOL")/ref(ma("AA45$VOL",5),1);V21:=("AA46$VOL")/ref(ma("AA46$VOL",5),1);
V22:=("AA47$VOL")/ref(ma("AA47$VOL",5),1);V23:=("AA48$VOL")/ref(ma("AA48$VOL",5),1);V24:=("AA50$VOL")/ref(ma("AA50$VOL",5),1);
V25:=("AA53$VOL")/ref(ma("AA53$VOL",5),1);V26:=("AA58$VOL")/ref(ma("AA58$VOL",5),1);V27:=("AA63$VOL")/ref(ma("AA63$VOL",5),1);
V28:=("AA64$VOL")/ref(ma("AA64$VOL",5),1);V29:=("AA65$VOL")/ref(ma("AA65$VOL",5),1);V30:=("AA66$VOL")/ref(ma("AA66$VOL",5),1);
V31:=("AA73$VOL")/ref(ma("AA73$VOL",5),1);V32:=("AA74$VOL")/ref(ma("AA74$VOL",5),1);V33:=("AA78$VOL")/ref(ma("AA78$VOL",5),1);
V34:=("AA81$VOL")/ref(ma("AA81$VOL",5),1);V35:=("AA82$VOL")/ref(ma("AA82$VOL",5),1);V36:=("AA83$VOL")/ref(ma("AA83$VOL",5),1);
V37:=("AA87$VOL")/ref(ma("AA87$VOL",5),1);V38:=("AA96$VOL")/ref(ma("AA96$VOL",5),1);V39:=("AA97$VOL")/ref(ma("AA97$VOL",5),1);
V40:=("AA98$VOL")/ref(ma("AA98$VOL",5),1);V41:=("BB03$VOL")/ref(ma("BB03$VOL",5),1);V42:=("BB04$VOL")/ref(ma("BB04$VOL",5),1);
V43:=("BB06$VOL")/ref(ma("BB06$VOL",5),1);V44:=("BB33$VOL")/ref(ma("BB33$VOL",5),1);V45:=("BB76$VOL")/ref(ma("BB76$VOL",5),1);
V46:=("399005$VOL")/ref(ma("399005$VOL",5),1);V47:=("399006$VOL")/ref(ma("399006$VOL",5),1);V48:=("399314$VOL")/ref(ma("399314$VOL",5),1);
V49:=("399315$VOL")/ref(ma("399315$VOL",5),1);V50:=("399316$VOL")/ref(ma("399316$VOL",5),1);
{19自定义指数涨跌幅}
Z1:=("AA04$CLOSE"/ref("AA04$CLOSE",1)-1)*100; Z2:=("AA07$CLOSE"/ref("AA07$CLOSE",1)-1)*100; Z3:=("AA09$CLOSE"/ref("AA09$CLOSE",1)-1)*100;
Z4:=("AA11$CLOSE"/ref("AA11$CLOSE",1)-1)*100; Z5:=("AA12$CLOSE"/ref("AA12$CLOSE",1)-1)*100; Z6:=("AA13$CLOSE"/ref("AA13$CLOSE",1)-1)*100;
Z7:=("AA14$CLOSE"/ref("AA14$CLOSE",1)-1)*100; Z8:=("AA17$CLOSE"/ref("AA17$CLOSE",1)-1)*100; Z9:=("AA18$CLOSE"/ref("AA18$CLOSE",1)-1)*100;
Z10:=("AA23$CLOSE"/ref("AA23$CLOSE",1)-1)*100;Z11:=("AA25$CLOSE"/ref("AA25$CLOSE",1)-1)*100;Z12:=("AA26$CLOSE"/ref("AA26$CLOSE",1)-1)*100;
Z13:=("AA29$CLOSE"/ref("AA29$CLOSE",1)-1)*100;Z14:=("AA30$CLOSE"/ref("AA30$CLOSE",1)-1)*100;Z15:=("AA32$CLOSE"/ref("AA32$CLOSE",1)-1)*100;
Z16:=("AA33$CLOSE"/ref("AA33$CLOSE",1)-1)*100;Z17:=("AA38$CLOSE"/ref("AA38$CLOSE",1)-1)*100;Z18:=("AA41$CLOSE"/ref("AA41$CLOSE",1)-1)*100;
Z19:=("AA44$CLOSE"/ref("AA44$CLOSE",1)-1)*100;Z20:=("AA45$CLOSE"/ref("AA45$CLOSE",1)-1)*100;Z21:=("AA46$CLOSE"/ref("AA46$CLOSE",1)-1)*100;
Z22:=("AA47$CLOSE"/ref("AA47$CLOSE",1)-1)*100;Z23:=("AA48$CLOSE"/ref("AA48$CLOSE",1)-1)*100;Z24:=("AA50$CLOSE"/ref("AA50$CLOSE",1)-1)*100;
Z25:=("AA53$CLOSE"/ref("AA53$CLOSE",1)-1)*100;Z26:=("AA58$CLOSE"/ref("AA58$CLOSE",1)-1)*100;Z27:=("AA63$CLOSE"/ref("AA63$CLOSE",1)-1)*100;
Z28:=("AA64$CLOSE"/ref("AA64$CLOSE",1)-1)*100;Z29:=("AA65$CLOSE"/ref("AA65$CLOSE",1)-1)*100;Z30:=("AA66$CLOSE"/ref("AA66$CLOSE",1)-1)*100;
Z31:=("AA73$CLOSE"/ref("AA73$CLOSE",1)-1)*100;Z32:=("AA74$CLOSE"/ref("AA74$CLOSE",1)-1)*100;Z33:=("AA78$CLOSE"/ref("AA78$CLOSE",1)-1)*100;
Z34:=("AA81$CLOSE"/ref("AA81$CLOSE",1)-1)*100;Z35:=("AA82$CLOSE"/ref("AA82$CLOSE",1)-1)*100;Z36:=("AA83$CLOSE"/ref("AA83$CLOSE",1)-1)*100;
Z37:=("AA87$CLOSE"/ref("AA87$CLOSE",1)-1)*100;Z38:=("AA96$CLOSE"/ref("AA96$CLOSE",1)-1)*100;Z39:=("AA97$CLOSE"/ref("AA97$CLOSE",1)-1)*100;
Z40:=("AA98$CLOSE"/ref("AA98$CLOSE",1)-1)*100;Z41:=("BB03$CLOSE"/ref("BB03$CLOSE",1)-1)*100;Z42:=("BB04$CLOSE"/ref("BB04$CLOSE",1)-1)*100;
Z43:=("BB06$CLOSE"/ref("BB06$CLOSE",1)-1)*100;Z44:=("BB33$CLOSE"/ref("BB33$CLOSE",1)-1)*100;Z45:=("BB76$CLOSE"/ref("BB76$CLOSE",1)-1)*100;
Z46:=("399005$CLOSE"/ref("399005$CLOSE",1)-1)*100;Z47:=("399006$CLOSE"/ref("399006$CLOSE",1)-1)*100;
Z48:=("399314$CLOSE"/ref("399314$CLOSE",1)-1)*100;Z49:=("399315$CLOSE"/ref("399315$CLOSE",1)-1)*100;
Z50:=("399316$CLOSE"/ref("399316$CLOSE",1)-1)*100;
{}
WV:=MAX(V1,MAX(V2,MAX(V3,MAX(V4,MAX(V5,MAX(V6,MAX(V7,MAX(V8,MAX(V9,MAX(V10,MAX(V11,MAX(V12,MAX(V13,MAX(V14,MAX(V15,MAX(V16,MAX(V17,
MAX(V18,MAX(V19,MAX(V20,MAX(V21,MAX(V22,MAX(V23,MAX(V24,V25))))))))))))))))))))))));
WZ:=MAX(Z1,MAX(Z2,MAX(Z3,MAX(Z4,MAX(Z5,MAX(Z6,MAX(Z7,MAX(Z8,MAX(Z9,MAX(Z10,MAX(Z11,MAX(Z12,MAX(Z13,MAX(Z14,MAX(Z15,MAX(Z16,MAX(Z17,
MAX(Z18,MAX(Z19,MAX(Z20,MAX(Z21,MAX(Z22,MAX(Z23,MAX(Z24,Z25))))))))))))))))))))))));
WZ2:=MIN(Z1,MIN(Z2,MIN(Z3,MIN(Z4,MIN(Z5,MIN(Z6,MIN(Z7,MIN(Z8,MIN(Z9,MIN(Z10,MIN(Z11,MIN(Z12,MIN(Z13,MIN(Z14,MIN(Z15,MIN(Z16,MIN(Z17,
MIN(Z18,MIN(Z19,MIN(Z20,MIN(Z21,MIN(Z22,MIN(Z23,MIN(Z24,Z25))))))))))))))))))))))));
{} P:=SYSPARAM(1);
ZMAX:=MAX(WZ[p],ABS(WZ2[p])); ZX:=if(WV[p]-ZMAX/2>0,WV[p],ZMAX/2); X:=ZX+0.1;//控制二楼柱高起始位置.
WVb:=MAX(V26,MAX(V27,MAX(V28,MAX(V29,MAX(V30,MAX(V31,MAX(V32,MAX(V33,MAX(V34,MAX(V35,MAX(V36,MAX(V37,MAX(V38,MAX(V39,MAX(V40,MAX(V41,
MAX(V42,MAX(V43,MAX(V44,MAX(V45,MAX(V46,MAX(V47,MAX(V48,MAX(V49,V50))))))))))))))))))))))));
WZb:=MAX(Z26,MAX(Z27,MAX(Z28,MAX(Z29,MAX(Z30,MAX(Z31,MAX(Z32,MAX(Z33,MAX(Z34,MAX(Z35,MAX(Z36,MAX(Z37,MAX(Z38,MAX(Z39,MAX(Z40,MAX(Z41,
MAX(Z42,MAX(Z43,MAX(Z44,MAX(Z45,MAX(Z46,MAX(Z47,MAX(Z48,MAX(Z49,Z50))))))))))))))))))))))));
WZb2:=MIN(Z26,MIN(Z27,MIN(Z28,MIN(Z29,MIN(Z30,MIN(Z31,MIN(Z32,MIN(Z33,MIN(Z34,MIN(Z35,MIN(Z36,MIN(Z37,MIN(Z38,MIN(Z39,MIN(Z40,MIN(Z41,
MIN(Z42,MIN(Z43,MIN(Z44,MIN(Z45,MIN(Z46,MIN(Z47,MIN(Z48,MIN(Z49,Z50))))))))))))))))))))))));
ZBMAX:=MAX(WZb[p],ABS(WZb2[p])); ZbX:=if(WVb[p]-ZBMAX/2>0,WVb[p],ZBMAX/2); Z:ZbX+X+0.25,PRECISION2,COLORBLACK;//控制二楼柱高顶距.
{} w:=BARPOS; q:=SYSPARAM(3);
STICKLINE(w=q and Z1[p]>=0,0, Z1[p]/2,10,0),COLOR0000AA; STICKLINE(w=q and Z1[p]<0,0,-Z1[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-7 and Z2[p]>=0,0, Z2[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-7 and Z2[p]<0,0,-Z2[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-14 and Z3[p]>=0,0, Z3[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-14 and Z3[p]<0,0,-Z3[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-21 and Z4[p]>=0,0, Z4[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-21 and Z4[p]<0,0,-Z4[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-28 and Z5[p]>=0,0, Z5[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-28 and Z5[p]<0,0,-Z5[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-35 and Z6[p]>=0,0, Z6[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-35 and Z6[p]<0,0,-Z6[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-42 and Z7[p]>=0,0, Z7[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-42 and Z7[p]<0,0,-Z7[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-49 and Z8[p]>=0,0, Z8[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-49 and Z8[p]<0,0,-Z8[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-56 and Z9[p]>=0,0, Z9[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-56 and Z9[p]<0,0,-Z9[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-63 and Z10[p]>=0,0, Z10[p]/2,10,0),COLOR0000AA;STICKLINE(w=q-63 and Z10[p]<0,0,-Z10[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-70 and Z11[p]>=0,0, Z11[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-70 and Z11[p]<0,0,-Z11[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-77 and Z12[p]>=0,0, Z12[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-77 and Z12[p]<0,0,-Z12[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-84 and Z13[p]>=0,0, Z13[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-84 and Z13[p]<0,0,-Z13[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-91 and Z14[p]>=0,0, Z14[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-91 and Z14[p]<0,0,-Z14[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-98 and Z15[p]>=0,0, Z15[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-98 and Z15[p]<0,0,-Z15[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-105 and Z16[p]>=0,0, Z16[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-105 and Z16[p]<0,0,-Z16[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-112 and Z17[p]>=0,0, Z17[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-112 and Z17[p]<0,0,-Z17[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-119 and Z18[p]>=0,0, Z18[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-119 and Z18[p]<0,0,-Z18[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-126 and Z19[p]>=0,0, Z19[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-126 and Z19[p]<0,0,-Z19[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-133 and Z20[p]>=0,0, Z20[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-133 and Z20[p]<0,0,-Z20[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-140 and Z21[p]>=0,0, Z21[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-140 and Z21[p]<0,0,-Z21[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-147 and Z22[p]>=0,0, Z22[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-147 and Z22[p]<0,0,-Z22[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-154 and Z23[p]>=0,0, Z23[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-154 and Z23[p]<0,0,-Z23[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-161 and Z24[p]>=0,0, Z24[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-161 and Z24[p]<0,0,-Z24[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-168 and Z25[p]>=0,0, Z25[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-168 and Z25[p]<0,0,-Z25[p]/2,10,0),COLOR00AA00;
{}
STICKLINE(w=q and Z26[p]>=0,X,X+Z26[p]/2,10,0),COLOR0000AA;STICKLINE(w=q and Z26[p]<0,X,X-Z26[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-7 and Z27[p]>=0,X,X+Z27[p]/2,10,0),COLOR0000AA;STICKLINE(w=q-7 and Z27[p]<0,X,X-Z27[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-14 and Z28[p]>=0,X,X+Z28[p]/2,10,0),COLOR0000AA;STICKLINE(w=q-14 and Z28[p]<0,X,X-Z28[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-21 and Z29[p]>=0,X,X+Z29[p]/2,10,0),COLOR0000AA;STICKLINE(w=q-21 and Z29[p]<0,X,X-Z29[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-28 and Z30[p]>=0,X,X+Z30[p]/2,10,0),COLOR0000AA;STICKLINE(w=q-28 and Z30[p]<0,X,X-Z30[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-35 and Z31[p]>=0,X,X+Z31[p]/2,10,0),COLOR0000AA;STICKLINE(w=q-35 and Z31[p]<0,X,X-Z31[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-42 and Z32[p]>=0,X,X+Z32[p]/2,10,0),COLOR0000AA;STICKLINE(w=q-42 and Z32[p]<0,X,X-Z32[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-49 and Z33[p]>=0,X,X+Z33[p]/2,10,0),COLOR0000AA;STICKLINE(w=q-49 and Z33[p]<0,X,X-Z33[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-56 and Z34[p]>=0,X,X+Z34[p]/2,10,0),COLOR0000AA;STICKLINE(w=q-56 and Z34[p]<0,X,X-Z34[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-63 and Z35[p]>=0,X,X+Z35[p]/2,10,0),COLOR0000AA;STICKLINE(w=q-63 and Z35[p]<0,X,X-Z35[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-70 and Z36[p]>=0,X,X+Z36[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-70 and Z36[p]<0,X,X-Z36[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-77 and Z37[p]>=0,X,X+Z37[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-77 and Z37[p]<0,X,X-Z37[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-84 and Z38[p]>=0,X,X+Z38[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-84 and Z38[p]<0,X,X-Z38[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-91 and Z39[p]>=0,X,X+Z39[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-91 and Z39[p]<0,X,X-Z39[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-98 and Z40[p]>=0,X,X+Z40[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-98 and Z40[p]<0,X,X-Z40[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-105 and Z41[p]>=0,X,X+Z41[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-105 and Z41[p]<0,X,X-Z41[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-112 and Z42[p]>=0,X,X+Z42[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-112 and Z42[p]<0,X,X-Z42[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-119 and Z43[p]>=0,X,X+Z43[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-119 and Z43[p]<0,X,X-Z43[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-126 and Z44[p]>=0,X,X+Z44[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-126 and Z44[p]<0,X,X-Z44[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-133 and Z45[p]>=0,X,X+Z45[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-133 and Z45[p]<0,X,X-Z45[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-140 and Z46[p]>=0,X,X+Z46[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-140 and Z46[p]<0,X,X-Z46[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-147 and Z47[p]>=0,X,X+Z47[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-147 and Z47[p]<0,X,X-Z47[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-154 and Z48[p]>=0,X,X+Z48[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-154 and Z48[p]<0,X,X-Z48[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-161 and Z49[p]>=0,X,X+Z49[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-161 and Z49[p]<0,X,X-Z49[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-168 and Z50[p]>=0,X,X+Z50[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-168 and Z50[p]<0,X,X-Z50[p]/2,10,0),COLOR00AA00;
{}
STICKLINE(w=q-2 and V1[p]>=1, 0,V1[p],5,0),COLOR008888; STICKLINE(w=q-2 and V1[p]<1, 0,V1[p],5,0),COLOR888800;
STICKLINE(w=q-9 and V2[p]>=1, 0,V2[p],5,0),COLOR008888; STICKLINE(w=q-9 and V2[p]<1, 0,V2[p],5,0),COLOR888800;
STICKLINE(w=q-16 and V3[p]>=1, 0,V3[p],5,0),COLOR008888; STICKLINE(w=q-16 and V3[p]<1, 0,V3[p],5,0),COLOR888800;
STICKLINE(w=q-23 and V4[p]>=1, 0,V4[p],5,0),COLOR008888; STICKLINE(w=q-23 and V4[p]<1, 0,V4[p],5,0),COLOR888800;
STICKLINE(w=q-30 and V5[p]>=1, 0,V5[p],5,0),COLOR008888; STICKLINE(w=q-30 and V5[p]<1, 0,V5[p],5,0),COLOR888800;
STICKLINE(w=q-37 and V6[p]>=1, 0,V6[p],5,0),COLOR008888; STICKLINE(w=q-37 and V6[p]<1, 0,V6[p],5,0),COLOR888800;
STICKLINE(w=q-44 and V7[p]>=1, 0,V7[p],5,0),COLOR008888; STICKLINE(w=q-44 and V7[p]<1, 0,V7[p],5,0),COLOR888800;
STICKLINE(w=q-51 and V8[p]>=1, 0,V8[p],5,0),COLOR008888; STICKLINE(w=q-51 and V8[p]<1, 0,V8[p],5,0),COLOR888800;
STICKLINE(w=q-58 and V9[p]>=1, 0,V9[p],5,0),COLOR008888; STICKLINE(w=q-58 and V9[p]<1, 0,V9[p],5,0),COLOR888800;
STICKLINE(w=q-65 and V10[p]>=1,0,V10[p],5,0),COLOR008888;STICKLINE(w=q-65 and V10[p]<1,0,V10[p],5,0),COLOR888800;
STICKLINE(w=q-72 and V11[p]>=1,0,V11[p],5,0),COLOR008888;STICKLINE(w=q-72 and V11[p]<1,0,V11[p],5,0),COLOR888800;
STICKLINE(w=q-79 and V12[p]>=1,0,V12[p],5,0),COLOR008888;STICKLINE(w=q-79 and V12[p]<1,0,V12[p],5,0),COLOR888800;
STICKLINE(w=q-86 and V13[p]>=1,0,V13[p],5,0),COLOR008888;STICKLINE(w=q-86 and V13[p]<1,0,V13[p],5,0),COLOR888800;
STICKLINE(w=q-93 and V14[p]>=1,0,V14[p],5,0),COLOR008888;STICKLINE(w=q-93 and V14[p]<1,0,V14[p],5,0),COLOR888800;
STICKLINE(w=q-100 and V15[p]>=1,0,V15[p],5,0),COLOR008888;STICKLINE(w=q-100 and V15[p]<1,0,V15[p],5,0),COLOR888800;
STICKLINE(w=q-107 and V16[p]>=1,0,V16[p],5,0),COLOR008888;STICKLINE(w=q-107 and V16[p]<1,0,V16[p],5,0),COLOR888800;
STICKLINE(w=q-114 and V17[p]>=1,0,V17[p],5,0),COLOR008888;STICKLINE(w=q-114 and V17[p]<1,0,V17[p],5,0),COLOR888800;
STICKLINE(w=q-121 and V18[p]>=1,0,V18[p],5,0),COLOR008888;STICKLINE(w=q-121 and V18[p]<1,0,V18[p],5,0),COLOR888800;
STICKLINE(w=q-128 and V19[p]>=1,0,V19[p],5,0),COLOR008888;STICKLINE(w=q-128 and V19[p]<1,0,V19[p],5,0),COLOR888800;
STICKLINE(w=q-135 and V20[p]>=1,0,V20[p],5,0),COLOR008888;STICKLINE(w=q-135 and V20[p]<1,0,V20[p],5,0),COLOR888800;
STICKLINE(w=q-142 and V21[p]>=1,0,V21[p],5,0),COLOR008888;STICKLINE(w=q-142 and V21[p]<1,0,V21[p],5,0),COLOR888800;
STICKLINE(w=q-149 and V22[p]>=1,0,V22[p],5,0),COLOR008888;STICKLINE(w=q-149 and V22[p]<1,0,V22[p],5,0),COLOR888800;
STICKLINE(w=q-156 and V23[p]>=1,0,V23[p],5,0),COLOR008888;STICKLINE(w=q-156 and V23[p]<1,0,V23[p],5,0),COLOR888800;
STICKLINE(w=q-163 and V24[p]>=1,0,V24[p],5,0),COLOR008888;STICKLINE(w=q-163 and V24[p]<1,0,V24[p],5,0),COLOR888800;
STICKLINE(w=q-170 and V25[p]>=1,0,V25[p],5,0),COLOR008888;STICKLINE(w=q-170 and V25[p]<1,0,V25[p],5,0),COLOR888800;
STICKLINE(w=q-2 and V26[p]>=1,X,X+V26[p],5,0),COLOR008888;STICKLINE(w=q-2 and V26[p]<1,X,X+V26[p],5,0),COLOR888800;
STICKLINE(w=q-9 and V27[p]>=1,X,X+V27[p],5,0),COLOR008888;STICKLINE(w=q-9 and V27[p]<1,X,X+V27[p],5,0),COLOR888800;
STICKLINE(w=q-16 and V28[p]>=1,X,X+V28[p],5,0),COLOR008888;STICKLINE(w=q-16 and V28[p]<1,X,X+V28[p],5,0),COLOR888800;
STICKLINE(w=q-23 and V29[p]>=1,X,X+V29[p],5,0),COLOR008888;STICKLINE(w=q-23 and V29[p]<1,X,X+V29[p],5,0),COLOR888800;
STICKLINE(w=q-30 and V30[p]>=1,X,X+V30[p],5,0),COLOR008888;STICKLINE(w=q-30 and V30[p]<1,X,X+V30[p],5,0),COLOR888800;
STICKLINE(w=q-37 and V31[p]>=1,X,X+V31[p],5,0),COLOR008888;STICKLINE(w=q-37 and V31[p]<1,X,X+V31[p],5,0),COLOR888800;
STICKLINE(w=q-44 and V32[p]>=1,X,X+V32[p],5,0),COLOR008888;STICKLINE(w=q-44 and V32[p]<1,X,X+V32[p],5,0),COLOR888800;
STICKLINE(w=q-51 and V33[p]>=1,X,X+V33[p],5,0),COLOR008888;STICKLINE(w=q-51 and V33[p]<1,X,X+V33[p],5,0),COLOR888800;
STICKLINE(w=q-58 and V34[p]>=1,X,X+V34[p],5,0),COLOR008888;STICKLINE(w=q-58 and V34[p]<1,X,X+V34[p],5,0),COLOR888800;
STICKLINE(w=q-65 and V35[p]>=1,X,X+V35[p],5,0),COLOR008888;STICKLINE(w=q-65 and V35[p]<1,X,X+V35[p],5,0),COLOR888800;
STICKLINE(w=q-72 and V36[p]>=1,X,X+V36[p],5,0),COLOR008888;STICKLINE(w=q-72 and V36[p]<1,X,X+V36[p],5,0),COLOR888800;
STICKLINE(w=q-79 and V37[p]>=1,X,X+V37[p],5,0),COLOR008888;STICKLINE(w=q-79 and V37[p]<1,X,X+V37[p],5,0),COLOR888800;
STICKLINE(w=q-86 and V38[p]>=1,X,X+V38[p],5,0),COLOR008888;STICKLINE(w=q-86 and V38[p]<1,X,X+V38[p],5,0),COLOR888800;
STICKLINE(w=q-93 and V39[p]>=1,X,X+V39[p],5,0),COLOR008888;STICKLINE(w=q-93 and V39[p]<1,X,X+V39[p],5,0),COLOR888800;
STICKLINE(w=q-100 and V40[p]>=1,X,X+V40[p],5,0),COLOR008888;STICKLINE(w=q-100 and V40[p]<1,X,X+V40[p],5,0),COLOR888800;
STICKLINE(w=q-107 and V41[p]>=1,X,X+V41[p],5,0),COLOR008888;STICKLINE(w=q-107 and V41[p]<1,X,X+V41[p],5,0),COLOR888800;
STICKLINE(w=q-114 and V42[p]>=1,X,X+V42[p],5,0),COLOR008888;STICKLINE(w=q-114 and V42[p]<1,X,X+V42[p],5,0),COLOR888800;
STICKLINE(w=q-121 and V43[p]>=1,X,X+V43[p],5,0),COLOR008888;STICKLINE(w=q-121 and V43[p]<1,X,X+V43[p],5,0),COLOR888800;
STICKLINE(w=q-128 and V44[p]>=1,X,X+V44[p],5,0),COLOR008888;STICKLINE(w=q-128 and V44[p]<1,X,X+V44[p],5,0),COLOR888800;
STICKLINE(w=q-135 and V45[p]>=1,X,X+V45[p],5,0),COLOR008888;STICKLINE(w=q-135 and V45[p]<1,X,X+V45[p],5,0),COLOR888800;
STICKLINE(w=q-142 and V46[p]>=1,X,X+V46[p],5,0),COLOR008888;STICKLINE(w=q-142 and V46[p]<1,X,X+V46[p],5,0),COLOR888800;
STICKLINE(w=q-149 and V47[p]>=1,X,X+V47[p],5,0),COLOR008888;STICKLINE(w=q-149 and V47[p]<1,X,X+V47[p],5,0),COLOR888800;
STICKLINE(w=q-156 and V48[p]>=1,X,X+V48[p],5,0),COLOR008888;STICKLINE(w=q-156 and V48[p]<1,X,X+V48[p],5,0),COLOR888800;
STICKLINE(w=q-163 and V49[p]>=1,X,X+V49[p],5,0),COLOR008888;STICKLINE(w=q-163 and V49[p]<1,X,X+V49[p],5,0),COLOR888800;
STICKLINE(w=q-170 and V50[p]>=1,X,X+V50[p],5,0),COLOR008888;STICKLINE(w=q-170 and V50[p]<1,X,X+V50[p],5,0),COLOR888800;
{}
DRAWTEXT(w=q, 0,'银行nn'+NUMTOSTR(Z1[p],2)+'n'+NUMTOSTR(V1[p],2)),SHIFT1,PXUP68,COLOR00BBBB;
DRAWTEXT(w=q-6, 0,'地产nn'+NUMTOSTR(Z2[p],2)+'n'+NUMTOSTR(V2[p],2)),PXUP68,COLOR00BBBB;
DRAWTEXT(w=q-13,0,'钢铁nn'+NUMTOSTR(Z3[p],2)+'n'+NUMTOSTR(V3[p],2)),PXUP68,COLORBBBBBB;
DRAWTEXT(w=q-20,0,'有色nn'+NUMTOSTR(Z4[p],2)+'n'+NUMTOSTR(V4[p],2)),PXUP68,COLOR00EEFF;
DRAWTEXT(w=q-27,0,'永磁nn'+NUMTOSTR(Z5[p],2)+'n'+NUMTOSTR(V5[p],2)),PXUP68,COLOR00EEFF;
DRAWTEXT(w=q-34,0,'稀缺nn'+NUMTOSTR(Z6[p],2)+'n'+NUMTOSTR(V6[p],2)),PXUP68,COLOR00EEFF;
DRAWTEXT(w=q-41,0,'资优nn'+NUMTOSTR(Z7[p],2)+'n'+NUMTOSTR(V7[p],2)),PXUP68,COLOR0099DD;
DRAWTEXT(w=q-48,0,'煤油nn'+NUMTOSTR(Z8[p],2)+'n'+NUMTOSTR(V8[p],2)),PXUP68,COLORBBBBBB;
DRAWTEXT(w=q-55,0,'电力nn'+NUMTOSTR(Z9[p],2)+'n'+NUMTOSTR(V9[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-62,0,'电设nn'+NUMTOSTR(Z10[p],2)+'n'+NUMTOSTR(V10[p],2)),PXUP68,COLORBBBBBB;
DRAWTEXT(w=q-69,0,'石化nn'+NUMTOSTR(Z11[p],2)+'n'+NUMTOSTR(V11[p],2)),PXUP68,COLORBBBBBB;
DRAWTEXT(w=q-76,0,'化纤nn'+NUMTOSTR(Z12[p],2)+'n'+NUMTOSTR(V12[p],2)),PXUP68,COLORBBBBBB;
DRAWTEXT(w=q-83,0,'水气nn'+NUMTOSTR(Z13[p],2)+'n'+NUMTOSTR(V13[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-90,0,'环保nn'+NUMTOSTR(Z14[p],2)+'n'+NUMTOSTR(V14[p],2)),PXUP68,COLOR00EEFF;
DRAWTEXT(w=q-97,0,'汽车nn'+NUMTOSTR(Z15[p],2)+'n'+NUMTOSTR(V15[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-104,0,'汽配nn'+NUMTOSTR(Z16[p],2)+'n'+NUMTOSTR(V16[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-111,0,'铁建nn'+NUMTOSTR(Z17[p],2)+'n'+NUMTOSTR(V17[p],2)),PXUP68,COLOR00EEFF;
DRAWTEXT(w=q-118,0,'运输nn'+NUMTOSTR(Z18[p],2)+'n'+NUMTOSTR(V18[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-125,0,'交设nn'+NUMTOSTR(Z19[p],2)+'n'+NUMTOSTR(V19[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-132,0,'通信nn'+NUMTOSTR(Z20[p],2)+'n'+NUMTOSTR(V20[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-139,0,'电器nn'+NUMTOSTR(Z21[p],2)+'n'+NUMTOSTR(V21[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-146,0,'电脑nn'+NUMTOSTR(Z22[p],2)+'n'+NUMTOSTR(V22[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-153,0,'信息nn'+NUMTOSTR(Z23[p],2)+'n'+NUMTOSTR(V23[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-160,0,'网游nn'+NUMTOSTR(Z24[p],2)+'n'+NUMTOSTR(V24[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-167,0,'仪表nn'+NUMTOSTR(Z25[p],2)+'n'+NUMTOSTR(V25[p],2)),PXUP68,COLOR00AAEE;
{}
DRAWTEXT(w=q, X,'工机nn'+NUMTOSTR(Z26[p],2)+'n'+NUMTOSTR(V26[p],2)),SHIFT1,PXUP68,COLORBBBBBB;
DRAWTEXT(w=q-6, X,'外贸nn'+NUMTOSTR(Z27[p],2)+'n'+NUMTOSTR(V27[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-13,X,'商业nn'+NUMTOSTR(Z28[p],2)+'n'+NUMTOSTR(V28[p],2)),PXUP68,COLOR0000FF;
DRAWTEXT(w=q-20,X,'酒店nn'+NUMTOSTR(Z29[p],2)+'n'+NUMTOSTR(V29[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-27,X,'医药nn'+NUMTOSTR(Z30[p],2)+'n'+NUMTOSTR(V30[p],2)),PXUP68,COLOR0000FF;
DRAWTEXT(w=q-34,X,'农林nn'+NUMTOSTR(Z31[p],2)+'n'+NUMTOSTR(V31[p],2)),PXUP68,COLOR0000FF;
DRAWTEXT(w=q-41,X,'农业nn'+NUMTOSTR(Z32[p],2)+'n'+NUMTOSTR(V32[p],2)),PXUP68,COLOR0000FF;
DRAWTEXT(w=q-48,X,'食品nn'+NUMTOSTR(Z33[p],2)+'n'+NUMTOSTR(V33[p],2)),PXUP68,COLOR0000FF;
DRAWTEXT(w=q-55,X,'航军nn'+NUMTOSTR(Z34[p],2)+'n'+NUMTOSTR(V34[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-62,X,'纺织nn'+NUMTOSTR(Z35[p],2)+'n'+NUMTOSTR(V35[p],2)),PXUP68,COLOR0066DD;
DRAWTEXT(w=q-69, X,'造纸nn'+NUMTOSTR(Z36[p],2)+'n'+NUMTOSTR(V36[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-76, X,'3G nn'+NUMTOSTR(Z37[p],2)+'n'+NUMTOSTR(V37[p],2)),PXUP68,COLOR00EEFF;
DRAWTEXT(w=q-83, X,'新能nn'+NUMTOSTR(Z38[p],2)+'n'+NUMTOSTR(V38[p],2)),PXUP68,COLOR00EEFF;
DRAWTEXT(w=q-90, X,'新材nn'+NUMTOSTR(Z39[p],2)+'n'+NUMTOSTR(V39[p],2)),PXUP68,COLOR00EEFF;
DRAWTEXT(w=q-97, X,'物联nn'+NUMTOSTR(Z40[p],2)+'n'+NUMTOSTR(V40[p],2)),PXUP68,COLOR00EEFF;
DRAWTEXT(w=q-104,X,'数视nn'+NUMTOSTR(Z41[p],2)+'n'+NUMTOSTR(V41[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-111,X,'传媒nn'+NUMTOSTR(Z42[p],2)+'n'+NUMTOSTR(V42[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-118,X,'低碳nn'+NUMTOSTR(Z43[p],2)+'n'+NUMTOSTR(V43[p],2)),PXUP68,COLOR00EEFF;
DRAWTEXT(w=q-125,X,'西开nn'+NUMTOSTR(Z44[p],2)+'n'+NUMTOSTR(V44[p],2)),PXUP68,COLOR00EEFF;
DRAWTEXT(w=q-132,X,'全 Ann'+NUMTOSTR(Z45[p],2)+'n'+NUMTOSTR(V45[p],2)),PXUP68,COLOR00AAEE;
DRAWTEXT(w=q-139,X,'中小nn'+NUMTOSTR(Z46[p],2)+'n'+NUMTOSTR(V46[p],2)),PXUP68,COLOR0000FF;
DRAWTEXT(w=q-146,X,'创业nn'+NUMTOSTR(Z47[p],2)+'n'+NUMTOSTR(V47[p],2)),PXUP68,COLOR0066DD;
DRAWTEXT(w=q-153,X,'大盘nn'+NUMTOSTR(Z48[p],2)+'n'+NUMTOSTR(V48[p],2)),PXUP68,COLORBBBBBB;
DRAWTEXT(w=q-160,X,'中盘nn'+NUMTOSTR(Z49[p],2)+'n'+NUMTOSTR(V49[p],2)),PXUP68,COLOR0000FF;
DRAWTEXT(w=q-167,X,'小盘nn'+NUMTOSTR(Z50[p],2)+'n'+NUMTOSTR(V50[p],2)),PXUP68,COLOR0066DD;
{}
aa:=BLKNAME;BB:=STRLEFT(AA,STRFIND(AA,',',1)-1);K:=STKCOUNT(BB);DD:=(INDEXC/ref(INDEXC,1)-1)*100;
HS3:=("399300$CLOSE"/ref("399300$CLOSE",1)-1)*100;
DRAWTEXTEX(DD[p]>=0,1,390,0,'当前对应市场涨跌幅:'+NUMTOSTR(DD[p],2)+' %'),COLOR0000FF;
DRAWTEXTEX(DD[p]<0,1, 390,0,'当前对应市场涨跌幅:'+NUMTOSTR(DD[p],2)+' %'),COLOR00FF00;
DRAWTEXTEX(HS3[p]>=0,1,570,0,'当前沪深300 涨跌幅:'+NUMTOSTR(HS3[p],2)+' %'),COLOR0000FF;
DRAWTEXTEX(HS3[p]<0,1, 570,0,'当前沪深300 涨跌幅:'+NUMTOSTR(HS3[p],2)+' %'),COLOR00FF00;
DRAWTEXTEX(c,1,10,0,STKNAME+': '+STKLABEL+' 所属板块: '+BB+', 共有：'+NUMTOSTR(K,0)+' 家上市公司'),COLOR00DDDD;
DRAWTEXTEX(c,1,750,0,'量比:'+'?'),COLOREE00EE;DRAWTEXTEX(c,1,810,0,'上涨:'+'?'),COLOR0000EE;
DRAWTEXTEX(c,1,870,0,'下跌:'+'?'),COLOR00EE00;{4,COLORBLACK;}
{}
bk:='板块指数';stksum:=STKCOUNT(bk);dcount:=DATACOUNT;
yygs4:='Z，.F';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs4,0,6);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,1,1,stksum);
dm_max1:=var_indi[1]; dm_max2:=var_indi[2]; dm_max3:=var_indi[3]; dm_max4:=var_indi[4]; dm_max5:=var_indi[5];
dm_max6:=var_indi[6]; dm_max7:=var_indi[7]; dm_max8:=var_indi[8]; dm_max9:=var_indi[9]; dm_max10:=var_indi[10];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3]; max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
max6:=var_px[dm_max6]; max7:=var_px[dm_max7]; max8:=var_px[dm_max8]; max9:=var_px[dm_max9]; max10:=var_px[dm_max10];
EXPLAIN(1,' 【涨幅--前十名】'),Color00EEFF;
EXPLAIN(1,'1:'+STKNAMEEX(dmstr[dm_max1])+': '+NUMTOSTR(max1,2)+'%'),Color0088FF;
EXPLAIN(1,'2:'+STKNAMEEX(dmstr[dm_max2])+': '+NUMTOSTR(max2,2)+'%'),Color0088FF;
EXPLAIN(1,'3:'+STKNAMEEX(dmstr[dm_max3])+': '+NUMTOSTR(max3,2)+'%'),Color0088FF;
EXPLAIN(1,'4:'+STKNAMEEX(dmstr[dm_max4])+': '+NUMTOSTR(max4,2)+'%'),Color0088FF;
EXPLAIN(1,'5:'+STKNAMEEX(dmstr[dm_max5])+': '+NUMTOSTR(max5,2)+'%'),Color0088FF;
EXPLAIN(1,'6:'+STKNAMEEX(dmstr[dm_max6])+': '+NUMTOSTR(max6,2)+'%'),Color0088FF;
EXPLAIN(1,'7:'+STKNAMEEX(dmstr[dm_max7])+': '+NUMTOSTR(max7,2)+'%'),Color0088FF;
EXPLAIN(1,'8:'+STKNAMEEX(dmstr[dm_max8])+': '+NUMTOSTR(max8,2)+'%'),Color0088FF;
EXPLAIN(1,'9:'+STKNAMEEX(dmstr[dm_max9])+': '+NUMTOSTR(max9,2)+'%'),Color0088FF;
EXPLAIN(1,'10:'+STKNAMEEX(dmstr[dm_max10])+': '+NUMTOSTR(max10,2)+'%'),Color0088FF;
yygs2:='Z，.a1';stksum:=STKCOUNT(bk);dcount:=datacount;
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs2,0,0);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,1,1,stksum);
dm_max1:=var_indi[1]; dm_max2:=var_indi[2]; dm_max3:=var_indi[3]; dm_max4:=var_indi[4]; dm_max5:=var_indi[5];
dm_max6:=var_indi[6]; dm_max7:=var_indi[7]; dm_max8:=var_indi[8]; dm_max9:=var_indi[9]; dm_max10:=var_indi[10];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3]; max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
max6:=var_px[dm_max6]; max7:=var_px[dm_max7]; max8:=var_px[dm_max8]; max9:=var_px[dm_max9]; max10:=var_px[dm_max10];
EXPLAIN(1,' 【资金流入前十名】'),colorFF00FF;
EXPLAIN(1,'1:'+STKNAMEEX(dmstr[dm_max1])+': '+NUMTOSTR(max1,2)+' 亿'),Color00DDFF;
EXPLAIN(1,'2:'+STKNAMEEX(dmstr[dm_max2])+': '+NUMTOSTR(max2,2)+' 亿'),Color00DDFF;
EXPLAIN(1,'3:'+STKNAMEEX(dmstr[dm_max3])+': '+NUMTOSTR(max3,2)+' 亿'),Color00DDFF;
EXPLAIN(1,'4:'+STKNAMEEX(dmstr[dm_max4])+': '+NUMTOSTR(max4,2)+' 亿'),Color00DDFF;
EXPLAIN(1,'5:'+STKNAMEEX(dmstr[dm_max5])+': '+NUMTOSTR(max5,2)+' 亿'),Color00DDFF;
EXPLAIN(1,'6:'+STKNAMEEX(dmstr[dm_max6])+': '+NUMTOSTR(max6,2)+' 亿'),Color00DDFF;
EXPLAIN(1,'7:'+STKNAMEEX(dmstr[dm_max7])+': '+NUMTOSTR(max7,2)+' 亿'),Color00DDFF;
EXPLAIN(1,'8:'+STKNAMEEX(dmstr[dm_max8])+': '+NUMTOSTR(max8,2)+' 亿'),Color00DDFF;
EXPLAIN(1,'9:'+STKNAMEEX(dmstr[dm_max9])+': '+NUMTOSTR(max9,2)+' 亿'),Color00DDFF;
EXPLAIN(1,'10:'+STKNAMEEX(dmstr[dm_max10])+': '+NUMTOSTR(max10,2)+' 亿'),Color00DDFF;
yygs3:='Z，.a1';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs3,0,0);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,0,1,stksum);
dm_max1:=var_indi[1]; dm_max2:=var_indi[2]; dm_max3:=var_indi[3]; dm_max4:=var_indi[4];
dm_max5:=var_indi[5]; dm_max6:=var_indi[6]; dm_max7:=var_indi[7]; dm_max8:=var_indi[8];
min1:=var_px[dm_max1]; min2:=var_px[dm_max2]; min3:=var_px[dm_max3]; min4:=var_px[dm_max4];
min5:=var_px[dm_max5]; min6:=var_px[dm_max6]; min7:=var_px[dm_max7]; min8:=var_px[dm_max8];
EXPLAIN(1,' 【资金增幅后八名】'),colorFFFF00;
EXPLAIN(1,'1:'+STKNAMEEX(dmstr[dm_max1])+': '+NUMTOSTR(min1,2)+' 亿'),color00DD00;
EXPLAIN(1,'2:'+STKNAMEEX(dmstr[dm_max2])+': '+NUMTOSTR(min2,2)+' 亿'),color00DD00;
EXPLAIN(1,'3:'+STKNAMEEX(dmstr[dm_max3])+': '+NUMTOSTR(min3,2)+' 亿'),color00DD00;
EXPLAIN(1,'4:'+STKNAMEEX(dmstr[dm_max4])+': '+NUMTOSTR(min4,2)+' 亿'),color00DD00;
EXPLAIN(1,'5:'+STKNAMEEX(dmstr[dm_max5])+': '+NUMTOSTR(min5,2)+' 亿'),color00DD00;
EXPLAIN(1,'6:'+STKNAMEEX(dmstr[dm_max6])+': '+NUMTOSTR(min6,2)+' 亿'),color00DD00;
EXPLAIN(1,'7:'+STKNAMEEX(dmstr[dm_max7])+': '+NUMTOSTR(min7,2)+' 亿'),color00DD00;
EXPLAIN(1,'8:'+STKNAMEEX(dmstr[dm_max8])+': '+NUMTOSTR(min8,2)+' 亿'),color00DD00;
stksum:=STKCOUNT(bk);
variable:dmstr[stksum]='';
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
end;
{}


鲜花
握手
雷人
路过
鸡蛋
收藏 邀请

相关分类

返回顶部