VARIABLE:销售毛利率1[8]='str',主营收入1[8]='str',主营利润1[8]='str',净利1[8]='str',财务费用1[8]='str',现金流净额1[8]='str',营收增长1[8]='str',净利增长1[8]='str',每股收益1[8]='str',每股净资产1[8]='str',净资收益率1[8]='str',现金流增长1[8]='str',日期1[8]='str';
VARIABLE:SJA[4]='str',SYA[4]='str',TTA=1,ttb=1;
{控盘情况:人均持股}
jdgA:=f10FIND('控盘情况',50);
SJTA:=F10TEXT(F10FIND(' │',jdgA)+3,500);
SJA[1]:=STRmid(SJTA,111,12);
SJA[2]:=STRMID(SJTA,171,14);
SJA[3]:=STRMID(SJTA,233,14);
SJA[4]:=STRMID(SJTA,295,14);
jdg0:=F10FIND('控盘情况',50);
SYTA:=F10TEXT(f10find(' │',jdg0)+3,500);
SyA[1]:=STRmid(SyTA,141,12);
SyA[2]:=STRMID(SyTA,201,14);
SyA[3]:=STRMID(SyTA,263,14);
SyA[4]:=STRMID(SyTA,325,14);
新:=capital/STRTONUM(SYA[1])*100;
YJ1:=capital/STRTONUM(SYA[2])*100;
YJ2:=capital/STRTONUM(SYA[3])*100;
YJ3:=capital/STRTONUM(SYA[4])*100;
上:=IF(YJ1<>0,YJ1,YJ2);
SY:=IF(新<>0,新,上);
STICKLINE(BARPOS=DATacOUNT-9,0,新,35,0),COLOR0099FF;
STICKLINE(BARPOS=DATACOUNT-17,0,YJ1,35,0),COLOR008800;
STICKLINE(BARPOS=DATACOUNT-25,0,YJ2,35,0),COLOR000099;
STICKLINE(BARPOS=DATACOUNT-33,0,YJ3,35,0),COLORBB00BB;
DRAWTEXT(BARPOS=DATACOUNT-11,0,'
'+SJA[1]),PXUP60,ColorFFFFFF;
DRAWTEXT(BARPOS=DATACOUNT-19,0,'
'+SJA[2]),PXUP60,ColorFFFFFF;
DRAWTEXT(BARPOS=DATACOUNT-27,0,'
'+SJA[3]),PXUP60,ColorFFFFFF;
DRAWTEXT(BARPOS=DATACOUNT-35,0,'
'+SJA[4]),PXUP60,ColorFFFFFF;
DRAWTEXTEX(C,1,3,950,'人均持股(环比变化%) | '+NUMTOSTR(capital/STRTONUM(SYA[1])*100,0)+'('+NUMTOSTR((capital/STRTONUM(SYA[1])-capital/STRTONUM(SYA[2]))/(capital/STRTONUM(SYA[2]))*100,2)+') | '+NUMTOSTR(capital/STRTONUM(SYA[2])*100,0)+'('+NUMTOSTR((capital/STRTONUM(SYA[2])-capital/STRTONUM(SYA[3]))/(capital/STRTONUM(SYA[3]))*100,2)+') | '+NUMTOSTR(capital/STRTONUM(SYA[3])*100,0)+'('+NUMTOSTR((capital/STRTONUM(SYA[3])-capital/STRTONUM(SYA[4]))/(capital/STRTONUM(SYA[4]))*100,2)+') | '+NUMTOSTR(capital/STRTONUM(SYA[4])*100,0)+'(/) |'),Coloryellow;
DRAWTEXTEX((capital/STRTONUM(SYA[1])-capital/STRTONUM(SYA[2]))/(capital/STRTONUM(SYA[2]))*100>0,1,3,950,' | '+NUMTOSTR(capital/STRTONUM(SYA[1])*100,0)+'('+NUMTOSTR((capital/STRTONUM(SYA[1])-capital/STRTONUM(SYA[2]))/(capital/STRTONUM(SYA[2]))*100,2)+') | '),Colorred;
DRAWTEXTEX(1,1,3,3,'☆流通股:'+NUMTOSTR(FINANCE(7)/10000,2)+'亿股'),colormagenta;
DRAWTEXTEX(1,1,170,3,'☆总资产:'+NUMTOSTR(FINANCE(10)/100000,2)+'亿元'),colorwhite;
DRAWTEXTEX(1,1,350,3,'☆无形资产:'+NUMTOSTR(FINANCE(13)/10,2)+'万元'),colormagenta;
DRAWTEXTEX(1,1,540,3,'☆流动负债:'+NUMTOSTR(FINANCE(15)/10,2)+'万元'),colorwhite;
DRAWTEXTEX(1,1,720,3,'☆市盈率:'+NUMTOSTR(DYNAINFO(39),2)),colormagenta;
r:=F10FIND('财务分析',1);
r1:=F10FIND('财务指标-每股指标:',r);
qd11:=f10find('指标名称',r1);
qd12:=f10find('指标名称',qd11+10);
wz91:=f10find('每股收益',r1);
wz92:=f10find('每股收益',wz91+100);
wza1:=f10find('每股净资产',r1);
wza2:=f10find('每股净资产',wza1+100);
日期1[1]:=F10TEXT(qd11+16,10);
日期1[2]:=F10TEXT(qd11+30,10);
日期1[3]:=F10TEXT(qd11+44,10);
日期1[4]:=F10TEXT(qd11+58,10);
日期1[5]:=F10TEXT(qd12+16,10);
日期1[6]:=F10TEXT(qd12+30,10);
日期1[7]:=F10TEXT(qd12+44,10);
日期1[8]:=F10TEXT(qd12+58,10);
每股收益1[1]:=F10TEXT(wz91+20,12);
每股收益1[2]:=F10TEXT(wz91+34,12);
每股收益1[3]:=F10TEXT(wz91+48,12);
每股收益1[4]:=F10TEXT(wz91+62,12);
每股收益1[5]:=F10TEXT(wz92+20,12);
每股收益1[6]:=F10TEXT(wz92+34,12);
每股收益1[7]:=F10TEXT(wz92+48,12);
每股收益1[8]:=F10TEXT(wz92+62,12);
每股净资产1[1]:=F10TEXT(wza1+20,12);
每股净资产1[2]:=F10TEXT(wza1+34,12);
每股净资产1[3]:=F10TEXT(wza1+48,12);
每股净资产1[4]:=F10TEXT(wza1+62,12);
每股净资产1[5]:=F10TEXT(wza2+20,12);
每股净资产1[6]:=F10TEXT(wza2+34,12);
每股净资产1[7]:=F10TEXT(wza2+48,12);
每股净资产1[8]:=F10TEXT(wza2+62,12);
r2:=F10FIND('财务指标-盈利能力:',r);
Wz11:=f10find('销售毛利率',r2);
Wz12:=f10find('销售毛利率',wz11+100);
Wzb1:=f10find('净资产收益率',r2);
Wzb2:=f10find('净资产收益率',wzb1+100);
销售毛利率1[1]:=F10TEXT(wz11+20,12);
销售毛利率1[2]:=F10TEXT(wz11+34,12);
销售毛利率1[3]:=F10TEXT(wz11+48,12);
销售毛利率1[4]:=F10TEXT(wz11+62,12);
销售毛利率1[5]:=F10TEXT(wz12+20,12);
销售毛利率1[6]:=F10TEXT(wz12+34,12);
销售毛利率1[7]:=F10TEXT(wz12+48,12);
销售毛利率1[8]:=F10TEXT(wz12+62,12);
净资收益率1[1]:=F10TEXT(wzb1+20,12);
净资收益率1[2]:=F10TEXT(wzb1+34,12);
净资收益率1[3]:=F10TEXT(wzb1+48,12);
净资收益率1[4]:=F10TEXT(wzb1+62,12);
净资收益率1[5]:=F10TEXT(wzb2+20,12);
净资收益率1[6]:=F10TEXT(wzb2+34,12);
净资收益率1[7]:=F10TEXT(wzb2+48,12);
净资收益率1[8]:=F10TEXT(wzb2+62,12);
R3:=F10FIND('财务指标-增长能力:',r);
Wz71:=f10find('主营业务收入增长率',r3);
Wz72:=f10find('主营业务收入增长率',wz71+100);
Wz81:=f10find('净利润增长率',r3);
Wz82:=f10find('净利润增长率',wz81+100);
营收增长1[1]:=F10TEXT(wz71+20,12);
营收增长1[2]:=F10TEXT(wz71+34,12);
营收增长1[3]:=F10TEXT(wz71+48,12);
营收增长1[4]:=F10TEXT(wz71+62,12);
营收增长1[5]:=F10TEXT(wz72+20,12);
营收增长1[6]:=F10TEXT(wz72+34,12);
营收增长1[7]:=F10TEXT(wz72+48,12);
营收增长1[8]:=F10TEXT(wz72+62,12);
净利增长1[1]:=F10TEXT(wz81+20,12);
净利增长1[2]:=F10TEXT(wz81+34,12);
净利增长1[3]:=F10TEXT(wz81+48,12);
净利增长1[4]:=F10TEXT(wz81+62,12);
净利增长1[5]:=F10TEXT(wz82+20,12);
净利增长1[6]:=F10TEXT(wz82+34,12);
净利增长1[7]:=F10TEXT(wz82+48,12);
净利增长1[8]:=F10TEXT(wz82+62,12);
r4:=F10FIND('财务简表-利润表(单位:万元):',r);
Wz21:=f10find('主营业务收入',r4);
Wz22:=f10find('主营业务收入',wz21+100);
Wz31:=f10find('主营业务利润',r4);
Wz32:=f10find('主营业务利润',wz31+100);
Wz41:=f10find('净利润',r4);
Wz42:=f10find('净利润',wz41+100);
主营收入1[1]:=F10TEXT(wz21+20,12);
主营收入1[2]:=F10TEXT(wz21+34,12);
主营收入1[3]:=F10TEXT(wz21+48,12);
主营收入1[4]:=F10TEXT(wz21+62,12);
主营收入1[5]:=F10TEXT(wz22+20,12);
主营收入1[6]:=F10TEXT(wz22+34,12);
主营收入1[7]:=F10TEXT(wz22+48,12);
主营收入1[8]:=F10TEXT(wz22+62,12);
主营利润1[1]:=F10TEXT(wz31+20,12);
主营利润1[2]:=F10TEXT(wz31+34,12);
主营利润1[3]:=F10TEXT(wz31+48,12);
主营利润1[4]:=F10TEXT(wz31+62,12);
主营利润1[5]:=F10TEXT(wz32+20,12);
主营利润1[6]:=F10TEXT(wz32+34,12);
主营利润1[7]:=F10TEXT(wz32+48,12);
主营利润1[8]:=F10TEXT(wz32+62,12);
净利1[1]:=F10TEXT(wz41+20,12);
净利1[2]:=F10TEXT(wz41+34,12);
净利1[3]:=F10TEXT(wz41+48,12);
净利1[4]:=F10TEXT(wz41+62,12);
净利1[5]:=F10TEXT(wz42+20,12);
净利1[6]:=F10TEXT(wz42+34,12);
净利1[7]:=F10TEXT(wz42+48,12);
净利1[8]:=F10TEXT(wz42+62,12);
R5:=F10FIND('财务简表-现金流量表:',r);
Wz51:=f10find('财务费用',r5);
Wz52:=f10find('财务费用',wz51+100);
Wz61:=f10find('经营活动现金流量',r5);
Wz62:=f10find('经营活动现金流量',wz61+100);
财务费用1[1]:=F10TEXT(wz51+20,12);
财务费用1[2]:=F10TEXT(wz51+34,12);
财务费用1[3]:=F10TEXT(wz51+48,12);
财务费用1[4]:=F10TEXT(wz51+62,12);
财务费用1[5]:=F10TEXT(wz52+20,12);
财务费用1[6]:=F10TEXT(wz52+34,12);
财务费用1[7]:=F10TEXT(wz52+48,12);
财务费用1[8]:=F10TEXT(wz52+62,12);
现金流净额1[1]:=F10TEXT(wz61+20,12);
现金流净额1[2]:=F10TEXT(wz61+34,12);
现金流净额1[3]:=F10TEXT(wz61+48,12);
现金流净额1[4]:=F10TEXT(wz61+62,12);
现金流净额1[5]:=F10TEXT(wz62+20,12);
现金流净额1[6]:=F10TEXT(wz62+34,12);
现金流净额1[7]:=F10TEXT(wz62+48,12);
现金流净额1[8]:=F10TEXT(wz62+62,12);
DRAWTEXTEX(C,1,10,80,' '+日期1[1] +' '+日期1[2]+ ' '+日期1[3]+ ' '+日期1[4]+ ' '+日期1[5]+ ' '+日期1[6]+ ' '+日期1[7]+ ' '+日期1[8]),Color00FFFF;
DRAWTEXTEX(C,1,3,150,'销售毛利率%: |'+销售毛利率1[1]+' |'+销售毛利率1[2]+ ' |'+销售毛利率1[3]+ ' |'+销售毛利率1[4]+ ' |'+销售毛利率1[5]+ ' |'+销售毛利率1[6]+ ' |'+销售毛利率1[7]+ ' |'+销售毛利率1[8]),Colorcyan;
DRAWTEXTEX(C,1,3,220,'主营业务收入(万元)|'+主营收入1[1] +' |'+主营收入1[2]+ ' |'+主营收入1[3]+ ' |'+主营收入1[4]+ ' |'+主营收入1[5]+ ' |'+主营收入1[6]+ ' |'+主营收入1[7]+ ' |'+主营收入1[8]),Colorwhite;
DRAWTEXTEX(C,1,3,290,'主营业务利润(万元)|'+主营利润1[1] +' |'+主营利润1[2]+ ' |'+主营利润1[3]+ ' |'+主营利润1[4]+ ' |'+主营利润1[5]+ ' |'+主营利润1[6]+ ' |'+主营利润1[7]+ ' |'+主营利润1[8]),Colorcyan;
DRAWTEXTEX(C,1,3,360,'净利润(万元) |'+净利1[1] +' |'+净利1[2]+ ' |'+净利1[3]+ ' |'+净利1[4]+ ' |'+净利1[5]+ ' |'+净利1[6]+ ' |'+净利1[7]+ ' |'+净利1[8]),Colorwhite;
DRAWTEXTEX(C,1,3,430,'财务费用(万元) |'+财务费用1[1] +' |'+财务费用1[2]+ ' |'+财务费用1[3]+ ' |'+财务费用1[4]+ ' |'+财务费用1[5]+ ' |'+财务费用1[6]+ ' |'+财务费用1[7]+ ' |'+财务费用1[8]),Colorcyan;
DRAWTEXTEX(C,1,3,500,'主营收入增长率% |'+营收增长1[1] +' |'+营收增长1[2]+ ' |'+营收增长1[3]+ ' |'+营收增长1[4]+ ' |'+营收增长1[5]+ ' |'+营收增长1[6]+ ' |'+营收增长1[7]+ ' |'+营收增长1[8]),Colorwhite;
DRAWTEXTEX(C,1,3,570,'净利润增长率% |'+净利增长1[1] +' |'+净利增长1[2]+ ' |'+净利增长1[3]+ ' |'+净利增长1[4]+ ' |'+净利增长1[5]+ ' |'+净利增长1[6]+ ' |'+净利增长1[7]+ ' |'+净利增长1[8]),Colorcyan;
DRAWTEXTEX(C,1,3,640,'现金流量净额(万元)|'+现金流净额1[1] +' |'+现金流净额1[2]+ ' |'+现金流净额1[3]+ ' |'+现金流净额1[4]+ ' |'+现金流净额1[5]+ ' |'+现金流净额1[6]+ ' |'+现金流净额1[7]+ ' |'+现金流净额1[8]),Colorwhite;
DRAWTEXTEX(C,1,3,710,'每股收益(元) |'+每股收益1[1] +' |'+每股收益1[2]+ ' |'+每股收益1[3]+ ' |'+每股收益1[4]+ ' |'+每股收益1[5]+ ' |'+每股收益1[6]+ ' |'+每股收益1[7]+ ' |'+每股收益1[8]),Colorcyan;
DRAWTEXTEX(C,1,3,780,'每股净资产(元) |'+每股净资产1[1] +' |'+每股净资产1[2]+ ' |'+每股净资产1[3]+ ' |'+每股净资产1[4]+ ' |'+每股净资产1[5]+ ' |'+每股净资产1[6]+ ' |'+每股净资产1[7]+ ' |'+每股净资产1[8]),Colorwhite;
DRAWTEXTEX(C,1,3,850,'净资产收益率%: |'+净资收益率1[1] +' |'+净资收益率1[2]+ ' |'+净资收益率1[3]+ ' |'+净资收益率1[4]+ ' |'+净资收益率1[5]+ ' |'+净资收益率1[6]+ ' |'+净资收益率1[7]+ ' |'+净资收益率1[8]),Colorcyan;
DRAWTEXTEX(STRTONUM(销售毛利率1[1])>STRTONUM(销售毛利率1[2]) and STRTONUM(销售毛利率1[1])>0,1,3,150,' |'+销售毛利率1[1]+' |'),Colorred;
DRAWTEXTEX(STRTONUM(营收增长1[1])>0,1,3,500,' |'+营收增长1[1] +' |'),Colorred;
DRAWTEXTEX(STRTONUM(净利增长1[1])>0,1,3,570,' |'+净利增长1[1] +' |'),Colorred;