引用:

---

最初由 a9681054 發表
版主你好，

謝謝B.S及版主的說明.

1)今天要取昨天的ep,要如何表述
2)想在af=0.2時，只在當日顯示符號，之後同段的af=0.2都不再顯示.
3)當日的yar值，顯示在解盤區.

Re1....了解版主的意思.
Re2.....我想表達是af達到0.2上限做記號，目前好像是回覆到0.02做記號?
Re3.....ok

---

引用:

---

最初由 cgjj 發表
把 AFCK:=PRAF=0.02;
改為 AFCK:=PRAF=0.2;
就可以了

---

__________________
chiu

引用:

---

最初由 a9681054 發表
版主你好，

第2個新問題...已ok，謝謝~
但我另發現一個新問題，為什麼在上下翻轉第1天af值是給0?我原始規則需求是要0.02

//2019/4/28第3版規則提到

6)上翻轉第1天…加速因子(af)值從0.02開始...

---

af問題回覆，我有確認ok, 謝謝版主~

唯上下翻轉時，第1天取ep有點狀況，我整理如下....
5)(之後)上翻轉第1天…取收盤價>當日yar那一天的最高點當初始區間極值(ep),
if CC[i]>yar[i] then begin
SwapF:=1; NewYar:=ep; ep:=HH[i];

上面程式ep:=HH[i]，取到的值不一定是規則講的那一天?


5)(之後)下翻轉第1天…取收盤價<當日yar那一天的最低點當初始區間極值(ep),
if CC[i]<yar[i] then begin
SwapF:=1; NewYar:=ep; ep:=LL[i];

上面程式ep:=LL[i]，取到的值不一定是規則講的那一天?

例如1/8上翻第1天 ep應取1/7最高點當ep...結果取到當日3/8的最高點

例如3/14上翻 第1天ep應取3/13最高點當ep...結果取到當日3/14的最高點

以上問題，麻煩版主再幫我看一下....感謝~

__________________
chiu

版主你好，

sorry, 剛才再檢查一下，好像是我訂的規則有誤....
5)(之後)上翻轉第1天…取收盤價>當日yar那一天的最高點當初始區間極值(ep),
規則更正為:
5)(之後)上翻轉第1天…取"昨天"收盤價>當日yar那一天的最高點當初始區間極值(ep),



5)(之後)下翻轉第1天…取收盤價<當日yar那一天的最低點當初始區間極值(ep),
規則更正為:
5)(之後)下翻轉第1天…取"昨天"收盤價<當日yar那一天的最低點當初始區間極值(ep),


以上新規則，再麻煩版主幫忙修正，謝謝~

__________________
chiu

引用:

---

最初由 a9681054 發表
af問題回覆，我有確認ok, 謝謝版主~

唯上下翻轉時，第1天取ep有點狀況，我整理如下....
5)(之後)上翻轉第1天…取收盤價>當日yar那一天的最高點當初始區間極值(ep),
if CC[i]>yar[i] then begin
SwapF:=1; NewYar:=ep; ep:=HH[i];

上面程式ep:=HH[i]，取到的值不一定是規則講的那一天?


5)(之後)下翻轉第1天…取收盤價<當日yar那一天的最低點當初始區間極值(ep),
if CC[i]<yar[i] then begin
SwapF:=1; NewYar:=ep; ep:=LL[i];

上面程式ep:=LL[i]，取到的值不一定是規則講的那一天?

例如1/8上翻第1天 ep應取1/7最高點當ep...結果取到當日3/8的最高點

例如3/14上翻 第1天ep應取3/13最高點當ep...結果取到當日3/14的最高點

以上問題，麻煩版主再幫我看一下....感謝~

---

引用:

---

最初由 a9681054 發表
版主你好，

sorry, 剛才再檢查一下，好像是我訂的規則有誤....
5)(之後)上翻轉第1天…取收盤價>當日yar那一天的最高點當初始區間極值(ep),
規則更正為:
5)(之後)上翻轉第1天…取"昨天"收盤價>當日yar那一天的最高點當初始區間極值(ep),



5)(之後)下翻轉第1天…取收盤價<當日yar那一天的最低點當初始區間極值(ep),
規則更正為:
5)(之後)下翻轉第1天…取"昨天"收盤價<當日yar那一天的最低點當初始區間極值(ep),


