使用前请务必了解如下事项: 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);/*股东人数变动日*/
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.35,0,1,TOSTRING(LTCGS1/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.35,0.10,1,TOSTRING(LTCGS2/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.35,0.20,1,TOSTRING(LTCGS3/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.35,0.30,1,TOSTRING(LTCGS4/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.35,0.40,1,TOSTRING(LTCGS5/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.35,0.50,1,TOSTRING(LTCGS6/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.35,0.60,1,TOSTRING(LTCGS7/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.35,0.70,1,TOSTRING(LTCGS8/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.35,0.80,1,TOSTRING(LTCGS9/SHGZG*100,2)+'%'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR,0.35,0.90,1,TOSTRING(LTCGS10/SHGZG*100,2)+'%'),RGB(255,255,255);
/*持股变化*/
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC1,2)=LTGDMC1,0.36,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.36,0,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC2,2)=LTGDMC2,0.36,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.36,0.10,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC3,2)=LTGDMC3,0.36,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.36,0.20,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC4,2)=LTGDMC4,0.36,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.36,0.30,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC5,2)=LTGDMC5,0.36,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.36,0.40,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC6,2)=LTGDMC6,0.36,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.36,0.50,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC7,2)=LTGDMC7,0.36,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.36,0.60,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC8,2)=LTGDMC8,0.36,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.36,0.70,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC9,2)=LTGDMC9,0.36,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.36,0.80,0,'新进'),RGB(255,255,255);
DRAWTEXT_FIX(ISLASTBAR AND LASTREP(<GDMC10,2)=LTGDMC10,0.36,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.36,0.90,0,'新进'),RGB(255,255,255);
|
评论内容只代表网友观点,与本站立场无关!
本网提供的公式文件说明:
* alg格式飞狐股票公式,可以用飞狐交易师或者交易师软件导入;
* fnc格式大智慧新一代公式指标,可以用大智慧股票软件使用,少部分可以用分析家股票软件引入使用;
* exp格式大智慧经典版股票公式,仅可以用大智慧经典版股票软件引入使用;
* tni和tnc格式通达信股票公式,仅可以用通达信新引入使用,例如可以用通达信股票软件引入使用;
* tne,tn6格式通达信公式,可以用通达信公式编辑器5.0版导入,推荐通达信金融终端版本;
* hxf格式同花顺股票公式,仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!
* 关于股票公式时间限制,如果在引入大智慧公式,交易师公式或者飞狐公式的时候,发现公式名称栏是空白的,这时候调整电脑时间到1997年,又能出现公式名称,并且能正常显示,可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式,通达信公式,同花顺公式,操盘手公式,飞狐公式,博易大师公式,金字塔公式,文华公式和交易师公式等等公式的密码,本网可帮恢复源码,有.偿.服.务无意勿扰,点击在线咨询联系我。
* 关于股票公式源码编辑
本网提供的源码,一般都可以编辑成公式,如果不明白公式的编辑,在本页右侧教程录像可参考,或者找公式教程资料学习,请搜索:教程
* 如果您发现软件内容或者链接错误,请点击报告错误谢谢!
* 站内提供的所有软件包含源码均是由网上搜集,若侵犯了你的版权利益,请联系通知我们!