通达信十大股东副图指标 贴图

以下是通达信十大股东副图指标 贴图

本指标需要十大股东自定义数据

{个股DDX}
 DRAWRECTREL(0,0,998,998,RGB(0,0,10));
 DRAWRECTREL(92,0,907,998,RGB(0,0,10));
 DRAWRECTREL(182,0,816,998,RGB(0,0,10));
 DRAWRECTREL(272,0,725,998,RGB(0,0,10));
 DRAWRECTREL(362,0,634,998,RGB(0,0,10));
 DRAWRECTREL(452,0,543,998,RGB(0,0,10));

DRAWRECTREL(0,200,998,200,RGB(255,255,0));
 DRAWRECTREL(0,400,998,400,RGB(255,255,0));
 DRAWRECTREL(0,600,998,600,RGB(255,255,0));
 DRAWRECTREL(0,800,998,800,RGB(255,255,0));

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.03,0.03,0,’项 目’),COLORRED;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.27,0,’持股数’),COLORGREEN;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.46,0,’占流通股比’),COLORGREEN;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.65,0,’股东性质’),COLORGREEN;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.84,0,’增减情况’),COLORGREEN;

{DRAWGBK(C>0, RGB(0,0,10),RGB(0,0,10),0,”,0)};

SH:=FINANCE(1)/10000,NODRAW;
 SH102:=SIGNALS_USER(102,1),COLORMAGENTA,NODRAW;
 SH103:=SIGNALS_USER(103,1),COLORMAGENTA,NODRAW;
 SH112:=SIGNALS_USER(112,1);
 SH113:=SIGNALS_USER(113,1);
 SH122:=SIGNALS_USER(122,1);
 SH123:=SIGNALS_USER(123,1);{十大股东持股数量}
SH132:=SIGNALS_USER(132,1);
 SH133:=SIGNALS_USER(133,1);{机构持仓持股数量}
SH142:=SIGNALS_USER(142,1);
 SH143:=SIGNALS_USER(143,1);
 SH152:=SIGNALS_USER(152,1);
 SH153:=SIGNALS_USER(153,1);
 SH162:=SIGNALS_USER(162,1);
 SH163:=SIGNALS_USER(163,1);{前十大流通股东持股数量}
SH172:=SIGNALS_USER(172,1);
 SH173:=SIGNALS_USER(173,1);{十大股东持股数量}
SH182:=SIGNALS_USER(182,1);
 SH183:=SIGNALS_USER(183,1);{机构持仓持股数量}
SH192:=SIGNALS_USER(192,1);
 SH193:=SIGNALS_USER(193,1);{十大股东持股数量}
