通达信流通股东选股指标公式源码

通达信流通股东选股指标公式源码

源码正文：

DRAwrECTREL(0,0,360,650,RGB(0,64,128)){XG51};
DRAWTEXT_FIX(ISLAstBAR,0.0,0.0,0,'股东统计分析：'),COLORCYAN{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.03,0.06,0,'1、前十大股东持股合计：'),COLORBLUE{XG51};
环比增减1:=(FINONE(245,0,0)-FINONE(245,0,1))/FINONE(245,0,1)*100{XG51};
HG111:=IF(环比增减1>0,VARCAT(VARCAT( '增加  ' ,VAR2STR( 环比增减1,2)),'  %　'),IF(环比增减1<0,VARCAT(VARCAT( '减少  ' ,VAR2STR(-环比增减1,2)),'  %　'),' ')){XG51};
HGH111:=STRCAT(STRCAT('占总股本 ',STRCAT(CON2STR(FINVALUE(245)/FINVALUE(238)*100,2),' %　')),STRCAT('占流通盘 ',STRCAT(CON2STR(FINVALUE(245)/FINVALUE(239)*100,2),' %　'))){XG51};
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),'连续三季度增加','')){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.05,0.12,0,HGH111),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.05,0.18,0,STRCAT('较上期  ',STRCAT(HG111,SDGDCGLXFX))),COLORBLUE{XG51};
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),'连续三季度增加','')){XG51};
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)))),COLORLICYAN{XG51};
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)))),COLORLICYAN{XG51};
HGH222:=STRCAT(STRCAT('占总股本 ',STRCAT(CON2STR(FINVALUE(247)/FINVALUE(238)*100,2),' %　')),STRCAT('占流通盘 ',STRCAT(CON2STR(FINVALUE(247)/FINVALUE(239)*100,2),' %　'))){XG51};
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),'连续三季度增加','')){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.03,0.30,0,STRCAT('3、共  ',STRCAT(CON2STR(FINVALUE(246),0),STRCAT('  家机构，共持有  ',STRCAT(CON2STR(FINVALUE(247)/10000,2),'  万股'))))),COLORCYAN{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.05,0.36,0,HGH222),COLORCYAN{XG51};
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)))),COLORCYAN{XG51};
环比增减3:=(FINONE(284,0,0)-FINONE(284,0,1))/FINONE(284,0,1)*100{XG51};
HG333:=IF(环比增减3>0,VARCAT(VARCAT( '增加  ' ,VAR2STR( 环比增减3,2)),'  %　'),IF(环比增减3<0,VARCAT(VARCAT( '减少  ' ,VAR2STR(-环比增减3,2)),'  %　'),' ')){XG51};
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),'连续三季度增加','')){XG51};
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),'  %　'))))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.05,0.54,0,STRCAT('较上期  ',STRCAT(HG333,GJDCGLXFX))),COLORRED{X.G!5~1.C.N.{};