通达信流通股东指标公式

DRAwrECTREL(0,0,360,650,RGB(0,64,128));
DRAWTEXT_FIX(ISLASTBAR,0.0,0.0,0,'股东统计分析：'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.06,0,'1、前十大股东持股合计：'),COLORYELLOW;
环比增减1:=(FINONE(245,0,0)-FINONE(245,0,1))/FINONE(245,0,1)*100;
HG111:=IF(环比增减1>0,VARCAT(VARCAT( '增加 ' ,VAR2STR( 环比增减1,2)),' %　'),IF(环比增减1<0,VARCAT(VARCAT( '减少 ' ,VAR2STR(-环比增减1,2)),' %　'),' '));
HGH111:=STRCAT(STRCAT('占总股本 ',STRCAT(CON2STR(FINVALUE(245)/FINVALUE(238)*100,2),' %　')),STRCAT('占流通盘 ',STRCAT(CON2STR(FINVALUE(245)/FINVALUE(239)*100,2),' %　')));
SDGDCGLXFX:=IF(FINONE(245,0,0)<FINONE(245,0,1) AND FINONE(245,0,1)<FINONE(245,0,2) AND FINONE(245,0,2)<FINONE(245,0,3),'连续三季度减少',IF(FINVALUE(245)>FINONE(245,0,1) AND FINONE(245,0,1)>FINONE(245,0,2) AND FINONE(245,0,2)>FINONE(245,0,3),'连续三季度增加',''));
DRAWTEXT_FIX(ISLASTBAR,0.05,0.12,0,HGH111),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.05,0.18,0,STRCAT('较上期 ',STRCAT(HG111,SDGDCGLXFX))),COLORYELLOW;
GDrslXZJFX:=IF(FINONE(242,0,0)<FINONE(242,0,1) AND FINONE(242,0,1)<FINONE(242,0,2) AND FINONE(242,0,2)<FINONE(242,0,3),'连续三季度减少',IF(FINVALUE(242)>FINONE(242,0,1) AND FINONE(242,0,1)>FINONE(242,0,2) AND FINONE(242,0,2)>FINONE(242,0,3),'连续三季度增加',''));
DRAWTEXT_FIX(ISLASTBAR AND ((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1))<=0,0.03,0.24,0,STRCAT('2、本期股东人数较上期减： ',STRCAT(CON2STR((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1)*100,2),STRCAT(' %，',GDRSLXZJFX)))),COLORLIRED;
DRAWTEXT_FIX(ISLASTBAR AND ((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1))> 0,0.03,0.24,0,STRCAT('2、本期股东人数较上期增： ',STRCAT(CON2STR((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1)*100,2),STRCAT(' %，',GDRSLXZJFX)))),COLORLIRED;
HGH222:=STRCAT(STRCAT('占总股本 ',STRCAT(CON2STR(FINVALUE(247)/FINVALUE(238)*100,2),' %　')),STRCAT('占流通盘 ',STRCAT(CON2STR(FINVALUE(247)/FINVALUE(239)*100,2),' %　')));
JGCGLXZJFX:=IF(FINONE(247,0,0)<FINONE(247,0,1) AND FINONE(247,0,1)<FINONE(247,0,2) AND FINONE(247,0,2)<FINONE(247,0,3),'连续三季度减少',IF(FINVALUE(247)>FINONE(247,0,1) AND FINONE(247,0,1)>FINONE(247,0,2) AND FINONE(247,0,2)>FINONE(247,0,3),'连续三季度增加',''));
DRAWTEXT_FIX(ISLASTBAR,0.03,0.30,0,STRCAT('3、共 ',STRCAT(CON2STR(FINVALUE(246),0),STRCAT(' 家机构，共持有 ',STRCAT(CON2STR(FINVALUE(247)/10000,2),' 万股'))))),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.05,0.36,0,HGH222),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.05,0.42,0,STRCAT('增幅 ',STRCAT(CON2STR((FINONE(247,0,0)-FINONE(247,0,1))/FINONE(247,0,1)*100,2),STRCAT(' % ',JGCGLXZJFX)))),COLORGREEN;
环比增减3:=(FINONE(284,0,0)-FINONE(284,0,1))/FINONE(284,0,1)*100;
HG333:=IF(环比增减3>0,VARCAT(VARCAT( '增加 ' ,VAR2STR( 环比增减3,2)),' %　'),IF(环比增减3<0,VARCAT(VARCAT( '减少 ' ,VAR2STR(-环比增减3,2)),' %　'),' '));
GJDCGLXFX:=IF(FINONE(284,0,0)<FINONE(284,0,1) AND FINONE(284,0,1)<FINONE(284,0,2) AND FINONE(284,0,2)<FINONE(284,0,3),'连续三季度减少',IF(FINVALUE(284)>FINONE(284,0,1) AND FINONE(284,0,1)>FINONE(284,0,2) AND FINONE(284,0,2)>FINONE(284,0,3),'连续三季度增加',''));
DRAWTEXT_FIX(ISLASTBAR,0.03,0.48,0,STRCAT('4、国家队持 ',STRCAT(CON2STR(FINVALUE(284),2),STRCAT(' 万股，占总股本 ',STRCAT(CON2STR(FINVALUE(284)*10000/FINVALUE(238)*100,2),' %　'))))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.05,0.54,0,STRCAT('较上期 ',STRCAT(HG333,GJDCGLXFX))),COLORWHITE;