股东持股户数变动详细查看副图指标,无滞后性!!!
用法不必多说,一目了然,变化日期对应日k
注意下载好盘后数据和最新的财务数据
HS:=GPJYVALUE(1,1,1);AA:=HS<>REF(HS,1);BB:=BARSLAST(AA);CC:=BACKSET(ISLASTBAR,BB);HSF:=REF(HS,BB+1);户数:IF(CC=0,PLOYLINE(AA,HS),DRAWNULL),COLORLIGRAY;IF(AA,HS,DRAWNULL),POINTDOT,LINETHICK5,COLORCYAN;增减:(HS-HSF),NODRAW,COLORRED;幅度(%):(HS/HSF-1)*100,NODRAW,COLORLIGRAY;人均持股:=FINANCE(46)/户数*CLOSE/10000;价格F:=REF(C,BB+1);涨幅:REF((REFX(C,1)/价格F-1)*100,1),NODRAW,COLORLIGRAY;涨幅变动:=VAR2STR(涨幅,2);BGQ:=FINVALUE(0);Z1:=STRCAT('最新公告日期:20',CON2STR(BGQ,0));Z2:=STRCAT(',比较上期变化幅度:',CON2STR(幅度(%),2));Z3:=STRCAT(Z2,'%');Z4:=STRCAT(Z1,Z3);DRAWTEXT_FIX(BB,0.99,0,1,Z4),COLORLICYAN;取值:=NOT(WEEKDAY=6||WEEKDAY=0);一季报:=(MONTH=3&&(((DAY=25||DAY=26||DAY=27||DAY=28||DAY=29||DAY=30||DAY=31)&&取值=1)));中报:=(MONTH=6&&(((DAY=24||DAY=25||DAY=26||DAY=27||DAY=28||DAY=29||DAY=30)&&取值=1)));三季报:=(MONTH=9&&(((DAY=24||DAY=25||DAY=26||DAY=27||DAY=28||DAY=29||DAY=30)&&取值=1)));年报:=(MONTH=12&&(((DAY=25||DAY=26||DAY=27||DAY=28||DAY=29||DAY=30||DAY=31)&&取值=1)));IF((FILTERX(一季报,6)||FILTERX(中报,6)||FILTERX(三季报,6))&&户数>REF(户数,1),户数,DRAWNULL),STICK,COLORGRAY;IF(FILTERX(年报,6)&&户数>REF(户数,1),户数,DRAWNULL),STICK,LINETHICK5,COLORGRAY;IF((FILTERX(一季报,6)||FILTERX(中报,6)||FILTERX(三季报,6))&&户数<REF(户数,1),户数,DRAWNULL),STICK,COLORGRAY;IF(FILTERX(年报,6)&&户数<REF(户数,1),户数,DRAWNULL),STICK,LINETHICK5,COLORGRAY;DRAWICON(FILTERX(一季报||中报||三季报||年报,6)&&户数>REF(户数,1),户数,5);DRAWICON(FILTERX(一季报||中报||三季报||年报,6)&&户数<REF(户数,1),户数,15);日期:=DAYTODATE(DATETODAY(DATE)),NODRAW;日期1:=ROUND(FRACPART(日期/10000)*10000),NODRAW;日期2:=IF(日期1>1000,VAR2STR(日期1,0),VARCAT('0',VAR2STR(日期1,0)));DRAWTEXT(FILTERX(一季报,6),户数,VARCAT('→',VARCAT(VARCAT(VAR2STR(YEAR,0),'一季报,'),日期2))),COLORGRAY,LINETHICK6;DRAWTEXT(FILTERX(中报,6),户数,VARCAT('→',VARCAT(VARCAT(VAR2STR(YEAR,0),'中报,'),日期2))),COLORGRAY,LINETHICK6;DRAWTEXT(FILTERX(三季报,6),户数,VARCAT('→',VARCAT(VARCAT(VAR2STR(YEAR,0),'三季报,'),日期2))),COLORGRAY,LINETHICK6;DRAWTEXT(FILTERX(年报,6),户数,VARCAT('→',VARCAT(VARCAT(VAR2STR(YEAR,0),'年报,'),日期2))),COLORGRAY,LINETHICK6;显示串:=VARCAT(VAR2STR(REFX(幅度(%),1),2),VARCAT(',',涨幅变动));DRAWTEXT(AA,HS,显示串),COLORGRAY,DRAWABOVE;DRAWTEXT(AA&&(幅度(%)>0&&涨幅<0),HS,显示串),COLORLIGREEN,DRAWABOVE;DRAWTEXT(AA&&(幅度(%)<0&&涨幅>0),HS,显示串),COLORRED,DRAWABOVE;人均持股→万元:IF(人均持股<10,人均持股,DRAWNULL),NODRAW,COLORLIGRAY;IF(人均持股>10,人均持股,DRAWNULL),NODRAW,COLORLIRED;