领涨板块中领涨个股前8名板块指数公式下载 飞狐板块指数指标 源码

指标公式详细说明

领涨板块中领涨个股前8名（板块指数/）
x1:=140 ;
y1:=60; y2:=90;
bkname:='板块指数';
stkc:=stkcount(bkname);
variable:s=0,zfsz[stkc]=0,zfname[10]='',zfnumber[10]=0;
for p=1 to stkc do begin
ty1:=stkfromblk(bkname,p);
ty2:=dynainfo2(14,ty1)*100;
zfsz[p]:=ty2;
if ty2>=0 thens:=s+1;
end
nwy:=sortpos(zfsz,0,1,stkc);
for p1 =1 to 10 do begin
zfdm:=stkfromblk(bkname,zfsz[stkc-(p1-1)]);
te:=stknameex(zfdm);
zfname[p1]:=strleft(te,strlen(te)-4);
zfnumber[p1]:=dynainfo2(14,zfdm)*100;
end;
drawtextex(1,1,x1,y1,zfname[1]+'('+ numtostr(stkcount(zfname[1]),0)+ ')' + numtostr(zfnumber[1],2) + ' ％'),color5050ff,align2;
drawtextex(1,1,x1,y1+y2,zfname[2]+'('+ numtostr(stkcount(zfname[2]),0)+ ')' +numtostr(zfnumber[2],2) + ' ％'),color5050ff,align2;
drawtextex(1,1,x1,y1+y2*2,zfname[3]+'('+ numtostr(stkcount(zfname[3]),0)+ ')' +numtostr(zfnumber[3],2) + ' ％'),color5050ff,align2;
drawtextex(1,1,x1,y1+y2*3,zfname[4]+'('+ numtostr(stkcount(zfname[4]),0)+ ')' +numtostr(zfnumber[4],2) + ' ％'),color5050ff,align2;
drawtextex(1,1,x1,y1+y2*4,zfname[5]+'('+ numtostr(stkcount(zfname[5]),0)+ ')' + numtostr(zfnumber[5],2) + ' ％'),color5050ff,align2;
drawtextex(1,1,x1,y1+y2*5,zfname[6]+'('+ numtostr(stkcount(zfname[6]),0)+ ')' + numtostr(zfnumber[6],2) + ' ％'),color5050ff,align2;
drawtextex(1,1,x1,y1+y2*6,zfname[7]+'('+ numtostr(stkcount(zfname[7]),0)+ ')' + numtostr(zfnumber[7],2) + ' ％'),color5050ff,align2;
drawtextex(1,1,x1,y1+y2*7,zfname[8]+'('+ numtostr(stkcount(zfname[8]),0)+ ')' + numtostr(zfnumber[8],2) + ' ％'),color5050ff,align2;
drawtextex(1,1,x1,y1+y2*8,zfname[9]+'('+ numtostr(stkcount(zfname[9]),0)+ ')' + numtostr(zfnumber[9],2) + ' ％'),color5050ff,align2;
drawtextex(1,1,x1,y1+y2*9,zfname[10]+'('+ numtostr(stkcount(zfname[10]),0)+ ')' + numtostr(zfnumber[10],2) + ' ％'),color5050ff,align2;
variable:minzfstr[10]='';
paa:=0;
while paa<10 do begin
paa:=paa+1;
minstkname:=zfname[paa];
stknum:=stkcount(minstkname);
variable:zf[stknum]=0;
for p2=1 to stknum do begin
ty1:=stkfromblk(minstkname,p2);
ty2:=dynainfo2(14,ty1)*100;
zf[p2]:=ty2;
end
nwy:=sortpos(zf,0,1,stknum );
ub:=if(stknum>=8,8,stknum);
for p3 =1 to ub do begin
zfdm:=stkfromblk(minstkname,zf[stknum-(p3-1)]);
te:=stknameex(zfdm);
minzfstr[paa]:=minzfstr[paa] +'('+te + numtostr(dynainfo2(14,zfdm)*100,2) +'％'+')'+ ' ';//
end;
end;
x4:=160;
drawtextex(1,1,x4,y1,minzfstr[1]),color5050ff;
drawtextex(1,1,x4,y1+y2,minzfstr[2]),color5050ff;
drawtextex(1,1,x4,y1+y2*2,minzfstr[3]),color5050ff;
drawtextex(1,1,x4,y1+y2*3,minzfstr[4]),color5050ff;
drawtextex(1,1,x4,y1+y2*4,minzfstr[5]),color5050ff;
drawtextex(1,1,x4,y1+y2*5,minzfstr[6]),color5050ff;
drawtextex(1,1,x4,y1+y2*6,minzfstr[7]),color5050ff;
drawtextex(1,1,x4,y1+y2*7,minzfstr[8]),color5050ff;

drawtextex(1,1,x4,y1+y2*8,minzfstr[9]),color5050ff;
drawtextex(1,1,x4,y1+y2*9,minzfstr[10]),color5050ff;

指标公式下载地址

上一指标公式：缠论笔段正反角主图公式下载 飞狐源码贴图指标 源码

下一指标公式：奉献一个精密解单具有实战的神奇双色线公式下载 飞狐双色实战指标 源码

相关飞狐公式推荐

指标公式下载注意

☉ 好公式网发布的指标公式主要用于软件技术面分析，仅供参考，勿用于实际操作，据此操作风险自负！

☉ 解压密码：www.goodgongshi.com 就是好公式网域名，希望大家看清楚，切勿输错。

☉ tnc和tni格式指标公式，仅可以用通达信软件引入使用，例如可以用通达信软件引入使用指标公式；

☉ tne格式指标公式，仅可以用通达信软件公式编辑器5.0版导入，高版本兼容低版本；

☉ fnc格式指标公式，可以用大智慧软件新一代高速行情分析系统股票软件使用，少部分可以用分析家软件引入使用；

☉ alg格式指标公式，仅仅可以用飞狐交易师软件引入使用；exp格式指标公式，仅可以用大智慧经典版软件引入使用；

☉ hxf格式指标公式，仅可以用同花顺软件引入使用。

☉ 如果您发现下载软件链接错误，请联系管理员报告错误。

☉ 好公式网欢迎各位网友帮忙宣传转发本站网址，有您的支持，我们会做得更好！

☉ 本文领涨板块中领涨个股前8名板块指数公式下载 飞狐板块指数指标 源码仅供学习研究。