股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
上一主题 下一主题

[飞狐] 飞狐财务数据指标源码


    [-----复制链接-----]
楼主
 通达信源码安装路径:1,工具栏点击公式选项。2,弹出公式窗口点击新建。3,把源码复制到指标编辑器保存。4,回到K线图界面安装建立好的公式 || 2023-10-25 14:36:33

以下是飞狐财务数据指标源码

飞狐财务数据指标源码

x1:=F10FIND('【每股指标】',1);
y1:=F10FIND('财务指标(单位)',x1);//年份;
n1:=STRTONUM(F10TEXT(y1+20,4));
nn1:=STRTONUM(F10TEXT(y1+25,2));//月;
nn2:=STRTONUM(F10TEXT(y1+28,2));//日;
n2:=STRTONUM(F10TEXT(y1+32,4));
n3:=STRTONUM(F10TEXT(y1+44,4));
n4:=STRTONUM(F10TEXT(y1+56,4));
DRAWTEXTEX(c,0,5,0,'年报: '),coloryellow;
DRAWTEXTEX(c,0,180,0,NUMTOSTR(n1,0)+'-'+NUMTOSTR(nn1,0)+'-'+NUMTOSTR(nn2,0)),coloryellow;
DRAWTEXTEX(c,0,250,0,NUMTOSTR(n2,0)+'年'),coloryellow;
DRAWTEXTEX(c,0,320,0,NUMTOSTR(n3,0)+'年'),coloryellow;
DRAWTEXTEX(c,0,390,0,NUMTOSTR(n4,0)+'年'),coloryellow;

//年报
a1:=F10FIND('【每股指标】',1);//每股收益;
a2:=F10FIND('每股收益(元)',a1);
aa1:=STRTONUM(F10TEXT(a2+20,10));
aa2:=STRTONUM(F10TEXT(a2+32,10));
aa3:=STRTONUM(F10TEXT(a2+44,10));
aa4:=STRTONUM(F10TEXT(a2+56,10));
DRAWTEXTEX(c,0,5,15,'每股收益(元): '),Colorred;
DRAWTEXTEX(c,0,180,15,NUMTOSTR(aa1,3)),Colorred;
DRAWTEXTEX(c,0,250,15,NUMTOSTR(aa2,3)),Colorred;
DRAWTEXTEX(c,0,320,15,NUMTOSTR(aa3,3)),Colorred;
DRAWTEXTEX(c,0,390,15,NUMTOSTR(aa4,3)),Colorred;

b1:=F10FIND('每股收益扣除(元)',a1);//每股收益扣除;
bb1:=STRTONUM(F10TEXT(b1+20,10));
bb2:=STRTONUM(F10TEXT(b1+32,10));
bb3:=STRTONUM(F10TEXT(b1+44,10));
bb4:=STRTONUM(F10TEXT(b1+56,10));
DRAWTEXTEX(c,0,5,30,'每股收益扣除(元): '),Color8000FF;
DRAWTEXTEX(c,0,180,30,NUMTOSTR(bb1,3)),Color8000FF;
DRAWTEXTEX(c,0,250,30,NUMTOSTR(bb2,3)),Color8000FF;
DRAWTEXTEX(c,0,320,30,NUMTOSTR(bb3,3)),Color8000FF;
DRAWTEXTEX(c,0,390,30,NUMTOSTR(bb4,3)),Color8000FF;

c1:=F10FIND('每股净资产(元)',a1);//每股净资产;
cc1:=STRTONUM(F10TEXT(c1+20,10));
cc2:=STRTONUM(F10TEXT(c1+32,10));
cc3:=STRTONUM(F10TEXT(c1+44,10));
cc4:=STRTONUM(F10TEXT(c1+56,10));
DRAWTEXTEX(c,0,5,45,'每股净资产(元): '),ColorFFFF80;
DRAWTEXTEX(c,0,180,45,NUMTOSTR(cc1,2)),ColorFFFF80;
DRAWTEXTEX(c,0,250,45,NUMTOSTR(cc2,2)),ColorFFFF80;
DRAWTEXTEX(c,0,320,45,NUMTOSTR(cc3,2)),ColorFFFF80;
DRAWTEXTEX(c,0,390,45,NUMTOSTR(cc4,2)),ColorFFFF80;

