通达信机构持仓变化选股指标公式源码

通达信机构持仓变化选股指标公式源码

源码正文：

DRAwrECTREL(0,0,998,998,RGB(0,0,10)){XG51};
DRAWRECTREL(98,0,948,998,RGB(0,0,10)){XG51};
DRAWRECTREL(148,0,798,998,RGB(0,0,10)){XG51};
DRAWRECTREL(198,0,748,998,RGB(0,0,10)){XG51};
DRAWRECTREL(248,0,698,998,RGB(0,0,10)){XG51};
DRAWRECTREL(248,0,648,998,RGB(0,0,10)){XG51};
DRAWRECTREL(248,0,598,998,RGB(0,0,10)){XG51};
DRAWRECTREL(298,0,548,998,RGB(0,0,10)){XG51};
DRAWRECTREL(348,0,498,998,RGB(0,0,10)){XG51};
DRAWRECTREL(398,0,448,998,RGB(0,0,10)){XG51};
DRAWRECTREL(448,0,498,998,RGB(0,0,10)){XG51};
DRAWRECTREL(0,200,998,200,RGB(255,255,0)){XG51};
DRAWRECTREL(0,400,998,400,RGB(255,255,0)){XG51};
DRAWRECTREL(0,600,998,600,RGB(255,255,0)){XG51};
DRAWRECTREL(0,800,998,800,RGB(255,255,0)){XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.27,0,'201709'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.46,0,'201706'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.65,0,'201603'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.84,0,'201612'),COLORCYAN{XG51};
{XG51};
SH:=FINANCE(1)/10000,NODRAW{XG51};
SH102:=SIGNALS_USER(102,1),COLORmaGENTA,NODRAW{XG51};
SH103:=SIGNALS_USER(103,1),COLORLIMAGENTA,NODRAW{XG51};
SH112:=SIGNALS_USER(112,1){XG51};
SH113:=SIGNALS_USER(113,1){XG51};
SH122:=SIGNALS_USER(122,1){XG51};
SH123:=SIGNALS_USER(123,1){XG51};
SH132:=SIGNALS_USER(132,1){XG51};
SH133:=SIGNALS_USER(133,1){XG51};
SH142:=SIGNALS_USER(142,1){XG51};
SH143:=SIGNALS_USER(143,1){XG51};
SH152:=SIGNALS_USER(152,1){XG51};
SH153:=SIGNALS_USER(153,1){XG51};
SH162:=SIGNALS_USER(162,1){XG51};
SH163:=SIGNALS_USER(163,1){XG51};
SH172:=SIGNALS_USER(172,1){XG51};
SH173:=SIGNALS_USER(173,1){XG51};
SH182:=SIGNALS_USER(182,1){XG51};
SH183:=SIGNALS_USER(183,1){XG51};
SH192:=SIGNALS_USER(192,1){XG51};
SH193:=SIGNALS_USER(193,1){XG51};
CURR:=CURRBARSCOUNT{XG51};
AAA1:=REF(C,BArslAst(DATE=1170929)){XG51};
AAA2:=REF(C,BARSLAST(DATE=1170630)){XG51};
AAA3:=REF(C,BARSLAST(DATE=1170331)){XG51};
AAA4:=REF(C,BARSLAST(DATE=1161230)){XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.100,0.03,0,'机构总量'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.100,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(246,2017,0930),0)),' ')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.100,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(246,2017,0630),0)),' ')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.100,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(246,2017,0331),0)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.100,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(246,2016,1231),0)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.150,0.03,0,'持股总量(股)'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.150,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(247,2017,0930)*AAA1/100000000,2)),' ')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.150,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(247,2017,0630)*AAA2/100000000,2)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.150,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(247,2017,0331)*AAA3/100000000,2)),'')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.150,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(247,2016,1231)*AAA4/100000000,2)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.200,0.03,0,'QFII持股量'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.200,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(249,2017,0930)*AAA1/100000000,2)),' ')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.200,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(249,2017,0630)*AAA2/100000000,2)),' ')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.200,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(249,2017,0331)*AAA3/100000000,2)),'')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.200,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(249,2016,1231)*AAA4/100000000,2)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.250,0.03,0,'券商机构数'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.250,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(250,2017,0930),0)),' ')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.250,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(250,2017,0630),0)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.250,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(250,2017,0331),0)),'')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.250,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(250,2016,1231),0)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.300,0.03,0,'券商持股量'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.300,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(251,2017,0930)*AAA1/100000000,2)),' ')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.300,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(251,2017,0630)*AAA2/100000000,2)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.300,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(251,2017,0331)*AAA3/100000000,2)),'')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.300,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(251,2016,1231)*AAA4/100000000,2)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.350,0.03,0,'保险持股量'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.350,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(253,2017,0930)/10000,0)),' ')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.350,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(253,2017,0630)/10000,0)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.350,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(253,2017,0331)/10000,0)),'')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.350,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(253,2016,1231)/10000,0)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.400,0.03,0,'保险持股金额'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.400,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(253,2017,0930)*AAA1/100000000,2)),' ')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.400,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(253,2017,0630)*AAA2/100000000,2)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.400,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(253,2017,0331)*AAA3/100000000,2)),'')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.400,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(253,2016,1231)*AAA4/100000000,2)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.450,0.03,0,'基金机构数'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.450,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(254,2017,0930),0)),' ')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.450,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(254,2017,0630),0)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.450,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(254,2017,0331),0)),'')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.450,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(254,2016,1231),0)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.500,0.03,0,'基金持股量'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.500,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(255,2017,0930)/10000,0)),' ')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.500,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(255,2017,0630)/10000,0)),' ')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.500,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(255,2017,0331)/10000,0)),'')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.500,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(255,2016,1231)/10000,0)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.550,0.03,0,'基金持股金额'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.550,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(255,2017,0930)*AAA1/100000000,2)),' ')),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.550,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(255,2017,0630)*AAA2/100000000,2)),'')),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.550,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(255,2017,0331)*AAA3/100000000,2)),'')),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.550,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(255,2016,1231)*AAA4/100000000,2)),'')),COLORWHITE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.600,0.03,0,'社保持股量'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.600,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(257,2017,0930)/10000,0)),' ')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.600,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(257,2017,0630)/10000,0)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.600,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(257,2017,0331)/10000,0)),'')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.600,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(257,2016,1231)/10000,0)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.650,0.03,0,'社保持股金额'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.650,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(257,2017,0930)*AAA1/100000000,2)),' ')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.650,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(257,2017,0630)*AAA2/100000000,2)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.650,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(257,2017,0331)*AAA3/100000000,2)),'')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.650,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(257,2016,1231)*AAA4/100000000,2)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.700,0.03,0,'私募机构数'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.700,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(258,2013,1231),0)),' ')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.700,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(258,2013,1231),0)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.700,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(258,2013,1231),0)),'')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.700,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(258,2013,1231),0)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.750,0.03,0,'私募持股量'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.750,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(259,2017,0930)*AAA1/100000000,2)),' ')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.750,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(259,2017,0630)*AAA2/100000000,2)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.750,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(259,2013,1231)*AAA3/100000000,2)),'')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.750,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(259,2013,1231)*AAA4/100000000,2)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.850,0.03,0,'财务公司持股量'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.850,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(261,2017,0930)*AAA1/100000000,2)),' ')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.850,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(261,2017,0630)*AAA2/100000000,2)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.850,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(261,2013,1231)*AAA3/100000000,2)),'')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.850,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(261,2013,1231)*AAA4/100000000,2)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.950,0.03,0,'年金持股量'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.950,0.27,0,STRCAT(STRCAT(' ',CON2STR(FINONE(263,2017,0930)*AAA1/100000000,2)),' ')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.950,0.46,0,STRCAT(STRCAT(' ',CON2STR(FINONE(263,2017,0630)*AAA2/100000000,2)),'')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.950,0.65,0,STRCAT(STRCAT(' ',CON2STR(FINONE(263,2017,0331)*AAA3/100000000,2)),'')),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.950,0.84,0,STRCAT(STRCAT(' ',CON2STR(FINONE(263,2016,1231)*AAA4/100000000,2)),'')),COLORBLUE{X-G_5~1-C-N-{};