通达信融资余额、融券余量副图指标 数据信息显示 源码附图

FJ:=WEEKOFYEAR!=REF(WEEKOFYEAR,1);
D:=BARSLAST(FJ);
融资余额:=INTPART(GPJYVALUE(3,1,1));
融资净买:=INTPART((融资余额-REF(融资余额,1)));
融资本周净买:=INTPART(SUM(融资净买,D+1));
融资上周净买:=REF(SUM(融资净买,D+1),D+1);
融资余额增减:=(融资余额-REF(融资余额,2))/REF(融资余额,2)*100;
融资:=VARCAT(VARCAT(VARCAT('融资余额(万元): ',VAR2STR(融资余额,0)),VARCAT(VARCAT(' 环比: ',CON2STR(融资余额增减,2)),'%')),
VARCAT(VARCAT(' 融资本周(万元): ',VAR2STR(融资本周净买,0)),VARCAT(' 融资上周(万元): ',VAR2STR(融资上周净买,0))));
融券余量:=GPJYVALUE(3,2,1)/10000;
融券净买:=(融券余量-REF(融券余量,1));
融券本周净买:=SUM(融券净买,D+1);
融券上周净买:=REF(SUM(融券净买,D+1),D+1);
融券余量增减:=(融券余量-REF(融券余量,2))/REF(融券余量,2)*100;
融券:=STRCAT(STRCAT(VARCAT('&& 融券余量(万手): ',VAR2STR(融券余量,2)),VARCAT(VARCAT(' 环比: ',CON2STR(融券余量增减,2)),'%')),
STRCAT(VARCAT(' 融券本周(万手): ',VAR2STR(融券本周净买,2)),VARCAT(' 融券上周(万手): ',VAR2STR(融券上周净买,2))));
外资净买:=INTPART(GPJYVALUE(6,1,1)/100);
外资净买增减:=(外资净买-REF(外资净买,2))/REF(外资净买,2)*100;
本周净买:=SUM(外资净买-REF(外资净买,1),D+1);
上周净买:=INTPART(REF(SUM(外资净买-REF(外资净买,1),D+1),D+1));
外资:=STRCAT(STRCAT(VARCAT('&&外资持股(手): ',VAR2STR(外资净买,0)),VARCAT(VARCAT(' 环比: ',CON2STR(外资净买增减,2)),'%')),
STRCAT(VARCAT(' 本周(手): ',VAR2STR(本周净买,0)),VARCAT(' 上周(手): ',VAR2STR(上周净买,0))));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.25,0.21,0,STRCAT(融资,STRCAT(融券,外资))),COLORCYAN;