d1:=F10FIND('【利润构成与盈利能力】',1); //净资产收益率;
d2:=F10FIND('净资产收益率(%)',d1);
dd1:=STRTONUM(F10TEXT(d2+20,10));
dd2:=STRTONUM(F10TEXT(d2+32,10));
dd3:=STRTONUM(F10TEXT(d2+44,10));
dd4:=STRTONUM(F10TEXT(d2+56,10));
DRAWTEXTEX(c,0,5,60,'净资产收益率: '),ColorFF8000;
DRAWTEXTEX(c,0,180,60,NUMTOSTR(dd1,2)+'%'),ColorFF8000;
DRAWTEXTEX(c,0,250,60,NUMTOSTR(dd2,2)+'%'),ColorFF8000;
DRAWTEXTEX(c,0,320,60,NUMTOSTR(dd3,2)+'%'),ColorFF8000;
DRAWTEXTEX(c,0,390,60,NUMTOSTR(dd4,2)+'%'),ColorFF8000;

e1:=F10FIND('每股现金流量(元)',a1);//每股现金流量;
ee1:=STRTONUM(F10TEXT(e1+20,10));
ee2:=STRTONUM(F10TEXT(e1+32,10));
ee3:=STRTONUM(F10TEXT(e1+44,10));
ee4:=STRTONUM(F10TEXT(e1+56,10));
DRAWTEXTEX(c,0,5,75,'每股现金流量(元): '),ColorFF80FF;
DRAWTEXTEX(c,0,180,75,NUMTOSTR(ee1,3)),ColorFF80FF;
DRAWTEXTEX(c,0,250,75,NUMTOSTR(ee2,3)),ColorFF80FF;
DRAWTEXTEX(c,0,320,75,NUMTOSTR(ee3,3)),ColorFF80FF;
DRAWTEXTEX(c,0,390,75,NUMTOSTR(ee4,3)),ColorFF80FF;

f1:=F10FIND('每股资本公积金(元)',a1);//每股资本公积金;
ff1:=STRTONUM(F10TEXT(f1+20,10));
ff2:=STRTONUM(F10TEXT(f1+32,10));
ff3:=STRTONUM(F10TEXT(f1+44,10));
ff4:=STRTONUM(F10TEXT(f1+56,10));
DRAWTEXTEX(c,0,5,90,'每股资本公积金(元): '),Color4080FF;
DRAWTEXTEX(c,0,180,90,NUMTOSTR(ff1,4)),Color4080FF;
DRAWTEXTEX(c,0,250,90,NUMTOSTR(ff2,4)),Color4080FF;
DRAWTEXTEX(c,0,320,90,NUMTOSTR(ff3,4)),Color4080FF;
DRAWTEXTEX(c,0,390,90,NUMTOSTR(ff4,4)),Color4080FF;

g1:=F10FIND('每股未分配利润(元)',a1);//每股未分配利润;
gg1:=STRTONUM(F10TEXT(g1+20,10));
gg2:=STRTONUM(F10TEXT(g1+32,10));
gg3:=STRTONUM(F10TEXT(g1+44,10));
gg4:=STRTONUM(F10TEXT(g1+56,10));
DRAWTEXTEX(c,0,5,105,'每股未分配利润(元): '),Color00FF00;
DRAWTEXTEX(c,0,180,105,NUMTOSTR(gg1,2)),Color00FF00;
DRAWTEXTEX(c,0,250,105,NUMTOSTR(gg2,2)),Color00FF00;
DRAWTEXTEX(c,0,320,105,NUMTOSTR(gg3,2)),Color00FF00;
DRAWTEXTEX(c,0,390,105,NUMTOSTR(gg4,2)),Color00FF00;

