股票指标> 推荐指标 > 通达信股东人数、第一大股东持股变化、十大股东持股变化、散户持股变化副图指标 源码 附图 (2024/7/7 11:01:00)

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

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


总股本:=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;



来函数检测结果如下：
该公式没有未来函数
解密、编写股票、期货策略请联系QQ或微信同号：88652583
相关股票指标公式
定制、找人做指标公式联系我们
  • QQ：88652583
  • 邮箱：88652583@qq.com
  • 工作时间：8:30-23:00
  • 微信：88652583或扫描如下二维码
    • 股票指标网微信联系方式


联系我们  |  股票指标网  |  指标网   |  指标公式  |   加入收藏   |  设为主页

@2005-2023 粤ICP备2023063687号-2 股票指标网别名指标网仅为互联网文章，所有股票指标公式及文章仅供学习研究,并不构成投资建议，请勿以此为依据进行股票交易，由此引起的投资亏损与本站无关。股票指标网均来源互联网收集整理，如不慎侵犯了你的权益，请联系我们告知，我们将做删除处理
QQ：88652583 微信 88652583
sitemap站点地图