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; |
