大智慧机构持仓指标公式源码[大智慧公式]
[b]大智慧机构持仓指标公式源码：[/b][b][code]
HS:=vol/capital;
DD:=BIGORDER(1,3)-BIGORDER(2,3);
DT:=HS*DD*100;
机构持仓: Sum(DT,0),linethick2;
当日增减度: DT, linethick0;
+DT,5,0),COLORRed;
,5,0),COLORGreen;
当日成交 := (DT * capital) * DYNAINFO(11)/10000;
买入手数 := (capital*DT)/100;
if (当日成交>=0) then
begin
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
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;
[/code]
[/b] 源码解析：
HS赋值:成交量(手)/当前流通股本(手)
DD赋值:BIGORDER(1,3)-BIGORDER(2,3)
DT赋值:HS*DD*100
输出机构持仓: DT的历史累和,线宽为2
输出当日增减度: DT, 线宽为0
+DT,5,0),画红色
,5,0),画绿色
赋值: (DT * 当前流通股本(手)) * 均价/10000
赋值: (当前流通股本(手)*DT)/100
THENBEGINSTR1赋值: '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,'
赋值: '净买入：'+ NUMTOSTRN(买入手数,0)+'手,'
赋值: '当日增减度：' + NUMTOSTRN(DT,3)
END
THENBEGINSTR1赋值: '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,'
赋值: '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,'
赋值: '当日增减度：' + NUMTOSTRN(DT,3)
END
DRAWFLAGTEXT(DT>=0,机构持仓,STR1+STR2+STR3),画红色
DRAWFLAGTEXT(DT<0,机构持仓,STR1+STR2+STR3),画绿色
页:
[1]