h1:=F10FIND('【经营与发展能力】',1);//营业利润增长率;
h2:=F10FIND('营业利润增长率(%)',h1);
hh1:=STRTONUM(F10TEXT(h2+20,10));
hh2:=STRTONUM(F10TEXT(h2+32,10));
hh3:=STRTONUM(F10TEXT(h2+44,10));
hh4:=STRTONUM(F10TEXT(h2+56,10));
DRAWTEXTEX(c,0,5,120,'营业利润增长率(%): '),Color7D7DFF;
DRAWTEXTEX(c,0,180,120,NUMTOSTR(hh1,2)+'%'),Color7D7DFF;
DRAWTEXTEX(c,0,250,120,NUMTOSTR(hh2,2)+'%'),Color7D7DFF;
DRAWTEXTEX(c,0,320,120,NUMTOSTR(hh3,2)+'%'),,Color7D7DFF;
DRAWTEXTEX(c,0,390,120,NUMTOSTR(hh4,2)+'%'),Color7D7DFF;

i1:=F10FIND('税后利润增长率(%)',h1);//税后利润增长率;
ii1:=STRTONUM(F10TEXT(i1+20,10));
ii2:=STRTONUM(F10TEXT(i1+32,10));
ii3:=STRTONUM(F10TEXT(i1+44,10));
ii4:=STRTONUM(F10TEXT(i1+56,10));
DRAWTEXTEX(c,0,5,135,'税后利润增长率: '),Color383EFF;
DRAWTEXTEX(c,0,180,135,NUMTOSTR(ii1,2)+'%'),Color383EFF;
DRAWTEXTEX(c,0,250,135,NUMTOSTR(ii2,2)+'%'),Color383EFF;
DRAWTEXTEX(c,0,320,135,NUMTOSTR(ii3,2)+'%'),,Color383EFF;
DRAWTEXTEX(c,0,390,135,NUMTOSTR(ii4,2)+'%'),Color383EFF;

//季报
k1:=F10FIND('【历年简要财务指标】',1);
k2:=F10FIND('财务指标(单位)',k1);
kk1:=STRTONUM(F10TEXT(k2+20,4));
kk12:=STRTONUM(F10TEXT(k2+25,2));//月;
kk13:=STRTONUM(F10TEXT(k2+28,2));//日;
kk2:=STRTONUM(F10TEXT(k2+32,4));
kk22:=STRTONUM(F10TEXT(k2+37,2));
kk23:=STRTONUM(F10TEXT(k2+40,2));
kk3:=STRTONUM(F10TEXT(k2+44,4));
kk32:=STRTONUM(F10TEXT(k2+49,2));
kk33:=STRTONUM(F10TEXT(k2+52,2));
kk4:=STRTONUM(F10TEXT(k2+56,4));
kk42:=STRTONUM(F10TEXT(k2+61,2));
kk43:=STRTONUM(F10TEXT(k2+64,2));
DRAWTEXTEX(c,0,450,0,'季报: '),ColorFF80FF;
DRAWTEXTEX(c,0,520,0,NUMTOSTR(kk1,0)+'-'+NUMTOSTR(kk12,0)+'-'+NUMTOSTR (kk13,0)),ColorFF80FF;
DRAWTEXTEX(c,0,590,0,NUMTOSTR(kk2,0)+'-'+NUMTOSTR(kk22,0)+'-'+NUMTOSTR (kk23,0)),ColorFF80FF;
DRAWTEXTEX(c,0,660,0,NUMTOSTR(kk3,0)+'-'+NUMTOSTR(kk32,0)+'-'+NUMTOSTR (kk33,0)),ColorFF80FF;
DRAWTEXTEX(c,0,730,0,NUMTOSTR(kk4,0)+'-'+NUMTOSTR(kk42,0)+'-'+NUMTOSTR (kk43,0)),ColorFF80FF;

l1:=F10FIND('每股收益(元)',k1);
ll1:=STRTONUM(F10TEXT(l1+20,10));//每股收益;
ll2:=STRTONUM(F10TEXT(l1+32,10));
ll3:=STRTONUM(F10TEXT(l1+44,10));
ll4:=STRTONUM(F10TEXT(l1+56,10));
DRAWTEXTEX(c,0,450,15,'每股收益: '),Colorred;
DRAWTEXTEX(c,0,530,15,NUMTOSTR(ll1,3)),Colorred;
DRAWTEXTEX(c,0,600,15,NUMTOSTR(ll2,3)),Colorred;
DRAWTEXTEX(c,0,670,15,NUMTOSTR(ll3,3)),Colorred;
DRAWTEXTEX(c,0,740,15,NUMTOSTR(ll4,3)),Colorred;

