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-7and Z2[p] =0,0, Z2[p]/2,10,0),COLOR0000AA;STICKLINE(w=q-7and 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-70and Z11[p] =0,0, Z11[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-70and Z11[p] 0,0,-Z11[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-77and Z12[p] =0,0, Z12[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-77and Z12[p] 0,0,-Z12[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-84and Z13[p] =0,0, Z13[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-84and Z13[p] 0,0,-Z13[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-91and Z14[p] =0,0, Z14[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-91and Z14[p] 0,0,-Z14[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-98and Z15[p] =0,0, Z15[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-98and 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-7and Z27[p] =0,X,X+Z27[p]/2,10,0),COLOR0000AA;STICKLINE(w=q-7and 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-70and Z36[p] =0,X,X+Z36[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-70and Z36[p] 0,X,X-Z36[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-77and Z37[p] =0,X,X+Z37[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-77and Z37[p] 0,X,X-Z37[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-84and Z38[p] =0,X,X+Z38[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-84and Z38[p] 0,X,X-Z38[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-91and Z39[p] =0,X,X+Z39[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-91and Z39[p] 0,X,X-Z39[p]/2,10,0),COLOR00AA00;
STICKLINE(w=q-98and Z40[p] =0,X,X+Z40[p]/2,10,0),COLOR0000AA; STICKLINE(w=q-98and 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-2and V1[p] =1, 0,V1[p],5,0),COLOR008888; STICKLINE(w=q-2and V1[p] 1, 0,V1[p],5,0),COLOR888800;
STICKLINE(w=q-9and V2[p] =1, 0,V2[p],5,0),COLOR008888; STICKLINE(w=q-9and 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-72and V11[p] =1,0,V11[p],5,0),COLOR008888;STICKLINE(w=q-72and V11[p] 1,0,V11[p],5,0),COLOR888800;
STICKLINE(w=q-79and V12[p] =1,0,V12[p],5,0),COLOR008888;STICKLINE(w=q-79and V12[p] 1,0,V12[p],5,0),COLOR888800;
STICKLINE(w=q-86and V13[p] =1,0,V13[p],5,0),COLOR008888;STICKLINE(w=q-86and V13[p] 1,0,V13[p],5,0),COLOR888800;
STICKLINE(w=q-93and V14[p] =1,0,V14[p],5,0),COLOR008888;STICKLINE(w=q-93and 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-2and V26[p] =1,X,X+V26[p],5,0),COLOR008888;STICKLINE(w=q-2and V26[p] 1,X,X+V26[p],5,0),COLOR888800;
STICKLINE(w=q-9and V27[p] =1,X,X+V27[p],5,0),COLOR008888;STICKLINE(w=q-9and 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-72and V36[p] =1,X,X+V36[p],5,0),COLOR008888;STICKLINE(w=q-72and V36[p] 1,X,X+V36[p],5,0),COLOR888800;
STICKLINE(w=q-79and V37[p] =1,X,X+V37[p],5,0),COLOR008888;STICKLINE(w=q-79and V37[p] 1,X,X+V37[p],5,0),COLOR888800;
STICKLINE(w=q-86and V38[p] =1,X,X+V38[p],5,0),COLOR008888;STICKLINE(w=q-86and V38[p] 1,X,X+V38[p],5,0),COLOR888800;
STICKLINE(w=q-93and V39[p] =1,X,X+V39[p],5,0),COLOR008888;STICKLINE(w=q-93and 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,'3Gnn'+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;
{}
