Q--787881948
通達信十大股東副圖（不會添加數據，請老師指點。謝謝！）
本指標需要十大股東自定義數據
{個股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};