以上新規則，再麻煩版主幫忙修正，謝謝~

---

引用:

---

最初由 cgjj 發表
規則 不能有所謂的 "好像"，恕不協助所謂的 "好像" !!!
請自行先確認檢驗方式是否無誤

---

a9681054 附帶上了此圖片:

__________________
chiu

引用:

---

最初由 a9681054 發表
了解!

那麼請版主依我昨天最後更正的需求規則修正，謝謝~

---

引用:

---

最初由 cgjj 發表
你是採用什麼方式檢驗的?

我這邊驗證過沒有問題唷!!!
台當月日線
1/8 的 EP 是 9588 (9588為1/7的最高點)
1/9 的 EP 是 9611 (9611為1/8的最高點)
3/14 的 EP 是 10365 (10365為3/13的最高點)
3/15 的 EP 是 10392 (10392為3/14的最高點)

這四行說的 EP，是指用來算當根 YAR 使用的 EP 值
註：翻轉首根，並未用到EP值算YAR

---

__________________
chiu

補照片說明

a9681054 附帶上了此圖片:

__________________
chiu

引用:

---

最初由 a9681054 發表
版主你好，
上面說的日期ep.......是沒錯
翻轉首根，並未用到EP值算YAR.....也是沒錯

但3/15我算的
yar=10162+0.02*(10365-10162)=10166.06

目前程式卻是顯示10166.60?
yar=10162+0.02*(10392-10162)=10166.60

我的疑問是在這裡......

---

引用:

---

最初由 cgjj 發表
你 3/15 計算YAR的 EP 值帶入錯誤，導致結果錯誤

3/15 是上翻的第二天，不是第一天，根據規則
第一天之後上漲後的ep為每日到昨天為止的上漲最高點
3/15 計算YAR的 EP 是 10392 (10392為3/14的最高點)

---

__________________
chiu

引用:

---

最初由 a9681054 發表
版主你好，
抱歉，剛再次檢查一下ep取法，應該是我的規則定義錯誤造成....

我重新定義如下:
(上翻)...第二天之後上漲後的ep為每日到昨天為止的上漲最高點

(下翻)...第二天之後下跌後的ep為每日到昨天為止的下跌最低點

以上新規則，再次麻煩版主了，感謝~

---

原碼:
if datacount<4 then exit; //K棒不足
CC:=C; HH:=H; LL:=L;
HH3:=HHV(H,3); LL3:=LLV(L,3);
RHCK:=H>ref(H,1);
RLCK:=L<ref(L,1);
DIR:=CC[3]>=CC[1]; DIR:=1-(DIR=0)*2;
YAR:CC*0 CIRCLEDOT; x:=setlbound(YAR,4);
if DIR=1 then begin
  yar[4]:=LL3[3]; ep:=HH3[3];
end else begin
  yar[4]:=HH3[3]; ep:=LL3[3];
end;
af:=0.02; NowDir:=DIR; SwapF:=0; NewYar:=0;
PrAF:YAR*0 linethick; //顯示當根 YAR 計算採用之AF值
for i=4+1 to datacount do begin
  if SwapF=1 then begin
    yar[i]:=NewYar; SwapF:=0; af:=0.02; NowDir:=-NowDir;
  end else begin
    PrAF[i]:=AF;
    yar[i]:=yar[i-1]+af*(ep-yar[i-1]); 
    if NowDir=1 then begin
      if RHCK[i] then af:=af+0.02;
      if HH[i]>ep then ep:=HH[i]; 
    end else begin
      if RLCK[i] then af:=af+0.02;
      if LL[i]<ep then ep:=LL[i];
    end;
    if af>0.2 then af:=0.2;
  end;
  if NowDir=1 then begin
    if CC[i]<yar[i] then begin
      SwapF:=1; NewYar:=ep; ep:=LL[i];
    end; 
  end else begin
    if CC[i]>yar[i] then begin
       SwapF:=1; NewYar:=ep; ep:=HH[i];
    end;
  end;  
end;
AFCK:=PRAF=0.2;
VERTLINE(AFCK=1 and ref(AFCK=0,1)) linedot; //首根AF=0.2畫垂直線
EXPLAINEX(1,'YAR: ',YAR,2,0);

版主你好，
最新版程式我再仔細驗算一下...如還有狀況再向版主反應，在此先感謝您的幫忙與指正∼

__________________
chiu