通达信股东人数、第一大股东持股变化、十大股东持股变化、散户持股变化副图指标 源码 附图

来函数检测结果如下：
该公式没有未来函数

{财务第一股东源码如下}


总股本:=FINVALUE(238);
第一股东持股数:=FINVALUE(243),COLORYELLOW;
第一占比:(第一股东持股数/总股本)*100,COLORMAGENTA;

第一TJ1:=BARSLAST(第一占比>REF(第一占比,1)),NODRAW;
第一TJ2:=BARSLAST(第一占比<REF(第一占比,1)),NODRAW;
NOTEXT1:IF(第一TJ1<第一TJ2,第一占比,DRAWNULL),COLORGREEN;
NOTEXT2:IF(第一TJ1>第一TJ2,第一占比,DRAWNULL),COLORRED;

第一ZDZ:=MAX(REF(第一占比,1),第一占比);
第一ZXZ:=MIN(REF(第一占比,1),第一占比);
第一SSS:=BARSLAST(REF(第一占比,1)!=第一占比);
第一ZZZ:=IF(REF(第一占比,第一SSS+2)>第一占比,第一占比*1.1,第一占比*0.9);
第一ZAQ:=(REF(第一占比,1)+第一占比)/2;
第一JSRS:=(REF(第一占比,1)-第一占比)/REF(第一占比,1)*100;
第一ZJRS:=(第一占比-REF(第一占比,1))/REF(第一占比,1)*100;
第一DQ1:=VARCAT(VAR2STR(第一JSRS,2),'%');
DRAWTEXT(第一SSS=0 AND 第一JSRS>0,第一ZAQ,VARCAT('减少:',第一DQ1)),COLORRED,DRAWABOVE;
第一DQ2:=VARCAT(VAR2STR(第一ZJRS,2),'%');
DRAWTEXT(第一SSS=0 AND 第一ZJRS>0,第一ZAQ,VARCAT('增加:',第一DQ2)),COLORGREEN,DRAWABOVE;

星期几:=VARCAT(VARCAT('(',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五','')))))),')');

日期:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期几);
DRAWTEXT(第一SSS=0 AND 第一JSRS>0,第一ZAQ,日期),COLORRED;
DRAWTEXT(第一SSS=0 AND 第一ZJRS>0,第一ZAQ,日期),,COLORGREEN;

{财务十大股东源码如下}


总股本:=FINVALUE(238);
第一股东持股数:=FINVALUE(243),COLORYELLOW;

十大股东持股计:=FINVALUE(244),COLORGREEN;{245}

{第一占比:(第一股东持股数/总股本)*100,COLORMAGENTA,NODRAW;}

十东占比:(十大股东持股计/总股本),COLORCYAN;

十东TJ1:=BARSLAST(十东占比>REF(十东占比,1)),NODRAW;
十东TJ2:=BARSLAST(十东占比<REF(十东占比,1)),NODRAW;
NOTEXT1:IF(十东TJ1<十东TJ2,十东占比,DRAWNULL),COLORGREEN;
NOTEXT2:IF(十东TJ1>十东TJ2,十东占比,DRAWNULL),COLORRED;




十东ZDZ:=MAX(REF(十东占比,1),十东占比);
十东ZXZ:=MIN(REF(十东占比,1),十东占比);
十东SSS:=BARSLAST(REF(十东占比,1)!=十东占比);

十东ZAQ:=(REF(十东占比,1)+十东占比)/2;
十东JSRS:=(REF(十东占比,1)-十东占比)/REF(十东占比,1)*100;
十东ZJRS:=(十东占比-REF(十东占比,1))/REF(十东占比,1)*100;
十东DQ1:=VARCAT(VAR2STR(十东JSRS,2),'%');

十东DQ2:=VARCAT(VAR2STR(十东ZJRS,2),'%');

