大智慧资金净增副图指标

源码

DRAWGBKLAST(L,STRIP(RGB(0,0,205),RGB(47,79,79),0));
HS:=vol/capital;
资金:EXTDATA(3),LINETHICK0,colorred;{1}

DD:=资金-REF(资金,2);
DT:=HS*DD*100;
资金净增: 50+Sum(DT,0);
当日增减度: DT, linethick0;
STICKLINE(DT>0,资金净增,资金净增+DT,5,0),COLORRed;
STICKLine(DT<0,资金净增+DT,资金净增,5,0),COLORGreen;
当日成交 := (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;