cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 18166 |
|
回覆: 加權股價淨值比
引用:
最初由 dreamer931 發表
加權股價淨值比請問如何編寫?
大盤股價淨值比
一律採用未還權收盤價計算，不受F11切換影響。
已公告財報的區域，歷史值會採用公告值做計算。
未公告財報的區域，其值為預估值
(拿之前近期已公告的財報來算，後續會隨財報公佈追溯調整)。
由於成分股並非一成不變，故僅近期數據比較有參考意義(只能概算)。
本公式僅適用於大盤日線。
本公式計算非常繁重，請勿於盤中使用!!!
原碼:
CK:=Stklabel='100' or Stklabel='400';
DRAWTEXTEX(CK=0,1,500,450,'當前商品不適用，本指標僅適用於大盤。') COLORMAGENTA ALIGN0;
if CK=0 then exit;
if Stklabel='100' then UseBlk:='集中加權成分股';
if Stklabel='400' then UseBlk:='櫃檯加權成分股';
市值:=0; 淨值:=0;
for i=1 to STKCOUNT(UseBlk) do begin
UseStk:=STKFROMBLK(UseBlk,i);
期末每股淨值:=SEQDATA(UseStk,'OPREFF','NetValuePerShare');
if lbound(期末每股淨值)>0 then begin
期末每股淨值:=if(barpos>=lbound(期末每股淨值),期末每股淨值,0);
期末股本:=SEQDATA(UseStk,'OPREFF','FinalCapital')*10;
期末股本:=if(barpos>=lbound(期末股本),期末股本,0);
未還權收盤價:=SEQDATA(UseStk,'DAY','CLOSE');
未還權收盤價:=if(barpos>=lbound(未還權收盤價),未還權收盤價,0);
市值:=市值+期末股本*未還權收盤價;
淨值:=淨值+期末股本*期末每股淨值;
end;
end;
股價淨值比:=市值/淨值;
x:=SETLBOUND(股價淨值比,lbound(barssince(股價淨值比>0)));
if Stklabel='100' then 加權股價淨值比:股價淨值比;
if Stklabel='400' then 櫃台股價淨值比:股價淨值比;
|
|
向版主報告此篇 |  |
|
2023-02-23 10:30
感謝版主大大耐心詳盡回覆!感恩