m1:=F10FIND('每股收益扣除(元)',k1);
mm1:=STRTONUM(F10TEXT(m1+20,10));//每股收益扣除;
mm2:=STRTONUM(F10TEXT(m1+32,10));
mm3:=STRTONUM(F10TEXT(m1+44,10));
mm4:=STRTONUM(F10TEXT(m1+56,10));
DRAWTEXTEX(c,0,450,30,'扣除后收益: '),Color8000FF;
DRAWTEXTEX(c,0,530,30,NUMTOSTR(mm1,3)),Color8000FF;
DRAWTEXTEX(c,0,600,30,NUMTOSTR(mm2,3)),Color8000FF;
DRAWTEXTEX(c,0,670,30,NUMTOSTR(mm3,3)),Color8000FF;
DRAWTEXTEX(c,0,740,30,NUMTOSTR(mm4,3)),Color8000FF;

n1:=F10FIND('每股净资产(元)',k1);
nn1:=STRTONUM(F10TEXT(n1+20,10));//每股净资产;
nn2:=STRTONUM(F10TEXT(n1+32,10));
nn3:=STRTONUM(F10TEXT(n1+44,10));
nn4:=STRTONUM(F10TEXT(n1+56,10));
DRAWTEXTEX(c,0,450,45,'每股净资产:'),ColorFFFF80;
DRAWTEXTEX(c,0,530,45,NUMTOSTR(nn1,2)),ColorFFFF80;
DRAWTEXTEX(c,0,600,45,NUMTOSTR(nn2,2)),ColorFFFF80;
DRAWTEXTEX(c,0,670,45,NUMTOSTR(nn3,2)),ColorFFFF80;
DRAWTEXTEX(c,0,740,45,NUMTOSTR(nn4,2)),ColorFFFF80;

o1:=F10FIND('净资产收益率(%)',k1);
oo1:=STRTONUM(F10TEXT(o1+20,10));//净资产收益率;
oo2:=STRTONUM(F10TEXT(o1+32,10));
oo3:=STRTONUM(F10TEXT(o1+44,10));
oo4:=STRTONUM(F10TEXT(o1+56,10));
DRAWTEXTEX(c,0,450,60,'净资收益率:'),ColorFF8000;
DRAWTEXTEX(c,0,530,60,NUMTOSTR(oo1,2)+'%'),ColorFF8000;
DRAWTEXTEX(c,0,600,60,NUMTOSTR(oo2,2)+'%'),ColorFF8000;
DRAWTEXTEX(c,0,670,60,NUMTOSTR(oo3,2)+'%'),ColorFF8000;
DRAWTEXTEX(c,0,740,60,NUMTOSTR(oo4,2)+'%'),ColorFF8000;

p1:=F10FIND('每股资本公积金(元)',k1);
pp1:=STRTONUM(F10TEXT(p1+20,10));//每股资本公积金;
pp2:=STRTONUM(F10TEXT(p1+32,10));
pp3:=STRTONUM(F10TEXT(p1+44,10));
pp4:=STRTONUM(F10TEXT(p1+56,10));
DRAWTEXTEX(c,0,450,75,'资本公积金:'),Color4080FF;
DRAWTEXTEX(c,0,530,75,NUMTOSTR(pp1,4)),Color4080FF;
DRAWTEXTEX(c,0,600,75,NUMTOSTR(pp2,4)),Color4080FF;
DRAWTEXTEX(c,0,670,75,NUMTOSTR(pp3,4)),Color4080FF;
DRAWTEXTEX(c,0,740,75,NUMTOSTR(pp4,4)),Color4080FF;