CURR:=CURRBARSCOUNT;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.105,0.03,0,’★第一股东★’),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.105,0.27,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH102/10000000,1)),’（万手）’)),COLORMAGENTA;
 DRAWTEXT_FIX(1,0.105,0.46,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH103,1)),’%’)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.105,0.65,0,EXTERNSTR(0,104)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.105,0.84,0,EXTERNSTR(0,105)),COLORMAGENTA;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.197,0.03,0,’★第二股东★’),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.197,0.27,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH112/10000000,1)),’（万手）’)),COLORMAGENTA;
 DRAWTEXT_FIX(1,0.197,0.46,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH113,1)),’%’)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.197,0.65,0,EXTERNSTR(0,114)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.197,0.84,0,EXTERNSTR(0,115)),COLORMAGENTA;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.287,0.03,0,’★第三股东★’),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.287,0.27,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH122/10000000,1)),’（万手）’)),COLORMAGENTA;
 DRAWTEXT_FIX(1,0.287,0.46,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH123,1)),’%’)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.287,0.65,0,EXTERNSTR(0,124)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.287,0.84,0,EXTERNSTR(0,125)),COLORMAGENTA;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.377,0.03,0,’★第四股东★’),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.377,0.27,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH132/10000000,1)),’（万手）’)),COLORMAGENTA;
 DRAWTEXT_FIX(1,0.377,0.46,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH133,1)),’%’)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.377,0.65,0,EXTERNSTR(0,134)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.377,0.84,0,EXTERNSTR(0,135)),COLORMAGENTA;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.467,0.03,0,’★第五股东★’),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.467,0.27,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH142/10000000,1)),’（万手）’)),COLORMAGENTA;
 DRAWTEXT_FIX(1,0.467,0.46,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH143,1)),’%’)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.467,0.65,0,EXTERNSTR(0,144)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.467,0.84,0,EXTERNSTR(0,145)),COLORMAGENTA;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.56,0.03,0,’★第六股东★’),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.56,0.27,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH152/10000000,1)),’（万手）’)),COLORMAGENTA;
 DRAWTEXT_FIX(1,0.56,0.46,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH153,1)),’%’)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.56,0.65,0,EXTERNSTR(0,154)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.56,0.84,0,EXTERNSTR(0,155)),COLORMAGENTA;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.645,0.03,0,’★第七股东★’),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.645,0.27,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH162/10000000,1)),’（万手）’)),COLORMAGENTA;
 DRAWTEXT_FIX(1,0.645,0.46,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH163,1)),’%’)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.645,0.65,0,EXTERNSTR(0,164)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.645,0.84,0,EXTERNSTR(0,165)),COLORMAGENTA;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.738,0.03,0,’★第八股东★’),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.738,0.27,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH172/10000000,1)),’（万手）’)),COLORMAGENTA;
 DRAWTEXT_FIX(1,0.738,0.46,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH173,1)),’%’)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.738,0.65,0,EXTERNSTR(0,174)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.738,0.84,0,EXTERNSTR(0,175)),COLORMAGENTA;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.83,0.03,0,’★第九股东★’),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.83,0.27,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH182/10000000,1)),’（万手）’)),COLORMAGENTA;
 DRAWTEXT_FIX(1,0.83,0.46,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH183,1)),’%’)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.83,0.65,0,EXTERNSTR(0,184)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.83,0.84,0,EXTERNSTR(0,185)),COLORMAGENTA;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.923,0.03,0,’★第十股东★’),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.923,0.27,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH192/10000000,1)),’（万手）’)),COLORMAGENTA;
 DRAWTEXT_FIX(1,0.923,0.46,0,STRCAT(STRCAT(‘ ‘,CON2STR(SH193,1)),’%’)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.923,0.65,0,EXTERNSTR(0,194)),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.923,0.84,0,EXTERNSTR(0,195)),COLORMAGENTA;

{参数设置}
AS:=SH103+SH113+SH123+SH133+SH143+SH153+SH163+SH173+SH183+SH193;
起点:=75;
均分:=起点/140;
 {画柱状线}
 {DRAWRECTREL(948,30,968,955,RGB(150,10,250));
 DRAWRECTREL(918,115,938,955,RGB(150,10,250));
 DRAWRECTREL(918,CONST(SH103/100*(955-0)),938,955,RGB(0,100,0));
 DRAWRECTREL(948,CONST((AS-SH103)/100*(955-0)),968,955,RGB(0,100,0));
 DRAWRECTREL(948,CONST((955-115)-SH102/100),968,955,RGB(0,100,0));
 DRAWRECTREL(918,CONST((955-115)-SH112/FINANCE(1)),938,955,RGB(0,100,0));
 DRAWRECTREL(888,CONST((955-115)-SH132/FINANCE(1)),908,955,RGB(0,100,0))};

