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.fxjgsw.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);
|
评论内容只代表网友观点,与本站立场无关!
本网提供的公式文件说明:
* alg格式飞狐股票公式,可以用飞狐交易师或者交易师软件导入;
* fnc格式大智慧新一代公式指标,可以用大智慧股票软件使用,少部分可以用分析家股票软件引入使用;
* exp格式大智慧经典版股票公式,仅可以用大智慧经典版股票软件引入使用;
* tni和tnc格式通达信股票公式,仅可以用通达信新引入使用,例如可以用通达信股票软件引入使用;
* tne,tn6格式通达信公式,可以用通达信公式编辑器5.0版导入,推荐通达信金融终端版本;
* hxf格式同花顺股票公式,仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!
* 关于股票公式时间限制,如果在引入大智慧公式,交易师公式或者飞狐公式的时候,发现公式名称栏是空白的,这时候调整电脑时间到1997年,又能出现公式名称,并且能正常显示,可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式,通达信公式,同花顺公式,操盘手公式,飞狐公式,博易大师公式,金字塔公式,文华公式和交易师公式等等公式的密码,本网可帮恢复源码,有.偿.服.务无意勿扰,点击在线咨询联系我。
* 关于股票公式源码编辑
本网提供的源码,一般都可以编辑成公式,如果不明白公式的编辑,在本页右侧教程录像可参考,或者找公式教程资料学习,请搜索:教程
* 如果您发现软件内容或者链接错误,请点击报告错误谢谢!
* 站内提供的所有软件包含源码均是由网上搜集,若侵犯了你的版权利益,请联系通知我们!