通达信社保、北向等买入、持有源码

{机构、社保}

{JG1:=STRCAT('机构总量:',VAR2STR(FINVALUE(246),0));

JG2:=STRCAT(' | 机构持股:',VAR2STR(FINVALUE(247)/10000,0));

JG3:=STRCAT(' | 占比（%）:',VAR2STR(FINVALUE(247)/FINANCE(7)*100,1));

JG12:=STRCAT(JG1,JG2);

JG13:=STRCAT(JG12,JG3);

DRAWTEXT_FIX(ISLASTBAR=1,0.11,0.70,0,JG13),COLORLIBLUE;

SB1:=STRCAT('社保机构数:',VAR2STR(FINVALUE(256),0));

SB2:=STRCAT(' | 社保持股:',VAR2STR(FINVALUE(257)/10000,0));

SB3:=STRCAT(' | 占比（%）:',VAR2STR(FINVALUE(257)/FINANCE(7)*100,1));

SB12:=STRCAT(SB1,SB2);

SB13:=STRCAT(SB12,SB3);

DRAWTEXT_FIX(ISLASTBAR=1,0.11,0.75,0,SB13),COLORLIBLUE;}

{北向3-5-8-13日增仓情况}

{BX1:=GPJYVALUE(6,1,1);

占流通比:=(GPJYVALUE(6,1,1)/FINANCE(7))*100,NODRAW,COLORLIBLUE;

占总股比:=(GPJYVALUE(6,1,1)/FINANCE(1))*100,NODRAW,COLORLIBLUE;}

{NOTEXT北向:BX1,COLORLIBLUE,COLOR9F5F9F;}

{BX3:=REF(GPJYVALUE(6,1,1),3);

BX5:=REF(GPJYVALUE(6,1,1),5);

BX8:=REF(GPJYVALUE(6,1,1),8);

BX13:=REF(GPJYVALUE(6,1,1),13);

BX31:=(BX1-BX3)/BX3*100;

BX51:=(BX1-BX5)/BX5*100;

BX81:=(BX1-BX8)/BX8*100;

BX131:=(BX1-BX13)/BX13*100;

BX311:=STRCAT('北向增幅(%)3日:',VAR2STR(BX31,1));

BX511:=STRCAT(' | 5日:',VAR2STR(BX51,1));

BX811:=STRCAT(' | 8日:',VAR2STR(BX81,1));

BX1311:=STRCAT(' | 13日:',VAR2STR(BX131,1));

BX3511:=STRCAT(BX311,BX511);

BX813111:=STRCAT(BX811,BX1311);

BX35813:=STRCAT(BX3511,BX813111);

DRAWTEXT_FIX(ISLASTBAR=1,0.11,0.80,0,BX35813),COLORLIBLUE;}

{北向买入}

{BX21:=GPJYVALUE(7,1,1);

BX23:=SUM(BX21,3);

BX25:=SUM(BX21,5);

BX28:=SUM(BX21,8);

BX213:=SUM(BX21,13);

BX221:=STRCAT('北向净买(亿)当期:',VAR2STR(BX21/10000,1));

BX223:=STRCAT(' | 3期:',VAR2STR(BX23/10000,1));

BX225:=STRCAT(' | 5期:',VAR2STR(BX25/10000,1));

BX228:=STRCAT(' | 8期:',VAR2STR(BX28/10000,1));

BX2213:=STRCAT(' | 13期:',VAR2STR(BX213/10000,1));

BX91:=STRCAT(BX221,BX223);

BX92:=STRCAT(BX225,BX228);

BX93:=STRCAT(BX91,BX92);

BX95:=STRCAT(BX93,BX2213);

DRAWTEXT_FIX(ISLASTBAR=1,0.11,0.85,0,BX93),COLORLIBLUE;}

{标识近五周期换手}

{HH1:=STRCAT('本期:',CON2STR(VOL/CAPITAL*100,1));

HH2:=STRCAT('3期:',CON2STR(SUM(VOL/CAPITAL*100,3),1));

HH3:=STRCAT('5期:',CON2STR(SUM(VOL/CAPITAL*100,5),1));

HH4:=STRCAT('8期:',CON2STR(SUM(VOL/CAPITAL*100,8),1));

HH5:=STRCAT('13期:',CON2STR(SUM(VOL/CAPITAL*100,13),1));

HHH1:=STRCAT('换手(%) ',HH1);

HHH2:=STRCAT('|',HH2);

HHH3:=STRCAT('|',HH3);

HHH4:=STRCAT('|',HH4);

HHH5:=STRCAT('|',HH5);

HHHH1:=STRCAT(HHH1,HHH2);

HHHH2:=STRCAT(HHHH1,HHH3);

HHHH4:=STRCAT(HHHH2,HHH4);

HHHH5:=STRCAT(HHHH4,HHH5);}

{标识}

{DRAWTEXT_FIX(ISLASTBAR=1,0.11,0.90,0,HHHH5),COLORLIBLUE;}

{标识近三周期成交额}

{BWW1:=STRCAT(CON2STR(AMOUNT/100000000,1),'-本 ');

BWW2:=STRCAT(CON2STR(REF(AMOUNT,1)/100000000,1),'-上 ');

BWW3:=STRCAT(CON2STR(REF(AMOUNT,2)/100000000,1),'-前 ');

BWWW1:=STRCAT('成交额(亿): ',BWW1);

BWWW2:=STRCAT('| ',BWW2);

BWWW3:=STRCAT('| ',BWW3);

BWWWW1:=STRCAT(BWWW1,BWWW2);

BWWWW2:=STRCAT(BWWWW1,BWWW3);}

{标识}

{DRAWTEXT_FIX(ISLASTBAR=1,0.11,0.95,0,BWWWW2),COLORLIBLUE;}