大资金
流入:amount*(BIGORDER(1,2)-BIGORDER(1,3))/10000,colorred,linethick0;
流出:amount*(BIGORDER(2,2)-BIGORDER(2,3))/10000,colorgreen,linethick0;
净额:流入-流出,linethick0;
五:Sum(净额,5),linethick0;
十:Sum(净额,10),colorgreen,linethick0;
二十:Sum(净额,20),colorgreen,linethick0;
DRAWTEXTABS(0,0,'大资金流向(万元)'),colorgreen,linethick0;
stickline(净额>0,0,净额,4,0),colorred,linethick2;
stickline(净额<0,净额,0,4,0),colorgreen,linethick2;
0,dotline,colorwhite;
HS:=vol/capital;
DD:=((BIGORDER(1,2)-BIGORDER(1,3))-(BIGORDER(2,2)-BIGORDER(2,3)));
DT:=HS*DD*100;
十红:count(净额>0,10),colorred;
连红:last(净额>0);
当日增减度:DT, linethick0;
当日成交 := (DT * capital) * DYNAINFO(11)/10000;
买入手数 := (capital*DT)/100;
if (当日成交>=0) then
begin
Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,';
Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';
Str3 := '当日增减度：' + NUMTOSTRN(DT,3);
end;
if 当日成交<0 then
begin
Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,';
Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,';
Str3 := '当日增减度：' + NUMTOSTRN(DT,3);
end;
DRAWFLAGTEXT(DT>=0,净额,Str1+str2+str3),COLORRED;
DRAWFLAGTEXT(DT<0,净额,Str1+str2+str3),COLORGREEN; |