十东升:=BARSLAST(REF(十东占比,1)>十东占比);
十东降:=BARSLAST(REF(十东占比,1)<十东占比);
十东连降:=COUNT(REF(十东占比,1)!=十东占比,十东降),NODRAW;
十东连升:=COUNT(REF(十东占比,1)!=十东占比,十东升),NODRAW;
十东连降次:=VARCAT('连降:',VARCAT(VAR2STR(十东连降,0),'次'));
十东连升次:=VARCAT('连升:',VARCAT(VAR2STR(十东连升,0),'次'));

DRAWTEXT(十东SSS=0 AND 十东JSRS>0,十东ZAQ,VARCAT(十东DQ1,十东连降次)),COLORRED;
DRAWTEXT(十东SSS=0 AND 十东ZJRS>0,十东ZAQ,VARCAT(十东DQ2,十东连升次)),COLORGREEN;


星期几:=VARCAT(VARCAT('(',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五','')))))),')');

日期:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期几);
DRAWTEXT(十东SSS=0 AND 十东JSRS>0,十东ZAQ,日期),COLORRED,DRAWABOVE;
DRAWTEXT(十东SSS=0 AND 十东ZJRS>0,十东ZAQ,日期),,COLORGREEN,DRAWABOVE;




{自由流通股源码如下}
十大流通股东:=FINVALUE(264)/FINVALUE(238);
第一大流通股:=FINVALUE(265)/FINVALUE(238),NODRAW;
自由流通股:FINVALUE(266)/FINVALUE(238);

TJ1:=BARSLAST(自由流通股>REF(自由流通股,1)),NODRAW;
TJ2:=BARSLAST(自由流通股<REF(自由流通股,1)),NODRAW;
NOTEXT1:IF(TJ1<TJ2,自由流通股,DRAWNULL),COLOR00FF00;
NOTEXT2:IF(TJ1>TJ2,自由流通股,DRAWNULL),COLORRED;


自由ZDZ:=MAX(REF(自由流通股,1),自由流通股);
自由ZXZ:=MIN(REF(自由流通股,1),自由流通股);
自由SSS:=BARSLAST(REF(自由流通股,1)!=自由流通股);

自由ZAQ:=(REF(自由流通股,1)+自由流通股)/2;
自由JSRS:=(REF(自由流通股,1)-自由流通股)/REF(自由流通股,1)*100;
自由ZJRS:=(自由流通股-REF(自由流通股,1))/REF(自由流通股,1)*100;
自由DQ1:=VARCAT(VAR2STR(自由JSRS,2),'%');

自由DQ2:=VARCAT(VAR2STR(自由ZJRS,2),'%');

自由升:=BARSLAST(REF(自由流通股,1)>自由流通股);
自由降:=BARSLAST(REF(自由流通股,1)<自由流通股);
自由连降:COUNT(REF(自由流通股,1)!=自由流通股,自由降),NODRAW;
自由连升:COUNT(REF(自由流通股,1)!=自由流通股,自由升),NODRAW;
自由连降次:=VARCAT('连降:',VARCAT(VAR2STR(自由连降,0),'次'));
自由连升次:=VARCAT('连升:',VARCAT(VAR2STR(自由连升,0),'次'));

DRAWTEXT(自由SSS=0 AND 自由JSRS>0,自由ZAQ,VARCAT(自由DQ1,自由连降次)),COLORRED;
DRAWTEXT(自由SSS=0 AND 自由ZJRS>0,自由ZAQ,VARCAT(自由DQ2,自由连升次)),COLORGREEN;


星期几:=VARCAT(VARCAT('(',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五','')))))),')');

日期:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期几);
DRAWTEXT(自由SSS=0 AND 自由JSRS>0,自由ZAQ,日期),COLORRED,DRAWABOVE;
DRAWTEXT(自由SSS=0 AND 自由ZJRS>0,自由ZAQ,日期),,COLORGREEN,DRAWABOVE;





{财务云3源码如下}

股东人数:GPJYVALUE(1,1,1);

