软件名称：[B]大牙股东人数普屏[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：10.0 KB
官方主页：Home Page
更新时间：2016-09-23 01:27:40
软件简介:
使用前请务必了解如下事项：
1、本指标引用同花顺系统的官方数据，自动跟随同花顺更新，无需人工操作。
2、为了避免显示数字太多而产生重叠，“人均持股”及其“较上期变化”被隐藏到三角形里面，鼠标移到三角形上即可显示查看。绿数字是“股东人数”，如图上的数字被阻挡看不清楚，可把鼠标移到它上面，自然会在顶部显示出来。
3、实际流通市值同样引用同花顺官方数据，一般说是比较准确的，请自己验证。
4、有时绿色数字后面会出现一个"☆"，表示此前至少有1次期间官方没有公布数据。
5、只要把K线稍向前移动，“股东明细”便会自动消失，便于观察股东人数变化历史。
--大牙书生2016.09.22
本次日期:=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);
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;
TIPTEXT(CON1,GDZS,TOSTRING(人均持股,0)+'股，较上期变动'+TOSTRING(人均持股变比,0)+'%'),colorgray;
鼠标所在:TOSTRING(GDZS,0)+'人（较上期变动'+人数变比+'%'+'）';
实际流通市值:IF(ISLASTBAR,TOSTRING(ZYLTGB*C/100000000,2)+'亿元',NULL);
温馨提示:IF(ISLASTBAR,NULL,'▲鼠标移到今天K线位置才能显示实际流通市值 ▲K线图往右移动一点可以隐藏左侧的股东明细 ▲鼠标停留在白色“△”上可显示人均持股数据');
/*股东名称*/
DRAWTEXT_FIX(ISLASTBAR,0.01,0,0,STRMID(LTGDMC1,0,58)),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.10,0,STRMID(LTGDMC2,0,58)),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.20,0,STRMID(LTGDMC3,0,58)),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.30,0,STRMID(LTGDMC4,0,58)),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.40,0,STRMID(LTGDMC5,0,58)),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.50,0,STRMID(LTGDMC6,0,58)),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.60,0,STRMID(LTGDMC7,0,58)),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.70,0,STRMID(LTGDMC8,0,58)),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.80,0,STRMID(LTGDMC9,0,58)),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.90,0,STRMID(LTGDMC10,0,58)),RGB(255,255,255);
/*持股占比*/
DRAWTEXT_FIX(ISLASTBAR,0.25,0,1,TOSTRING(LTCGS1/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.25,0.10,1,TOSTRING(LTCGS2/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.25,0.20,1,TOSTRING(LTCGS3/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.25,0.30,1,TOSTRING(LTCGS4/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.25,0.40,1,TOSTRING(LTCGS5/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.25,0.50,1,TOSTRING(LTCGS6/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.25,0.60,1,TOSTRING(LTCGS7/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.25,0.70,1,TOSTRING(LTCGS8/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.25,0.80,1,TOSTRING(LTCGS9/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.25,0.90,1,TOSTRING(LTCGS10/SHGZG*100,2)+'%'),RGB(255,255,255);
/*持股变化*/
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC1,2)=LTGDMC1,0.26,0,0,'变'+TOSTRING((LTCGS1-LASTREP(<CGS1,2))/LASTREP(<CGS1,2)*100,0)+'%'),RGB(255,255,255);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC1,2)!=LTGDMC1,0.26,0,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC2,2)=LTGDMC2,0.26,0.10,0,'变'+TOSTRING((LTCGS2-LASTREP(<CGS2,2))/LASTREP(<CGS2,2)*100,0)+'%'),RGB(255,255,255);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC2,2)!=LTGDMC2,0.26,0.10,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC3,2)=LTGDMC3,0.26,0.20,0,'变'+TOSTRING((LTCGS3-LASTREP(<CGS3,2))/LASTREP(<CGS3,2)*100,0)+'%'),RGB(255,255,255);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC3,2)!=LTGDMC3,0.26,0.20,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC4,2)=LTGDMC4,0.26,0.30,0,'变'+TOSTRING((LTCGS4-LASTREP(<CGS4,2))/LASTREP(<CGS4,2)*100,0)+'%'),RGB(255,255,255);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC4,2)!=LTGDMC4,0.26,0.30,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC5,2)=LTGDMC5,0.26,0.40,0,'变'+TOSTRING((LTCGS5-LASTREP(<CGS5,2))/LASTREP(<CGS5,2)*100,0)+'%'),RGB(255,255,255);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC5,2)!=LTGDMC5,0.26,0.40,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC6,2)=LTGDMC6,0.26,0.50,0,'变'+TOSTRING((LTCGS6-LASTREP(<CGS6,2))/LASTREP(<CGS6,2)*100,0)+'%'),RGB(255,255,255);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC6,2)!=LTGDMC6,0.26,0.50,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC7,2)=LTGDMC7,0.26,0.60,0,'变'+TOSTRING((LTCGS7-LASTREP(<CGS7,2))/LASTREP(<CGS7,2)*100,0)+'%'),RGB(255,255,255);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC7,2)!=LTGDMC7,0.26,0.60,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC8,2)=LTGDMC8,0.26,0.70,0,'变'+TOSTRING((LTCGS8-LASTREP(<CGS8,2))/LASTREP(<CGS8,2)*100,0)+'%'),RGB(255,255,255);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC8,2)!=LTGDMC8,0.26,0.70,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC9,2)=LTGDMC9,0.26,0.80,0,'变'+TOSTRING((LTCGS9-LASTREP(<CGS9,2))/LASTREP(<CGS9,2)*100,0)+'%'),RGB(255,255,255);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC9,2)!=LTGDMC9,0.26,0.80,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC10,2)=LTGDMC10,0.26,0.90,0,'变'+TOSTRING((LTCGS10-LASTREP(<CGS10,2))/LASTREP(<CGS10,2)*100,0)+'%'),RGB(255,255,255);DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC10,2)!=LTGDMC10,0.26,0.90,0,'新进'),RGB(255,255,255);
[url=http://www.70822.com/soft/sort013/sort036/down-102923.html]大牙股东人数普屏[/url]