q1:=F10FIND('每股未分配利润(元)',k1);
qq1:=STRTONUM(F10TEXT(q1+20,10));//每股未分配利润;
qq2:=STRTONUM(F10TEXT(q1+32,10));
qq3:=STRTONUM(F10TEXT(q1+44,10));
qq4:=STRTONUM(F10TEXT(q1+56,10));
DRAWTEXTEX(c,0,450,90,'未分配利润:'),Color383EFF;
DRAWTEXTEX(c,0,530,90,NUMTOSTR(qq1,3)),Color383EFF;
DRAWTEXTEX(c,0,600,90,NUMTOSTR(qq2,3)),Color383EFF;
DRAWTEXTEX(c,0,670,90,NUMTOSTR(qq3,3)),Color383EFF;
DRAWTEXTEX(c,0,740,90,NUMTOSTR(qq4,3)),Color383EFF;

r1:=F10FIND('【1.机构持股汇总】【2.股东户数】【3.机构持股明细】【4.异动上榜】',1);
r2:=F10FIND('基金持股',r1);//基金持股;
rr1:=STRTONUM(F10TEXT(r2+88,15));
r3:=F10FIND('家数及|',r2);
r22:=STRTONUM(F10TEXT(r3+12,3));//共计
rr6:=STRTONUM(F10TEXT(r2+104,15));//上季比例
r4:=F10FIND('保险持股',r1);
r5:=F10FIND('社保持股',r1);
r6:=F10FIND('QFII持股',r1);
r7:=F10FIND('券商持股',r1);
r44:=STRTONUM(F10TEXT(r4+88,15));
r55:=STRTONUM(F10TEXT(r5+88,15));
r66:=STRTONUM(F10TEXT(r6+88,15));
r77:=STRTONUM(F10TEXT(r7+88,15));
rr22:=if(rr1,NUMTOSTR(rr1,2)+'%','0');
rr33:=if(r22,NUMTOSTR(r22,0)+'家','0');
rr44:=if(r44,NUMTOSTR(r44,2)+'%','0');
rr55:=if(r55,NUMTOSTR(r55,2)+'%','0');
rr66:=if(r66,NUMTOSTR(r66,2)+'%','0');
rr77:=if(r77,NUMTOSTR(r77,2)+'%','0');
rr88:=if(rr6,NUMTOSTR(rr6,2)+'%','0');
DRAWTEXTEX(c,0,450,110,'持股'),Color00FFFF;
DRAWTEXTEX(c,0,450,130,'情况'),Color00FFFF;
DRAWTEXTEX(c,0,480,122,'基金:'),ColorFF80FF;
DRAWTEXTEX(c,0,515,107,'比例:'+rr22),ColorFF80FF;
DRAWTEXTEX(c,0,515,124,'共计:'+rr33),ColorFF80FF;
DRAWTEXTEX(c,0,515,142,'上季比例:'+rr88),Color00FF00;
DRAWTEXTEX(c,0,620,110,'保险:'+rr44),Color0080FF;
DRAWTEXTEX(c,0,700,110,'社保:'+rr55),ColorFFFF80;
DRAWTEXTEX(c,0,620,130,'QFII:'+rr66),ColorFF8000;
DRAWTEXTEX(c,0,700,130,'券商:'+rr77),ColorFF8580;
DRAWTEXTEX(c,0,435,0,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,12,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,24,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,36,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,48,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,60,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,72,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,84,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,96,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,108,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,120,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,132,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,144,'│'),Colorwhite;
DRAWTEXTEX(c,0,440,104,'│'),Colorwhite;
DRAWTEXTEX(c,0,440,117,'│'),Colorwhite;
DRAWTEXTEX(c,0,440,130,'│'),Colorwhite;
DRAWTEXTEX(c,0,440,143,'│'),Colorwhite;
DRAWTEXTEX(c,0,472,108,'│'),Colorwhite;
DRAWTEXTEX(c,0,472,123,'│'),Colorwhite;
DRAWTEXTEX(c,0,472,138,'│'),Colorwhite;
DRAWTEXTEX(c,0,610,108,'│'),Colorwhite;
DRAWTEXTEX(c,0,610,123,'│'),Colorwhite;
DRAWTEXTEX(c,0,610,138,'│'),Colorwhite;
DRAWTEXTEX(c,0,775,104,'│'),Colorwhite;
DRAWTEXTEX(c,0,775,117,'│'),Colorwhite;
DRAWTEXTEX(c,0,775,130,'│'),Colorwhite;
DRAWTEXTEX(c,0,775,143,'│'),Colorwhite;
DRAWTEXTEX(c,0,445,99,'────────────────────────────'),Colorwhite;
DRAWTEXTEX(c,0,445,150,'────────────────────────────'),Colorwhite;
fh:=HIGH;
ph:=fh;
fl:=LOW;
pl:=fl;
a:=SORTPOS(ph,1,1,DATACOUNT);
a1:=SORTPOS(pl,0,1,DATACOUNT);
最高:=fh[ph[1]];
最高价量:=sum(if(c=fh[ph[1]],v,0),0),colorff99ff;
最低:=fl[pl[1]];
最低价量:=sum(if(c=fl[pl[1]],v,0),0),color00ff00;
n:(fh[ph[1]]-fl[pl[1]])*100+1,PRECISION0,linethick0;
c1:=NUMTOSTR(fl[pl[1]],2),PRECISION2;
c2:=NUMTOSTR(fl[pl[1]]+0.01,2),PRECISION2;
c3:=NUMTOSTR(fl[pl[1]]+0.02,2),PRECISION2;
c4:=NUMTOSTR(fl[pl[1]]+0.03,2),PRECISION2;
c5:=NUMTOSTR(fl[pl[1]]+0.04,2),PRECISION2;
c6:=NUMTOSTR(fl[pl[1]]+0.05,2),PRECISION2;
c7:=NUMTOSTR(fl[pl[1]]+0.06,2),PRECISION2;
c8:=NUMTOSTR(fl[pl[1]]+0.07,2),PRECISION2;
c9:=NUMTOSTR(fl[pl[1]]+0.08,2),PRECISION2;
c10:=NUMTOSTR(fl[pl[1]]+0.09,2),PRECISION2;
c11:=NUMTOSTR(fl[pl[1]]+0.10,2),PRECISION2;
c12:=NUMTOSTR(fl[pl[1]]+0.11,2),PRECISION2;
c13:=NUMTOSTR(fl[pl[1]]+0.12,2),PRECISION2;
c14:=NUMTOSTR(fl[pl[1]]+0.13,2),PRECISION2;
c15:=NUMTOSTR(fl[pl[1]]+0.14,2),PRECISION2;
c16:=NUMTOSTR(fl[pl[1]]+0.15,2),PRECISION2;
c17:=NUMTOSTR(fl[pl[1]]+0.16,2),PRECISION2;
c18:=NUMTOSTR(fl[pl[1]]+0.17,2);
c19:=NUMTOSTR(fl[pl[1]]+0.18,2);
c20:=NUMTOSTR(fl[pl[1]]+0.19,2);
c21:=NUMTOSTR(fl[pl[1]]+0.20,2);
c22:=NUMTOSTR(fl[pl[1]]+0.21,2);
c23:=NUMTOSTR(fl[pl[1]]+0.22,2);
c24:=NUMTOSTR(fl[pl[1]]+0.23,2);
c25:=NUMTOSTR(fl[pl[1]]+0.24,2);
c26:=NUMTOSTR(fl[pl[1]]+0.25,2);

