我寫了以下的一段程式，試圖使用v5.2所提供的財務資料, 由過去4季及過去3年的EPS...,算出合理股價並繪在主圖上. 但是有個問題，那就是當移動游標時，原來所畫的線會改變, 如附件. 請問這是哪裡出了問題?


DYM:=floor(SEQDATA('','OprEff','DATE')/100)+190000; //資料年月
DMM:=MOD(DYM,100); //資料月份
DYQ:=floor(DYM/100)*10+ceiling(DMM/3); //資料年季
EPS:=SEQDATA('','OprEff','EaitSale');

LastDPP: SEQDATA('','OPREFF','barpos','last');
LastD: sysparam(1);

if (LastD<1 or LastD > datacount) then LastD:=datacount;

if (LastD>LASTDPP) then LastNO:=LastDPP else LastNO:=LastD;

A4EPS:=EPS;
J:=1;
for i=LastNO downto lbound(DYQ) do begin
if DYQ[i] <> DYQ[i-1] then begin
A4EPS:=A4EPS+EPS[i-1];
// A4EPS:=A4EPS+ref(EPS,LastNO-i+1);
IF J=3 then break;
j:=J+1;
end;
end;
A4EPS: A4EPS;
DEPS: ref(EPS,LastNO-i+1);
KN:=(A4EPS/c)*100;

EPS3:=EPS;
J:=1;
for i=LastNO downto lbound(DYQ) do begin
if DYQ[i] <> DYQ[i-1] then begin
EPS3:=EPS3+EPS[i-1];
// EPS3:=EPS3+ref(EPS,LastNO-i+1);
IF J=11 then break;
j:=J+1;
end;
end;
EPS3: EPS3/3;
Kn3:= (EPS3)/C*100;

PBR:= Close /((FINANCE(12)-FINANCE(19)) / FINANCE(1));

預計現金殖利率:= selfdata('2011現金股利')/C*100;
價值權重:= selfdata('價值權重');
價值比:= (Kn /PBR * Kn3 * 預計現金殖利率/4*價值權重) ;
合理價: round(C*SQRT(SQRT(價值比/60))),colorgreen, linethick1;

附件: 奇狐.pdf
此文件已被下載 46 次。

引用:

---

最初由 seychen 發表
我寫了以下的一段程式，試圖使用v5.2所提供的財務資料, 由過去4季及過去3年的EPS...,算出合理股價並繪在主圖上. 但是有個問題，那就是當移動游標時，原來所畫的線會改變, 如附件. 請問這是哪裡出了問題?


DYM:=floor(SEQDATA('','OprEff','DATE')/100)+190000; //資料年月
DMM:=MOD(DYM,100); //資料月份
DYQ:=floor(DYM/100)*10+ceiling(DMM/3); //資料年季
EPS:=SEQDATA('','OprEff','EaitSale');

LastDPP: SEQDATA('','OPREFF','barpos','last');
LastD: sysparam(1);

if (LastD<1 or LastD > datacount) then LastD:=datacount;

if (LastD>LASTDPP) then LastNO:=LastDPP else LastNO:=LastD;

A4EPS:=EPS;
J:=1;
for i=LastNO downto lbound(DYQ) do begin
if DYQ[i] <> DYQ[i-1] then begin
A4EPS:=A4EPS+EPS[i-1];
// A4EPS:=A4EPS+ref(EPS,LastNO-i+1);
IF J=3 then break;
j:=J+1;
end;
end;
A4EPS: A4EPS;
DEPS: ref(EPS,LastNO-i+1);
KN:=(A4EPS/c)*100;

EPS3:=EPS;
J:=1;
for i=LastNO downto lbound(DYQ) do begin
if DYQ[i] <> DYQ[i-1] then begin
EPS3:=EPS3+EPS[i-1];
// EPS3:=EPS3+ref(EPS,LastNO-i+1);
IF J=11 then break;
j:=J+1;
end;
end;
EPS3: EPS3/3;
Kn3:= (EPS3)/C*100;

PBR:= Close /((FINANCE(12)-FINANCE(19)) / FINANCE(1));

預計現金殖利率:= selfdata('2011現金股利')/C*100;
價值權重:= selfdata('價值權重');
價值比:= (Kn /PBR * Kn3 * 預計現金殖利率/4*價值權重) ;
合理價: round(C*SQRT(SQRT(價值比/60))),colorgreen, linethick1;

---

給您一個範例當參考

//近四季單季EPS之合計
QNum:=4; DYM:=floor(SEQDATA('','FIN','DATE')/100);
DSW:=DYM<>ref(DYM,1) or barpos=lbound(DYM);
QEPS:=SEQDATA('','FIN','I_EPS#S')*DSW;
合計:sum(QEPS,sumbars(DSW,QNum));

//將還沒有資料的區域，用前面算的值遞補
LastDPP:=SEQDATA('','FIN','Barpos','Last'); //最後資料位置
NullP:=barpos>LastDPP or LastDPP=0;
RefSP:=barslast(NullP=0);
合計:=ref(合計,RefSP);

可以了. 謝謝!

引用:

---

最初由 seychen 發表
可以了. 謝謝!

---

我發現 兆豐金及一些銀行股的 2019Q3 的季營收資料好像是空的, 或是有其他問題. 如附件.
另外, 想請問, 何時開始會提供月營收資料

附件: 奇狐 (1).pdf
此文件已被下載 65 次。

引用:

---

最初由 seychen 發表
我發現 兆豐金及一些銀行股的 2019Q3 的季營收資料好像是空的, 或是有其他問題. 如附件.
另外, 想請問, 何時開始會提供月營收資料

---

引用:

---

最初由 cgjj 發表
Re: 兆豐金及一些銀行股的 2019Q3 的季營收資料好像是空的
剛看這些商品 2019Q2、2019Q3 這部分資料有點問題，會請工程師查明並進行修正， 謝謝通報。

[月營收] 需 即時加盤後版(或未來的盤後版) 才有權限存取。該資料目前是自動化更新的，會隨新資料送達陸續更新。

---

引用:

---

最初由 seychen 發表
Thank you!

---