神马文学网【千钧自选股全息】源码！RRR
来源：百度文库 编辑：神马文学网 时间：2024/04/28 20:00:43
大家可能一直为每天都有一遍又一遍的反复观察自选股而感到麻烦和厌倦。
【千钧自选股全息】正是为解决朋友们的麻烦而设计的。
在这个指标中、你可以随时观察你的自选股的涨跌、资金流入、流出情况。
不用再去翻自选股。
原来下载过涨幅引用的朋友可以继续使用原来的引用公式。
源码在大家的手中、你可以根据你的喜好修改、但千钧有一点要求：
如果大家尊重理想，尊重千钧。
请尽量不要改动【论金老师制作】这六个字！！！
源码：AA:=IF(C>=(HHV(C,11)+LLV(C,11))/2,vol,0);BB:=IF(C<(HHV(C,11)+LLV(C,11))/2,vol,0);AG:=STKCOUNT('A股板块')*1780000;
机构线:SUM((AA-BB),22)/IF(CAPITAL<1,AG,CAPITAL),ColorEE33EE;操作线:EMA(机构线,7),ColorEEEE00;
bk:='自选股';
stksum:=STKCOUNT(bk);dcount:=DATACOUNT;yygs4:='涨幅引用.A0';
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,-1);
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];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];
DRAWTEXTEX(c,1,30,0,'【涨幅排序】'),Color0000FF;
DRAWTEXTEX(c,1,20,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,250,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,350,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,450,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,550,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,650,'6:'+STKNAMEEX(dmstr[dm_max6])+':'+NUMTOSTR(max6,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,750,'7:'+STKNAMEEX(dmstr[dm_max7])+':'+NUMTOSTR(max7,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,850,'8:'+STKNAMEEX(dmstr[dm_max8])+':'+NUMTOSTR(max8,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,950,'9:'+STKNAMEEX(dmstr[dm_max9])+':'+NUMTOSTR(max9,2)),Color00AAFF;
yygs5:='涨幅引用.A0';
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,yygs5,0,-1);
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];
dm_max9:=var_indi[9];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];
DRAWTEXTEX(c,1,250,0,'【跌幅排序】'),,Color00FF00;
DRAWTEXTEX(c,1,240,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)),colorFF8800;
DRAWTEXTEX(c,1,240,250,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)),colorFF8800;
DRAWTEXTEX(c,1,240,350,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),colorFF8800;
DRAWTEXTEX(c,1,240,450,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,2)),colorFF8800;
DRAWTEXTEX(c,1,240,550,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,2)),colorFF8800;
DRAWTEXTEX(c,1,240,650,'6:'+STKNAMEEX(dmstr[dm_max6])+':'+NUMTOSTR(max6,2)),colorFF8800;
DRAWTEXTEX(c,1,240,750,'7:'+STKNAMEEX(dmstr[dm_max7])+':'+NUMTOSTR(max7,2)),colorFF8800;
DRAWTEXTEX(c,1,240,850,'8:'+STKNAMEEX(dmstr[dm_max8])+':'+NUMTOSTR(max8,2)),colorFF8800;
DRAWTEXTEX(c,1,240,950,'9:'+STKNAMEEX(dmstr[dm_max9])+':'+NUMTOSTR(max9,2)),colorFF8800;
yygs:='涨幅引用.ZJA';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,yygs,0,-1);
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];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];
DRAWTEXTEX(c,1,535,0,'【资金入场排序】'),,ColorFF00FF;
DRAWTEXTEX(c,1,520,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,250,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,350,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,450,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,550,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,650,'6:'+STKNAMEEX(dmstr[dm_max6])+':'+NUMTOSTR(max6,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,750,'7:'+STKNAMEEX(dmstr[dm_max7])+':'+NUMTOSTR(max7,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,850,'8:'+STKNAMEEX(dmstr[dm_max8])+':'+NUMTOSTR(max8,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,950,'9:'+STKNAMEEX(dmstr[dm_max9])+':'+NUMTOSTR(max9,0)+' 万'),color00AAFF;
yygs2:='涨幅引用.ZJB';
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,-1);
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];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];
DRAWTEXTEX(c,1,785,0,'【资金离场排序】'),colorEEEEEE;
DRAWTEXTEX(c,1,770,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,250,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,350,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,450,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,550,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,650,'6:'+STKNAMEEX(dmstr[dm_max6])+':'+NUMTOSTR(max6,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,750,'7:'+STKNAMEEX(dmstr[dm_max7])+':'+NUMTOSTR(max7,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,850,'8:'+STKNAMEEX(dmstr[dm_max8])+':'+NUMTOSTR(max8,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,950,'9:'+STKNAMEEX(dmstr[dm_max9])+':'+NUMTOSTR(max9,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,455,150,'理'),Color00A100;DRAWTEXTEX(c,1,455,300,'想'),Color00A100;
DRAWTEXTEX(c,1,455,450,'千'),Color00A100;DRAWTEXTEX(c,1,455,600,'钧'),Color00A100;
DRAWTEXTEX(c,1,455,750,'制'),Color00A100;DRAWTEXTEX(c,1,455,900,'作'),Color00A100;
stksum:=STKCOUNT(bk);
variable:dmstr[stksum]='';
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
end;
DRAWTEXTEX(C,1,395,0,' 共有:'+numtostr(stksum,0)+'只'),COLOR00FFFF;
【千钧自选股全息】正是为解决朋友们的麻烦而设计的。
在这个指标中、你可以随时观察你的自选股的涨跌、资金流入、流出情况。
不用再去翻自选股。
原来下载过涨幅引用的朋友可以继续使用原来的引用公式。
源码在大家的手中、你可以根据你的喜好修改、但千钧有一点要求：
如果大家尊重理想，尊重千钧。
请尽量不要改动【论金老师制作】这六个字！！！
源码：AA:=IF(C>=(HHV(C,11)+LLV(C,11))/2,vol,0);BB:=IF(C<(HHV(C,11)+LLV(C,11))/2,vol,0);AG:=STKCOUNT('A股板块')*1780000;机构线:SUM((AA-BB),22)/IF(CAPITAL<1,AG,CAPITAL),ColorEE33EE;操作线:EMA(机构线,7),ColorEEEE00;
bk:='自选股';
stksum:=STKCOUNT(bk);dcount:=DATACOUNT;yygs4:='涨幅引用.A0';
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,-1);
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];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];
DRAWTEXTEX(c,1,30,0,'【涨幅排序】'),Color0000FF;
DRAWTEXTEX(c,1,20,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,250,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,350,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,450,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,550,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,650,'6:'+STKNAMEEX(dmstr[dm_max6])+':'+NUMTOSTR(max6,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,750,'7:'+STKNAMEEX(dmstr[dm_max7])+':'+NUMTOSTR(max7,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,850,'8:'+STKNAMEEX(dmstr[dm_max8])+':'+NUMTOSTR(max8,2)),Color00AAFF;
DRAWTEXTEX(c,1,20,950,'9:'+STKNAMEEX(dmstr[dm_max9])+':'+NUMTOSTR(max9,2)),Color00AAFF;
yygs5:='涨幅引用.A0';
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,yygs5,0,-1);
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];
dm_max9:=var_indi[9];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];
DRAWTEXTEX(c,1,250,0,'【跌幅排序】'),,Color00FF00;
DRAWTEXTEX(c,1,240,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)),colorFF8800;
DRAWTEXTEX(c,1,240,250,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)),colorFF8800;
DRAWTEXTEX(c,1,240,350,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),colorFF8800;
DRAWTEXTEX(c,1,240,450,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,2)),colorFF8800;
DRAWTEXTEX(c,1,240,550,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,2)),colorFF8800;
DRAWTEXTEX(c,1,240,650,'6:'+STKNAMEEX(dmstr[dm_max6])+':'+NUMTOSTR(max6,2)),colorFF8800;
DRAWTEXTEX(c,1,240,750,'7:'+STKNAMEEX(dmstr[dm_max7])+':'+NUMTOSTR(max7,2)),colorFF8800;
DRAWTEXTEX(c,1,240,850,'8:'+STKNAMEEX(dmstr[dm_max8])+':'+NUMTOSTR(max8,2)),colorFF8800;
DRAWTEXTEX(c,1,240,950,'9:'+STKNAMEEX(dmstr[dm_max9])+':'+NUMTOSTR(max9,2)),colorFF8800;
yygs:='涨幅引用.ZJA';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,yygs,0,-1);
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];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];
DRAWTEXTEX(c,1,535,0,'【资金入场排序】'),,ColorFF00FF;
DRAWTEXTEX(c,1,520,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,250,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,350,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,450,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,550,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,650,'6:'+STKNAMEEX(dmstr[dm_max6])+':'+NUMTOSTR(max6,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,750,'7:'+STKNAMEEX(dmstr[dm_max7])+':'+NUMTOSTR(max7,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,850,'8:'+STKNAMEEX(dmstr[dm_max8])+':'+NUMTOSTR(max8,0)+' 万'),color00AAFF;
DRAWTEXTEX(c,1,520,950,'9:'+STKNAMEEX(dmstr[dm_max9])+':'+NUMTOSTR(max9,0)+' 万'),color00AAFF;
yygs2:='涨幅引用.ZJB';
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,-1);
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];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];
DRAWTEXTEX(c,1,785,0,'【资金离场排序】'),colorEEEEEE;
DRAWTEXTEX(c,1,770,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,250,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,350,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,450,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,550,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,650,'6:'+STKNAMEEX(dmstr[dm_max6])+':'+NUMTOSTR(max6,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,750,'7:'+STKNAMEEX(dmstr[dm_max7])+':'+NUMTOSTR(max7,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,850,'8:'+STKNAMEEX(dmstr[dm_max8])+':'+NUMTOSTR(max8,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,770,950,'9:'+STKNAMEEX(dmstr[dm_max9])+':'+NUMTOSTR(max9,0)+' 万'),colorFF8800;
DRAWTEXTEX(c,1,455,150,'理'),Color00A100;DRAWTEXTEX(c,1,455,300,'想'),Color00A100;
DRAWTEXTEX(c,1,455,450,'千'),Color00A100;DRAWTEXTEX(c,1,455,600,'钧'),Color00A100;
DRAWTEXTEX(c,1,455,750,'制'),Color00A100;DRAWTEXTEX(c,1,455,900,'作'),Color00A100;
stksum:=STKCOUNT(bk);
variable:dmstr[stksum]='';
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
end;
DRAWTEXTEX(C,1,395,0,' 共有:'+numtostr(stksum,0)+'只'),COLOR00FFFF;