v1:=NUMTOSTR(sum(if(c=fl[pl[1]],v,0),0),0);
v2:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-1)),v,0),0),0),PRECISION0;
v3:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-2)),v,0),0),0),PRECISION0;
v4:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-3)),v,0),0),0),PRECISION0;
v5:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-4)),v,0),0),0),PRECISION0;
v6:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-5)),v,0),0),0),PRECISION0;
v7:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-6)),v,0),0),0),PRECISION0;
v8:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-7)),v,0),0),0),PRECISION0;
v9:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-8)),v,0),0),0),PRECISION0;
v10:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-9)),v,0),0),0),PRECISION0;
v11:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-10)),v,0),0),0),PRECISION0;
v12:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-11)),v,0),0),0),PRECISION0;
v13:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-12)),v,0),0),0),PRECISION0;
v14:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-13)),v,0),0),0),PRECISION0;
v15:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-14)),v,0),0),0),PRECISION0;
v16:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-15)),v,0),0),0),PRECISION0;
v17:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-16)),v,0),0),0),PRECISION0;
v18:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-17)),v,0),0),0),PRECISION0;
v19:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-18)),v,0),0),0),PRECISION0;
v20:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-19)),v,0),0),0),PRECISION0;
v21:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-20)),v,0),0),0),PRECISION0;
v22:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-21)),v,0),0),0),PRECISION0;
v23:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-22)),v,0),0),0),PRECISION0;
v24:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-23)),v,0),0),0),PRECISION0;
v25:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-24)),v,0),0),0),PRECISION0;
v26:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-25)),v,0),0),0),PRECISION0;
wv1:=NUMTOSTR(sum(if(c=fl[pl[1]],BUYVOL,0),0),0),PRECISION0;
wv2:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-1)),BUYVOL,0),0),0),PRECISION0;
wv3:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-2)),BUYVOL,0),0),0),PRECISION0;
wv4:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-3)),BUYVOL,0),0),0),PRECISION0;
wv5:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-4)),BUYVOL,0),0),0),PRECISION0;
wv6:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-5)),BUYVOL,0),0),0),PRECISION0;
wv7:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-6)),BUYVOL,0),0),0),PRECISION0;
wv8:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-7)),BUYVOL,0),0),0),PRECISION0;
wv9:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-8)),BUYVOL,0),0),0),PRECISION0;
wv10:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-9)),BUYVOL,0),0),0),PRECISION0;
wv11:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-10)),BUYVOL,0),0),0),PRECISION0;
wv12:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-11)),BUYVOL,0),0),0),PRECISION0;
wv13:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-12)),BUYVOL,0),0),0),PRECISION0;
wv14:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-13)),BUYVOL,0),0),0),PRECISION0;
wv15:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-14)),BUYVOL,0),0),0),PRECISION0;
wv16:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-15)),BUYVOL,0),0),0),PRECISION0;
wv17:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-16)),BUYVOL,0),0),0),PRECISION0;
wv18:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-17)),BUYVOL,0),0),0),PRECISION0;
wv19:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-18)),BUYVOL,0),0),0),PRECISION0;
wv20:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-19)),BUYVOL,0),0),0),PRECISION0;
wv21:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-20)),BUYVOL,0),0),0),PRECISION0;
wv22:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-21)),BUYVOL,0),0),0),PRECISION0;
wv23:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-22)),BUYVOL,0),0),0),PRECISION0;
wv24:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-23)),BUYVOL,0),0),0),PRECISION0;
wv25:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-24)),BUYVOL,0),0),0),PRECISION0;
wv26:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-25)),BUYVOL,0),0),0),PRECISION0;

