板块聚焦+图分享也是一种享受~快乐每一天公式下载 飞狐板块源码指标 源码

指标公式详细说明

板块聚焦（源码+图）分享也是一种享受~快乐每一天

x1:=140;
y1:=5;
y2:=100;
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 then
s:=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)+' ％'),align2,colorff;
drawtextex(1,1,x1,y1+y2,zfname[2]+'('+numtostr(stkcount(zfname[2]),0)+') '+numtostr(zfnumber[2],2)+' ％'),align2,color80ff;
drawtextex(1,1,x1,y1+y2*2,zfname[3]+'('+numtostr(stkcount(zfname[3]),0)+') '+numtostr(zfnumber[3],2)+' ％'),align2,colorffff;
drawtextex(1,1,x1,y1+y2*3,zfname[4]+'('+numtostr(stkcount(zfname[4]),0)+') '+numtostr(zfnumber[4],2)+' ％'),align2,colorff00;
drawtextex(1,1,x1,y1+y2*4,zfname[5]+'('+numtostr(stkcount(zfname[5]),0)+') '+numtostr(zfnumber[5],2)+' ％'),align2,colorff0000;
drawtextex(1,1,x1,y1+y2*5,zfname[6]+'('+numtostr(stkcount(zfname[6]),0)+') '+numtostr(zfnumber[6],2)+' ％'),align2,colorffff00;
drawtextex(1,1,x1,y1+y2*6,zfname[7]+'('+numtostr(stkcount(zfname[7]),0)+') '+numtostr(zfnumber[7],2)+' ％'),align2,colorff00ff;
drawtextex(1,1,x1,y1+y2*7,zfname[8]+'('+numtostr(stkcount(zfname[8]),0)+') '+numtostr(zfnumber[8],2)+' ％'),align2,colorff8080;
drawtextex(1,1,x1,y1+y2*8,zfname[9]+'('+numtostr(stkcount(zfname[9]),0)+') '+numtostr(zfnumber[9],2)+' ％'),align2,color808040;
drawtextex(1,1,x1,y1+y2*9,zfname[10]+'('+numtostr(stkcount(zfname[10]),0)+') '+numtostr(zfnumber[10],2)+' ％'),align2,colorffffff;
variable:minzfstr[10]='';
paa:=0;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(minzfstr,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]),colorff;
drawtextex(1,1,x4,y1+y2,minzfstr[2]),color80ff;
drawtextex(1,1,x4,y1+y2*2,minzfstr[3]),colorffff;
drawtextex(1,1,x4,y1+y2*3,minzfstr[4]),colorff00;
drawtextex(1,1,x4,y1+y2*4,minzfstr[5]),colorff0000;
drawtextex(1,1,x4,y1+y2*5,minzfstr[6]),colorffff00;
drawtextex(1,1,x4,y1+y2*6,minzfstr[7]),colorff00ff;
drawtextex(1,1,x4,y1+y2*7,minzfstr[8]),colorff8080;
drawtextex(1,1,x4,y1+y2*8,minzfstr[9]),color808040;
drawtextex(1,1,x4,y1+y2*9,minzfstr[10]),colorffffff;

指标公式下载地址

上一指标公式：版绝对主升浪副图有未来公式下载 飞狐源码未来指标 源码

下一指标公式：漓江渔歌第4版公式下载 飞狐漓江指标 源码

相关飞狐公式推荐

指标公式下载注意

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

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

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

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

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

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

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

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

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

☉ 本文板块聚焦+图分享也是一种享受~快乐每一天公式下载 飞狐板块源码指标 源码仅供学习研究。