通达信融资余额、融券余量指标公式(附源码破译和源码)

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;