nv1:=NUMTOSTR(sum(if(c=fl[pl[1]],SELLVOL,0),0),0),PRECISION0;
nv2:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-1)),SELLVOL,0),0),0),PRECISION0;
nv3:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-2)),SELLVOL,0),0),0),PRECISION0;
nv4:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-3)),SELLVOL,0),0),0),PRECISION0;
nv5:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-4)),SELLVOL,0),0),0),PRECISION0;
nv6:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-5)),SELLVOL,0),0),0),PRECISION0;
nv7:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-6)),SELLVOL,0),0),0),PRECISION0;
nv8:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-7)),SELLVOL,0),0),0),PRECISION0;
nv9:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-8)),SELLVOL,0),0),0),PRECISION0;
nv10:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-9)),SELLVOL,0),0),0),PRECISION0;
nv11:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-10)),SELLVOL,0),0),0),PRECISION0;
nv12:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-11)),SELLVOL,0),0),0),PRECISION0;
nv13:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-12)),SELLVOL,0),0),0),PRECISION0;
nv14:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-13)),SELLVOL,0),0),0),PRECISION0;
nv15:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-14)),SELLVOL,0),0),0),PRECISION0;
nv16:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-15)),SELLVOL,0),0),0),PRECISION0;
nv17:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-16)),SELLVOL,0),0),0),PRECISION0;
nv18:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-17)),SELLVOL,0),0),0),PRECISION0;
nv19:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-18)),SELLVOL,0),0),0),PRECISION0;
nv20:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-19)),SELLVOL,0),0),0),PRECISION0;
nv21:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-20)),SELLVOL,0),0),0),PRECISION0;
nv22:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-21)),SELLVOL,0),0),0),PRECISION0;
nv23:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-22)),SELLVOL,0),0),0),PRECISION0;
nv24:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-23)),SELLVOL,0),0),0),PRECISION0;
nv25:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-24)),SELLVOL,0),0),0),PRECISION0;
nv26:=NUMTOSTR(sum(if(c=fl[pl[1]]+0.01*(n-(n-25)),SELLVOL,0),0),0),PRECISION0;

