打印本文
關(guān)閉窗口
相關(guān)標(biāo)簽: 大智慧機(jī)構(gòu)持倉指標(biāo)公式源碼，機(jī)構(gòu)持倉比例查詢 、 機(jī)構(gòu)持倉 、 機(jī)構(gòu)的持倉比率 、 通達(dá)信 機(jī)構(gòu)持倉 、 機(jī)構(gòu)持倉數(shù)據(jù) 、 大北農(nóng)最新機(jī)構(gòu)持倉率 、 主力散戶持倉公式 、 主力持倉線指標(biāo)公式 、 主力持倉公式 、
大智慧機(jī)構(gòu)持倉指標(biāo)公式源碼：
HS:=vol/capital;
DD:=BIGORDER(1,3)-BIGORDER(2,3);
DT:=HS*DD*100;
機(jī)構(gòu)持倉: Sum(DT,0),linethick2;
當(dāng)日增減度: DT, linethick0;
+DT,5,0),COLORRed;
,5,0),COLORGreen;
當(dāng)日成交 := (DT * capital) * DYNAINFO(11)/10000;
買入手?jǐn)?shù) := (capital*DT)/100;
if (當(dāng)日成交>=0) then
begin
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.tumamayizhan.com',CURRENTTIME>180000 and (CXH=4 OR CXH=9));
DRAWTEXTREL(10 ,10 ,'');
Str1:= '凈買入：'+ NUMTOSTRN(當(dāng)日成交,0)+'萬元,';
Str2 := '凈買入：'+ NUMTOSTRN(買入手?jǐn)?shù),0)+'手,';
Str3 := '當(dāng)日增減度：' + NUMTOSTRN(DT,3);
end;
if 當(dāng)日成交<0 then
begin
Str1:= '凈賣出：'+ NUMTOSTRN(當(dāng)日成交,0)+'萬元,';
Str2 := '凈賣出：'+ NUMTOSTRN(買入手?jǐn)?shù),0)+'手,';
Str3 := '當(dāng)日增減度：' + NUMTOSTRN(DT,3);
end;
DRAWFLAGTEXT(DT>=0,機(jī)構(gòu)持倉,Str1+str2+str3),COLORRED;
DRAWFLAGTEXT(DT<0,機(jī)構(gòu)持倉,Str1+str2+str3),COLORGREEN;
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
源碼解析：
HS賦值:成交量(手)/當(dāng)前流通股本(手)
DD賦值:BIGORDER(1,3)-BIGORDER(2,3)
DT賦值:HS*DD*100
輸出機(jī)構(gòu)持倉: DT的歷史累和,線寬為2
輸出當(dāng)日增減度: DT, 線寬為0
+DT,5,0),畫紅色
,5,0),畫綠色
賦值: (DT * 當(dāng)前流通股本(手)) * 均價(jià)/10000
賦值: (當(dāng)前流通股本(手)*DT)/100
THENBEGINSTR1賦值: '凈買入：'+ NUMTOSTRN(當(dāng)日成交,0)+'萬元,'
賦值: '凈買入：'+ NUMTOSTRN(買入手?jǐn)?shù),0)+'手,'
賦值: '當(dāng)日增減度：' + NUMTOSTRN(DT,3)
END
THENBEGINSTR1賦值: '凈賣出：'+ NUMTOSTRN(當(dāng)日成交,0)+'萬元,'
賦值: '凈賣出：'+ NUMTOSTRN(買入手?jǐn)?shù),0)+'手,'
賦值: '當(dāng)日增減度：' + NUMTOSTRN(DT,3)
END
DRAWFLAGTEXT(DT>=0,機(jī)構(gòu)持倉,STR1+STR2+STR3),畫紅色
DRAWFLAGTEXT(DT<0,機(jī)構(gòu)持倉,STR1+STR2+STR3),畫綠色