|
|
|
原帖由 愚睿 于 2011-2-14 18:28 发表 
帅帅,干点活!#*29*#
给点时间,
加到主图就可以了,引用公式是
{}
-
- 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];
- 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];
- DRAWTEXTEX(c,1,40,0,'【涨幅前五名】'),Color00FFFF;
- DRAWTEXTEX(c,1,20,50,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)),Color0000FF;
- DRAWTEXTEX(c,1,20,100,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)),Color0000FF;
- DRAWTEXTEX(c,1,20,150,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),Color0000FF;
- DRAWTEXTEX(c,1,20,200,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,2)),Color0000FF;
- DRAWTEXTEX(c,1,20,250,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,2)),Color0000FF;
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
-
| 参与人数 1 | 奖励 +18 |
时间 |
理由
|
前方有雾
| + 18 |
2011-2-15 09:03 |
楼主是热心人,加分支持! |
查看全部评分
|
|