EXPLAIN(1,'股价'+' '+'成 交'+' '+'外盘'+' '+'内盘'),COLORGREEN;
EXPLAIN(1,c1+' '+v1+' '+wv1+' '+nv1),COLORyellow;
EXPLAIN(1,C2+' '+v2+' '+wv2+' '+nv2),COLORyellow;
EXPLAIN(1,C3+' '+v3+' '+wv3+' '+nv3),COLORyellow;
EXPLAIN(1,C4+' '+v4+' '+wv4+' '+nv4),COLORyellow;
EXPLAIN(1,C5+' '+v5+' '+wv5+' '+nv5),COLORyellow;
EXPLAIN(1,C6+' '+v6+' '+wv6+' '+nv6),COLORyellow;
EXPLAIN(1,C7+' '+v7+' '+wv7+' '+nv7),COLORyellow;
EXPLAIN(1,C8+' '+v8+' '+wv8+' '+nv8),COLORyellow;
EXPLAIN(1,C9+' '+v9+' '+wv9+' '+nv9),COLORyellow;
EXPLAIN(1,C10+' '+v10+' '+wv10+' '+nv10),COLORyellow;
EXPLAIN(1,C11+' '+v11+' '+wv11+' '+nv11),COLORyellow;
EXPLAIN(1,C12+' '+v12+' '+wv12+' '+nv12),COLORyellow;
EXPLAIN(1,C13+' '+v13+' '+wv13+' '+nv13),COLORyellow;
EXPLAIN(1,C14+' '+v14+' '+wv14+' '+nv14),COLORyellow;
EXPLAIN(1,C15+' '+v15+' '+wv15+' '+nv15),COLORyellow;
EXPLAIN(1,C16+' '+v16+' '+wv16+' '+nv16),COLORyellow;
EXPLAIN(1,C17+' '+v17+' '+wv17+' '+nv17),COLORyellow;
EXPLAIN(1,C18+' '+v18+' '+wv18+' '+nv18),COLORyellow;
EXPLAIN(1,C19+' '+v19+' '+wv19+' '+nv19),COLORyellow;
EXPLAIN(1,C20+' '+v20+' '+wv20+' '+nv20),COLORyellow;
EXPLAIN(1,C21+' '+v21+' '+wv21+' '+nv21),COLORyellow;
EXPLAIN(1,C22+' '+v22+' '+wv22+' '+nv22),COLORyellow;
EXPLAIN(1,C23+' '+v23+' '+wv23+' '+nv23),COLORyellow;
EXPLAIN(1,C24+' '+v24+' '+wv24+' '+nv24),COLORyellow;
EXPLAIN(1,C25+' '+v25+' '+wv25+' '+nv25),COLORyellow;

a5:=EXPLAIN(1,C25+' '+v25+' '+wv25+' '+nv25),COLORyellow;
EXPLAIN(1,C26+' '+v26+' '+wv26+' '+nv26),COLORyellow;

不会编辑的下载附件





回复

举报

QQ|

GMT+8, 2024-11-17 06:34

快速回复 返回顶部 返回列表