{TJ:BARSLAST(股东人数<>REF(股东人数,1)),NODRAW;
TJS:IF(TJ=0 AND 股东人数>REF(股东人数,1),1,IF(TJ=0 AND 股东人数<REF(股东人数,1),2,0));}
{IF(股东人数>REF(股东人数,1),股东人数,DRAWNULL),COLORFFFF00;};
TJ1:=BARSLAST(股东人数>REF(股东人数,1)),NODRAW;
TJ2:=BARSLAST(股东人数<REF(股东人数,1)),NODRAW;
NOTEXT1:IF(TJ1<TJ2,股东人数,DRAWNULL),COLOR00FF00;
NOTEXT2:IF(TJ1>TJ2,股东人数,DRAWNULL),COLORRED;

股东ZDZ:=MAX(REF(股东人数,1),股东人数);
股东ZXZ:=MIN(REF(股东人数,1),股东人数);
股东SSS:=BARSLAST(REF(股东人数,1)!=股东人数);

股东ZAQ:=(REF(股东人数,1)+股东人数)/2;
股东JSRS:=(REF(股东人数,1)-股东人数)/REF(股东人数,1)*100;
股东ZJRS:=(股东人数-REF(股东人数,1))/REF(股东人数,1)*100;
股东DQ1:=VARCAT(VAR2STR(股东JSRS,2),'%');

股东DQ2:=VARCAT(VAR2STR(股东ZJRS,2),'%');

股东升:=BARSLAST(REF(股东人数,1)>股东人数);
股东降:=BARSLAST(REF(股东人数,1)<股东人数);
股东连降:=COUNT(REF(股东人数,1)!=股东人数,股东降),NODRAW;
股东连升:=COUNT(REF(股东人数,1)!=股东人数,股东升),NODRAW;
股东连降次:=VARCAT('连降:',VARCAT(VAR2STR(股东连降,0),'次'));
股东连升次:=VARCAT('连升:',VARCAT(VAR2STR(股东连升,0),'次'));

DRAWTEXT(股东SSS=0 AND 股东JSRS>0,股东ZAQ,VARCAT(股东DQ1,股东连降次)),COLORRED;
DRAWTEXT(股东SSS=0 AND 股东ZJRS>0,股东ZAQ,VARCAT(股东DQ2,股东连升次)),COLORGREEN;


星期几:=VARCAT(VARCAT('(',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五','')))))),')');

日期:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期几);
DRAWTEXT(股东SSS=0 AND 股东JSRS>0,股东ZAQ,日期),COLORRED,DRAWABOVE;
DRAWTEXT(股东SSS=0 AND 股东ZJRS>0,股东ZAQ,日期),,COLORGREEN,DRAWABOVE;

