必须是通达信是通赢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;
{分析家公式网www.fxjgsw.com}
{大智慧版，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;
|