{STICKLINE(CURR=起点-ROUND(92*均分),10.5,SH143+11,18,0),COLORFFFFFF;
 STICKLINE(CURR=起点-ROUND(103*均分),10.5,SH133+11,18,0),COLORLIMAGENTA;
 STICKLINE(CURR=起点-ROUND(114*均分),10.5,SH123+11,18,0),COLORLIMAGENTA;
 STICKLINE(CURR=起点-ROUND(125*均分),10.5,SH113+11,18,0),COLOR18A4FF;
 STICKLINE(CURR=起点-ROUND(136*均分),10.5,SH103+11,18,0),COLORFFFFFF;
 STICKLINE(CURR=起点-ROUND(92*均分),10.5,SH193+11,18,0),COLOR00FF00;
 STICKLINE(CURR=起点-ROUND(103*均分),10.5,SH183+11,18,0),COLOR00FF00;
 STICKLINE(CURR=起点-ROUND(114*均分),10.5,SH173+11,18,0),COLOR00FF00;
 STICKLINE(CURR=起点-ROUND(125*均分),10.5,SH163+11,18,0),COLOR00FF00;
 STICKLINE(CURR=起点-ROUND(136*均分),10.5,SH153+11,18,0),COLOR880088};
 {数字}
 {DRAWNUMBER(CURR=起点-ROUND(61*均分),SH193+15,SH193),COLORRED;
 DRAWNUMBER(CURR=起点-ROUND(70*均分),SH183+15,SH183),COLORRED;
 DRAWNUMBER(CURR=起点-ROUND(78*均分),SH173+15,SH173),COLOR9732F6;
 DRAWNUMBER(CURR=起点-ROUND(86*均分),SH163+15,SH163),COLORYELLOW;
 DRAWNUMBER(CURR=起点-ROUND(84*均分),SH153+15,SH153),COLOR880088;
 DRAWNUMBER(CURR=起点-ROUND(101*均分),SH143+15,SH143),COLORCYAN;
 DRAWNUMBER(CURR=起点-ROUND(109*均分),SH133+15,SH133),COLOR00FF00;
 DRAWNUMBER(CURR=起点-ROUND(116*均分),SH123+15,SH123),COLORLIMAGENTA;
 DRAWNUMBER(CURR=起点-ROUND(124*均分),SH113+15,SH113),COLOR18A4FF;
 DRAWNUMBER(CURR=起点-ROUND(131*均分),SH103+15,SH103),COLORWHITE};
 {分类:=
IF(CURR=起点-ROUND(61*均分),’第十’,
IF(CURR=起点-ROUND(71*均分),’第九’,
IF(CURR=起点-ROUND(79*均分),’第八’,
IF(CURR=起点-ROUND(85*均分),’第七’,
IF(CURR=起点-ROUND(95*均分),’第六’,
IF(CURR=起点-ROUND(102*均分),’第五’,
IF(CURR=起点-ROUND(110*均分),’第四’,
IF(CURR=起点-ROUND(118*均分),’ 第三’,
IF(CURR=起点-ROUND(125*均分),’ 第二 ‘,
IF(CURR=起点-ROUND(132*均分),’第一’,DRAWNULL))))))))))};
 {画文字}
 {DRAWTEXT(CURR=起点-ROUND(61*均分),8,分类),COLOR00FF00;
 DRAWTEXT(CURR=起点-ROUND(71*均分),8,分类),COLORRED;
 DRAWTEXT(CURR=起点-ROUND(79*均分),8,分类),COLOR9732F6;
 DRAWTEXT(CURR=起点-ROUND(85*均分),8,分类),COLORYELLOW;
 DRAWTEXT(CURR=起点-ROUND(95*均分),8,分类),COLOR880088;
 DRAWTEXT(CURR=起点-ROUND(102*均分),8,分类),COLORCYAN;
 DRAWTEXT(CURR=起点-ROUND(109*均分),8,分类),COLOR00FF00;
 DRAWTEXT(CURR=起点-ROUND(118*均分),8,分类),COLORLIMAGENTA;
 DRAWTEXT(CURR=起点-ROUND(125*均分),8,分类),COLOR18A4FF;
 DRAWTEXT(CURR=起点-ROUND(132*均分),8,分类),COLORWHITE};

{STICKLINE(CURR=起点-ROUND(60*均分) OR CURR=起点-ROUND(138*均分)
 ,MAX(20*(小户/ZZ),20*(A1000WP/总价))+13.5,5,0,0),COLORCYAN};

{STICKLINE(CURR=起点-ROUND(61*均分) OR CURR=起点-ROUND(60*均分)
 ,MAX(SH103,SH103)+15.5,5,0,0),COLORCYAN};