通赢7.42版股东人数副图含大智慧版参考指标下载通达信源码股东

指标公式类型：通达信公式
公式推荐星级：
指标公式安全：已通过5款杀毒软件查杀，请放心下载！
公式更新时间：2019-01-18 22:28:34
指标公式标签：通赢股东人数
公式运行环境： WinXP/Win7/Win8/Win10/Win All
指标公式语言：用简体中文编写

指标公式详细说明

好公式网（www.goodgongshi.com）告诉您：当前正要下载：通赢7.42版股东人数副图含大智慧版参考指标下载通达信源码股东

必须是通达信是通赢7.42版以上，下载专业财务后，才能显示
大智慧版，要把通达信数据导到大智慧才能显示
{通达信版，必须是通赢7.42版以上，下载专业财务后，才能显示}
lt:=finance(7);
rs:=ref(gpjyvalue(1,1,1),barslast(gpjyvalue(1,1,1)>0));
股东人数:rs,nodraw,coloryellow;
人均持股:finance(7)/rs,nodraw,colordc00dc;
集中度:人均持股/finance(7)*10000,nodraw,color00dc00;
变:=barslast(rs<>ref(rs,1) or barssince(rs)=0);
减:=barslast(rs>ref(rs,1) or barssince(rs)=0)>
barslast(rs<ref(rs,1) or barssince(rs)=0);
幅:=if(变=0,rs/ref(rs,1)*100-100,0);
当期幅度:ref(幅,变),colordcdc00,nodraw;
减幅:=if(减>0,sum(幅,barslast(减=0)),0);增幅:=if(减=0,sum(幅,barslast(减>0)),0);
减数:=if(减>0,sum(变=0,barslast(减=0)),0);增数:=if(减=0,sum(变=0,barslast(减>0)),0);
连续幅度:if(减=0,增幅,if(减>0,减幅,0)),colordcdc00,nodraw;
连续期数:if(减=0,增数,if(减>0,减数*-1,0)),colordcdc00,nodraw;
notext1:ployline(变=0 or islastbar,rs),color00dcdc,linethick1;
{文字}
drawtext(减>0 and 变=0,rs*1.01,varcat(varcat(varcat(varcat('减',var2str(减数,0)),'='),var2str(abs(幅),2)),'%')),color008000;
drawtext(减=0 and 变=0,rs*1.01,varcat(varcat(varcat(varcat('增',var2str(增数,0)),'='),var2str(abs(幅),2)),'%')),color0000dc;
{季}
zyrs:=finvalue(242);{季度数据}bg:=finvalue(0);
jd:=vol.volume#season<>ref(vol.volume#season,1);
t:=barslast(bg<>ref(bg,1) or zyrs<>ref(zyrs,1) or barscount(c)=0);
季:=(date>const(ref(date,t)) and t>=20 and jd) or bg<>ref(bg,1);
stickline(季,rs*1.03,rs*0.97,0,0),colorgray;
stickline(变=0,rs+10,rs-10,2,0),colormagenta;

{大智慧版，1.把selfdata('股东人数')改为pffin(4253,0)就显示传统的股东人数。2.把通达信通赢7.42版股东人数转为大智慧自定义数据导入}
lt1:=ref(pffin(3003,0),barslast(pffin(3003,0)>0))/100;
lt2:=if(lt1>capital,capital,lt1);{手};{大智慧专业财务错误太多}
lt:=lt2*100;
人数:selfdata('股东人数'),coloryellow,precis0,linethick0;
集中度:(lt/人数)/lt*10000,linethick0,precis2,colormagenta;
人均:lt/人数,precis0,linethick0,colormagenta;
变:=barslast(人数<>ref(人数,1) or barssince(人数)=0);
{polyline(c,人数),color505050;}
{drawline(变=0 or dispstatus=1,人数,变=0 or dispstatus=2,人数,0),coloryellow,linethick1,layer0;}
polyline(变=0 or dispstatus=1 or dispstatus=2,人数),coloryellow,linethick1;
stickline(变=0 or dispstatus=1 or dispstatus=2,人数+10,人数-10,6,0),colormagenta;

减:=barslast(人数>ref(人数,1) or barssince(人数)=0)>
barslast(人数<ref(人数,1) or barssince(人数)=0);
幅:=if(变=0,人数/ref(人数,1)*100-100,0);
当期幅度:ref(幅,变),colorcyan,precis2,linethick0;
减幅:=if(减>0,sum(幅,barslast(减=0)),0);增幅:=if(减=0,sum(幅,barslast(减>0)),0);
减数:=if(减>0,sum(变=0,barslast(减=0)),0);增数:=if(减=0,sum(变=0,barslast(减>0)),0);
连增减幅:if(减=0,增幅,if(减>0,减幅,0)),colorcyan,precis2,linethick0;
增减期数:if(减=0,增数,if(减>0,减数*-1,0)),colorcyan,precis0,linethick0;
drawtext(减>0 and 变=0,人数*1.01,'减'+numtostrn(减数,0)+'='+numtostrn(abs(幅),2)+'%'),color008000,layer0;
drawtext(减=0 and 变=0,人数*1.01,'增'+numtostrn(增数,0)+'='+numtostrn(abs(幅),2)+'%'),color0000dc,layer0;
季度:=cross(month>3,0.5) or cross(month>6,0.5) or cross(month>9,0.5) or
cross(month<12,0.5) or barssince(人数)=0;
vertline(季度,2),color575757;