理想资金流向

DD:=(BIGORDER(1,2)-BIGORDER(2,2));
净额:=if(TYPE=0 and date<1090101,0,DD*amount/10000);
drawmovetext(100,'活跃资金进出 '+numtostr(净额)+'万元  '),colorcyan;
stickline(净额>0,0,净额,4,0),colorred;
stickline(净额<0,0,净额,4,0),colorgreen;
stickline(净额=0,0,净额,4,0),colorwhite;
HS:=vol/capital;
DT:=HS*DD*100;
{三增减:Sum(DT,3),colorgreen,linethick0;
五增减:Sum(DT,5),colorgreen,linethick0;
七增减:Sum(DT,7),colorgreen,linethick0;
十增减:Sum(DT,10),colorgreen,linethick0;
十五增减:Sum(DT,15),colorgreen,linethick0;
二十增减:Sum(DT,20),colorgreen,linethick0;}
{五日飘红:count(净额>0,5),colorred,linethick0;}
十日飘红:count(净额>0,10),colorred,linethick0;
{十五日飘红:count(净额>0,15),colorred,linethick0;
二十日飘红:count(净额>0,20),colorred,linethick0;}
连红:last(净额>0),colorred,linethick0;
drawmovetext(十日飘红>4,'关注 '),coloryellow;
drawmovetext(连红>=2,'严重关注 '),colorff00ff;

当日成交 := (DT * capital) * DYNAINFO(11)/10000;
买入手数 := (capital*DT)/100;
if (当日成交>=0) then
begin
Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,';
Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手';

end;
if 当日成交<0 then
begin
Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,';
Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手';

end;
DRAWFLAGTEXT(DT>=0,净额,Str1+str2),COLORRED;
DRAWFLAGTEXT(DT<0,净额,Str1+str2),COLORGREEN;
0,colorblACK,linethick0;
DRAWTEXTREL(0,0,'理想资金流向'),COLORYELLOW;