软件名称：[B]人均持股[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：10.0 KB
官方主页：Home Page
更新时间：2016-09-24 02:17:25
软件简介:
AF:=数字位置调整;
本次日期:=REPDATE(&GDZS,1,0);
上次日期:=REPDATE(&GDZS,2,0);
本次人数:=GDZS;
上次人数:=LASTREP(&GDZS,2);
人均持股:=SHGZG/本次人数;
人数变比:=100*(本次人数/上次人数-1);
人均持股变比:=100*(上次人数/本次人数-1);
公告中断:=IF(COUNTTIME(上次日期,DATE,3)>25,'☆','');
CON1:=GDZS!=REF(GDZS,1) AND NOT(REFX(&CLOSE,线位置调整)>1);
POLYLINE(CON1,GDZS);
/*以下为股东人数字符显示位置定位的一系列判断，避免数字和线重叠*/
T1:=GDZS!=REF(GDZS,1);/*股东人数变动日*////www.70822.com
T2:=IF(T1,IF(REFX(&GDZS,1)!=GDZS,1,IF(REFX(&GDZS,2)!=GDZS,2,IF(REFX(&GDZS,3)!=GDZS,3,
IF(REFX(&GDZS,4)!=GDZS,4,IF(REFX(&GDZS,5)!=GDZS,5,IF(REFX(&GDZS,6)!=GDZS,6,IF(REFX(&GDZS,7)!=GDZS,7,
IF(REFX(&GDZS,8)!=GDZS,8,IF(REFX(&GDZS,9)!=GDZS,9,IF(REFX(&GDZS,10)!=GDZS,10,IF(REFX(&GDZS,11)!=GDZS,11,
IF(REFX(&GDZS,12)!=GDZS,12,0)))))))))))),0);/*在人数变动日判断下一个变动日离现在的天数*/
T3:=(REFX(&GDZS,T2)-GDZS);
T4:=IF(T3>0,0.95,1.05);
DRAWTEXT(CON1,T4*GDZS,'←'+TOSTRING(GDZS,0)+公告中断),colorgreen;
/*DRAWNUMBER_FIX(ISLASTBAR,0,0,0,'实际流通市值：'+TOSTRING(ZYLTGB*C/100000000,2)+'亿元');*/
TIPTEXT(CON1,GDZS,TOSTRING(人均持股,0)+'股，较上期变动'+TOSTRING(人均持股变比,0)+'%'),colorgray;
鼠标所在:TOSTRING(GDZS,0)+'人（较上期变动'+人数变比+'%'+'）';
实际流通市值:IF(ISLASTBAR,TOSTRING(ZYLTGB*C/100000000,2)+'亿元','请右移鼠标！');
/*判断十大流通股东名称为2个字或3个字(即个人股东)*/
Y1:=IF(LTCGS1/SHGZG<0.05,0,255);
Y2:=IF(LTCGS2/SHGZG<0.05,0,255);
Y3:=IF(LTCGS3/SHGZG<0.05,0,255);
Y4:=IF(LTCGS4/SHGZG<0.05,0,255);
Y5:=IF(LTCGS5/SHGZG<0.05,0,255);
Y6:=IF(LTCGS6/SHGZG<0.05,0,255);
Y7:=IF(LTCGS7/SHGZG<0.05,0,255);
Y8:=IF(LTCGS8/SHGZG<0.05,0,255);
Y9:=IF(LTCGS9/SHGZG<0.05,0,255);
Y10:=IF(LTCGS10/SHGZG<0.05,0,255);
DRAWTEXT_FIX(ISLASTBAR,0.01,0,0,STRMID(LTGDMC1,0,58)),RGB(255,255,Y1);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.10,0,STRMID(LTGDMC2,0,58)),RGB(255,255,Y2);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.20,0,STRMID(LTGDMC3,0,58)),RGB(255,255,Y3);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.30,0,STRMID(LTGDMC4,0,58)),RGB(255,255,Y4);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.40,0,STRMID(LTGDMC5,0,58)),RGB(255,255,Y5);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.50,0,STRMID(LTGDMC6,0,58)),RGB(255,255,Y6);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.60,0,STRMID(LTGDMC7,0,58)),RGB(255,255,Y7);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.70,0,STRMID(LTGDMC8,0,58)),RGB(255,255,Y8);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.80,0,STRMID(LTGDMC9,0,58)),RGB(255,255,Y9);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.90,0,STRMID(LTGDMC10,0,58)),RGB(255,255,Y10);
DRAWTEXT_FIX(ISLASTBAR,0.25+AF,0,1,TOSTRING(LTCGS1/SHGZG*100,2)+'%'),RGB(255,255,Y1);
DRAWTEXT_FIX(ISLASTBAR,0.25+AF,0.10,1,TOSTRING(LTCGS2/SHGZG*100,2)+'%'),RGB(255,255,Y2);
DRAWTEXT_FIX(ISLASTBAR,0.25+AF,0.20,1,TOSTRING(LTCGS3/SHGZG*100,2)+'%'),RGB(255,255,Y3);
DRAWTEXT_FIX(ISLASTBAR,0.25+AF,0.30,1,TOSTRING(LTCGS4/SHGZG*100,2)+'%'),RGB(255,255,Y4);
DRAWTEXT_FIX(ISLASTBAR,0.25+AF,0.40,1,TOSTRING(LTCGS5/SHGZG*100,2)+'%'),RGB(255,255,Y5);
DRAWTEXT_FIX(ISLASTBAR,0.25+AF,0.50,1,TOSTRING(LTCGS6/SHGZG*100,2)+'%'),RGB(255,255,Y6);
DRAWTEXT_FIX(ISLASTBAR,0.25+AF,0.60,1,TOSTRING(LTCGS7/SHGZG*100,2)+'%'),RGB(255,255,Y7);
DRAWTEXT_FIX(ISLASTBAR,0.25+AF,0.70,1,TOSTRING(LTCGS8/SHGZG*100,2)+'%'),RGB(255,255,Y8);
DRAWTEXT_FIX(ISLASTBAR,0.25+AF,0.80,1,TOSTRING(LTCGS9/SHGZG*100,2)+'%'),RGB(255,255,Y9);
DRAWTEXT_FIX(ISLASTBAR,0.25+AF,0.90,1,TOSTRING(LTCGS10/SHGZG*100,2)+'%'),RGB(255,255,Y10);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC1,2)=LTGDMC1,0.26+AF,0,0,'变'+TOSTRING((LTCGS1-LASTREP(<CGS1,2))/LASTREP(<CGS1,2)*100,0)+'%'),RGB(255,255,Y1);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC1,2)!=LTGDMC1,0.26+AF,0,0,'新进'),RGB(255,255,Y1);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC2,2)=LTGDMC2,0.26+AF,0.10,0,'变'+TOSTRING((LTCGS2-LASTREP(<CGS2,2))/LASTREP(<CGS2,2)*100,0)+'%'),RGB(255,255,Y2);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC2,2)!=LTGDMC2,0.26+AF,0.10,0,'新进'),RGB(255,255,Y2);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC3,2)=LTGDMC3,0.26+AF,0.20,0,'变'+TOSTRING((LTCGS3-LASTREP(<CGS3,2))/LASTREP(<CGS3,2)*100,0)+'%'),RGB(255,255,Y3);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC3,2)!=LTGDMC3,0.26+AF,0.20,0,'新进'),RGB(255,255,Y3);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC4,2)=LTGDMC4,0.26+AF,0.30,0,'变'+TOSTRING((LTCGS4-LASTREP(<CGS4,2))/LASTREP(<CGS4,2)*100,0)+'%'),RGB(255,255,Y4);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC4,2)!=LTGDMC4,0.26+AF,0.30,0,'新进'),RGB(255,255,Y4);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC5,2)=LTGDMC5,0.26+AF,0.40,0,'变'+TOSTRING((LTCGS5-LASTREP(<CGS5,2))/LASTREP(<CGS5,2)*100,0)+'%'),RGB(255,255,Y5);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC5,2)!=LTGDMC5,0.26+AF,0.40,0,'新进'),RGB(255,255,Y5);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC6,2)=LTGDMC6,0.26+AF,0.50,0,'变'+TOSTRING((LTCGS6-LASTREP(<CGS6,2))/LASTREP(<CGS6,2)*100,0)+'%'),RGB(255,255,Y6);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC6,2)!=LTGDMC6,0.26+AF,0.50,0,'新进'),RGB(255,255,Y6);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC7,2)=LTGDMC7,0.26+AF,0.60,0,'变'+TOSTRING((LTCGS7-LASTREP(<CGS7,2))/LASTREP(<CGS7,2)*100,0)+'%'),RGB(255,255,Y7);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC7,2)!=LTGDMC7,0.26+AF,0.60,0,'新进'),RGB(255,255,Y7);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC8,2)=LTGDMC8,0.26+AF,0.70,0,'变'+TOSTRING((LTCGS8-LASTREP(<CGS8,2))/LASTREP(<CGS8,2)*100,0)+'%'),RGB(255,255,Y8);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC8,2)!=LTGDMC8,0.26+AF,0.70,0,'新进'),RGB(255,255,Y8);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC9,2)=LTGDMC9,0.26+AF,0.80,0,'变'+TOSTRING((LTCGS9-LASTREP(<CGS9,2))/LASTREP(<CGS9,2)*100,0)+'%'),RGB(255,255,Y9);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC9,2)!=LTGDMC9,0.26+AF,0.80,0,'新进'),RGB(255,255,Y9);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC10,2)=LTGDMC10,0.26+AF,0.90,0,'变'+TOSTRING((LTCGS10-LASTREP(<CGS10,2))/LASTREP(<CGS10,2)*100,0)+'%'),RGB(255,255,Y10);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC10,2)!=LTGDMC10,0.26+AF,0.90,0,'新进'),RGB(255,255,Y10);
[url=http://www.70822.com/soft/sort013/sort036/down-102953.html]人均持股[/url]