原理解析：
{财务第一股东源码如下}总股本赋值:FINVALUE(238)
第一股东持股数赋值:FINVALUE(243),画黄色
输出第一占比:(第一股东持股数/总股本)*100,画洋红色
第一TJ1赋值:上次第一占比>1日前的第一占比距今天数,NODRAW
第一TJ2赋值:上次第一占比<1日前的第一占比距今天数,NODRAW
如果第一TJ1<第一TJ2返回第一占比否则返回DRAWNULL
如果第一TJ1>第一TJ2返回第一占比否则返回DRAWNULL
第一ZDZ赋值:1日前的第一占比和第一占比较大值
第一ZXZ赋值:1日前的第一占比和第一占比的较小值
第一SSS赋值:上次1日前的第一占比!=第一占比距今天数
第一ZZZ赋值:IF(第一SSS+2日前的第一占比>第一占比,第一占比*1.1,第一占比*0.9)
第一ZAQ赋值:(1日前的第一占比+第一占比)/2
第一JSRS赋值:(1日前的第一占比-第一占比)/1日前的第一占比*100
第一ZJRS赋值:(第一占比-1日前的第一占比)/1日前的第一占比*100
第一DQ1赋值:VARCAT(VAR2STR(第一JSRS,2),'%')
DRAWTEXT(第一SSS=0 AND 第一JSRS>0,第一ZAQ,VARCAT('减少:',第一DQ1)),画红色,DRAWABOVE
第一DQ2赋值:VARCAT(VAR2STR(第一ZJRS,2),'%')
DRAWTEXT(第一SSS=0 AND 第一ZJRS>0,第一ZAQ,VARCAT('增加:',第一DQ2)),画绿色,DRAWABOVE
星期几赋值:VARCAT(VARCAT('(',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五','')))))),')')
日期赋值:VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期几)
当满足条件第一SSS=0 AND 第一JSRS>0时,在第一ZAQ和日期位置书写文字
当满足条件第一SSS=0 AND 第一ZJRS>0时,在第一ZAQ和日期位置书写文字
{财务十大股东源码如下}总股本赋值:FINVALUE(238)
第一股东持股数赋值:FINVALUE(243),画黄色
十大股东持股计赋值:FINVALUE(244),画绿色
{245}{输出第一占比:(第一股东持股数/总股本)*100,画洋红色,NODRAW
输出}十东占比:(十大股东持股计/总股本),画青色
十东TJ1赋值:上次十东占比>1日前的十东占比距今天数,NODRAW
十东TJ2赋值:上次十东占比<1日前的十东占比距今天数,NODRAW
如果十东TJ1<十东TJ2返回十东占比否则返回DRAWNULL
如果十东TJ1>十东TJ2返回十东占比否则返回DRAWNULL
十东ZDZ赋值:1日前的十东占比和十东占比较大值
十东ZXZ赋值:1日前的十东占比和十东占比的较小值
十东SSS赋值:上次1日前的十东占比!=十东占比距今天数
十东ZAQ赋值:(1日前的十东占比+十东占比)/2
十东JSRS赋值:(1日前的十东占比-十东占比)/1日前的十东占比*100
十东ZJRS赋值:(十东占比-1日前的十东占比)/1日前的十东占比*100
十东DQ1赋值:VARCAT(VAR2STR(十东JSRS,2),'%')
十东DQ2赋值:VARCAT(VAR2STR(十东ZJRS,2),'%')
十东升赋值:上次1日前的十东占比>十东占比距今天数
十东降赋值:上次1日前的十东占比<十东占比距今天数
十东连降赋值:COUNT(1日前的十东占比!=十东占比,十东降),NODRAW
十东连升赋值:COUNT(1日前的十东占比!=十东占比,十东升),NODRAW
十东连降次:=VARCAT('连降:',VARCAT(VAR2STR(十东连降,0),'次'))
十东连升次:=VARCAT('连升:',VARCAT(VAR2STR(十东连升,0),'次'))
DRAWTEXT(十东SSS=0 AND 十东JSRS>0,十东ZAQ,VARCAT(十东DQ1,十东连降次)),画红色
DRAWTEXT(十东SSS=0 AND 十东ZJRS>0,十东ZAQ,VARCAT(十东DQ2,十东连升次)),画绿色
星期几赋值:VARCAT(VARCAT('(',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五','')))))),')')
日期赋值:VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期几)
当满足条件十东SSS=0 AND 十东JSRS>0时,在十东ZAQ和日期位置书写文字
当满足条件十东SSS=0 AND 十东ZJRS>0时,在十东ZAQ和日期位置书写文字
{自由流通股源码如下}十大流通股东赋值:FINVALUE(264)/FINVALUE(238)
第一大流通股赋值:FINVALUE(265)/FINVALUE(238),NODRAW
输出自由流通股:FINVALUE(266)/FINVALUE(238)
TJ1赋值:上次自由流通股>1日前的自由流通股距今天数,NODRAW
TJ2赋值:上次自由流通股<1日前的自由流通股距今天数,NODRAW
如果TJ1如果TJ1>TJ2返回自由流通股否则返回DRAWNULL
自由ZDZ赋值:1日前的自由流通股和自由流通股较大值
自由ZXZ赋值:1日前的自由流通股和自由流通股的较小值
自由SSS赋值:上次1日前的自由流通股!=自由流通股距今天数
自由ZAQ赋值:(1日前的自由流通股+自由流通股)/2
自由JSRS赋值:(1日前的自由流通股-自由流通股)/1日前的自由流通股*100
自由ZJRS赋值:(自由流通股-1日前的自由流通股)/1日前的自由流通股*100
自由DQ1赋值:VARCAT(VAR2STR(自由JSRS,2),'%')
自由DQ2赋值:VARCAT(VAR2STR(自由ZJRS,2),'%')
自由升赋值:上次1日前的自由流通股>自由流通股距今天数
自由降赋值:上次1日前的自由流通股<自由流通股距今天数
输出自由连降:COUNT(1日前的自由流通股!=自由流通股,自由降),NODRAW
输出自由连升:COUNT(1日前的自由流通股!=自由流通股,自由升),NODRAW
自由连降次:=VARCAT('连降:',VARCAT(VAR2STR(自由连降,0),'次'))
自由连升次:=VARCAT('连升:',VARCAT(VAR2STR(自由连升,0),'次'))
DRAWTEXT(自由SSS=0 AND 自由JSRS>0,自由ZAQ,VARCAT(自由DQ1,自由连降次)),画红色
DRAWTEXT(自由SSS=0 AND 自由ZJRS>0,自由ZAQ,VARCAT(自由DQ2,自由连升次)),画绿色
星期几赋值:VARCAT(VARCAT('(',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五','')))))),')')
日期赋值:VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期几)
当满足条件自由SSS=0 AND 自由JSRS>0时,在自由ZAQ和日期位置书写文字
当满足条件自由SSS=0 AND 自由ZJRS>0时,在自由ZAQ和日期位置书写文字
输出{财务云3源码如下}股东人数:GPJYVALUE(1,1,1)
输出{TJ:上次股东人数<>1日前的股东人数距今天数,NODRAW
输出TJS:IF(TJ=0 AND 股东人数>1日前的股东人数,1,IF(TJ=0 AND 股东人数<1日前的股东人数,2,0))
}{IF(股东人数>1日前的股东人数,股东人数,DRAWNULL),COLORFFFF00
}
TJ1赋值:上次股东人数>1日前的股东人数距今天数,NODRAW
TJ2赋值:上次股东人数<1日前的股东人数距今天数,NODRAW
如果TJ1如果TJ1>TJ2返回股东人数否则返回DRAWNULL
股东ZDZ赋值:1日前的股东人数和股东人数较大值
股东ZXZ赋值:1日前的股东人数和股东人数的较小值
股东SSS赋值:上次1日前的股东人数!=股东人数距今天数
股东ZAQ赋值:(1日前的股东人数+股东人数)/2
股东JSRS赋值:(1日前的股东人数-股东人数)/1日前的股东人数*100
股东ZJRS赋值:(股东人数-1日前的股东人数)/1日前的股东人数*100
股东DQ1赋值:VARCAT(VAR2STR(股东JSRS,2),'%')
股东DQ2赋值:VARCAT(VAR2STR(股东ZJRS,2),'%')
股东升赋值:上次1日前的股东人数>股东人数距今天数
股东降赋值:上次1日前的股东人数<股东人数距今天数
股东连降赋值:COUNT(1日前的股东人数!=股东人数,股东降),NODRAW
股东连升赋值:COUNT(1日前的股东人数!=股东人数,股东升),NODRAW
股东连降次:=VARCAT('连降:',VARCAT(VAR2STR(股东连降,0),'次'))
股东连升次:=VARCAT('连升:',VARCAT(VAR2STR(股东连升,0),'次'))
DRAWTEXT(股东SSS=0 AND 股东JSRS>0,股东ZAQ,VARCAT(股东DQ1,股东连降次)),画红色
DRAWTEXT(股东SSS=0 AND 股东ZJRS>0,股东ZAQ,VARCAT(股东DQ2,股东连升次)),画绿色
星期几赋值:VARCAT(VARCAT('(',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五','')))))),')')
日期赋值:VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期几)
当满足条件股东SSS=0 AND 股东JSRS>0时,在股东ZAQ和日期位置书写文字
当满足条件股东SSS=0 AND 股东ZJRS>0时,在股东ZAQ和日期位置书写文字