HS:=vol/capital;
DD:=(ordervol(1,2)-ordervol(2,2));
DT:=HS*DD*100;
疯牛主力: 50+Sum(DT,0),linethick2;
当分增减度: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;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
