引用:

---

最初由 a9681054 發表
版主你好，

上翻...首個yar,取4天前的最低點
下翻...首個yar,取4天前的最高點

---

版主你好，
了解,我再想一下.....謝謝

__________________
chiu

引用:

---

最初由 a9681054 發表
版主你好，
了解,我再想一下.....謝謝

---

版主你好,

針對版主所提問題，我驗算後重新擬規則如下，再麻煩確認是否可行?謝謝~

第2版….2019/4/25
//往上拋物線規則定義
1)以(歷史)前二根收盤價做比較,假如c>ref(c,1),則在第4根k棒開始起畫上翻yar.
2)(歷史)上翻轉第1天…取前三天最低點當初始的yar.
3)(歷史)上翻轉第1天…取前三天最高點當初始區間極值(ep),之後上漲後的ep為每日到昨天為止的上漲最高點.
4)(之後)上翻轉第1天…取前次往下翻轉的最低點當初始的yar.
5)(之後)上翻轉第1天…取收盤價>當日yar那一天的最高點當初始區間極值(ep),之後上漲後的ep為每日到昨天為止的上漲最高點.
6)上翻轉第1天…加速因子(af)值從0.02開始,第2天af取決於前二天高點做比較,假如昨高>前高,則af+0.02否則不變,唯其af最高累加上限值為0.2,當af值到0.2時,爾後即使股價再創新高,其af值還是以0.2代入計算.
7)上翻轉第1個yar計算…今yar=昨yar+af*(昨ep-昨yar)
8)上翻轉後直到當日收盤價<當日上翻轉的yar, 上翻才結束.


//往下拋物線規則定義
1)以(歷史)前二根收盤價做比較,假如c<ref(c,1),則在第4根k棒開始起畫下翻yar.
2) (歷史)下翻轉第1天…取前三天最高點當初始的yar.
3) (歷史)下翻轉第1天…取前三天最低點當初始區間極值(ep),之後下跌後的ep為每日到昨天為止的下跌最低點.
4)(之後)下翻轉第1天…取前次往上翻轉的最高點當初始的yar.
5)(之後)下翻轉第1天…取收盤價<當日yar那一天的最低點當初始區間極值(ep),之後下跌後的ep為每日到昨天為止的下跌最低點.
6)下翻轉第1天…加速因子(af)值從0.02開始,第2天af取決於前二天低點做比較,假如昨低<前低,則af+0.02否則不變,唯其af最高累加上限值為0.2,當af值到0.2時,爾後即使股價再創新低,其af值還是以0.2代入計算.
7)下翻轉第1個yar計算…今yar=昨yar+af*(昨ep-昨yar)
8)下翻轉後直到當日收盤價>當日下翻轉的yar, 下翻才結束.

__________________
chiu

引用:

---

最初由 a9681054 發表
版主你好,

針對版主所提問題，我驗算後重新擬規則如下，再麻煩確認是否可行?謝謝~

第2版….2019/4/25
//往上拋物線規則定義
1)以(歷史)前二根收盤價做比較,假如c>ref(c,1),則在第4根k棒開始起畫上翻yar.
2)(歷史)上翻轉第1天…取前三天最低點當初始的yar.
3)(歷史)上翻轉第1天…取前三天最高點當初始區間極值(ep),之後上漲後的ep為每日到昨天為止的上漲最高點.
4)(之後)上翻轉第1天…取前次往下翻轉的最低點當初始的yar.
5)(之後)上翻轉第1天…取收盤價>當日yar那一天的最高點當初始區間極值(ep),之後上漲後的ep為每日到昨天為止的上漲最高點.
6)上翻轉第1天…加速因子(af)值從0.02開始,第2天af取決於前二天高點做比較,假如昨高>前高,則af+0.02否則不變,唯其af最高累加上限值為0.2,當af值到0.2時,爾後即使股價再創新高,其af值還是以0.2代入計算.
7)上翻轉第1個yar計算…今yar=昨yar+af*(昨ep-昨yar)
8)上翻轉後直到當日收盤價<當日上翻轉的yar, 上翻才結束.


//往下拋物線規則定義
1)以(歷史)前二根收盤價做比較,假如c<ref(c,1),則在第4根k棒開始起畫下翻yar.
2) (歷史)下翻轉第1天…取前三天最高點當初始的yar.
3) (歷史)下翻轉第1天…取前三天最低點當初始區間極值(ep),之後下跌後的ep為每日到昨天為止的下跌最低點.
4)(之後)下翻轉第1天…取前次往上翻轉的最高點當初始的yar.
5)(之後)下翻轉第1天…取收盤價<當日yar那一天的最低點當初始區間極值(ep),之後下跌後的ep為每日到昨天為止的下跌最低點.
6)下翻轉第1天…加速因子(af)值從0.02開始,第2天af取決於前二天低點做比較,假如昨低<前低,則af+0.02否則不變,唯其af最高累加上限值為0.2,當af值到0.2時,爾後即使股價再創新低,其af值還是以0.2代入計算.
7)下翻轉第1個yar計算…今yar=昨yar+af*(昨ep-昨yar)
8)下翻轉後直到當日收盤價>當日下翻轉的yar, 下翻才結束.

---

引用:

---

最初由 cgjj 發表
少考慮一種情況!
(歷史)前二根收盤價做比較，若 c=ref(c,1) 您要怎樣處理?

---

__________________
chiu

版主你好,

yar規則重新整理如下,麻煩版主再幫忙確認是否可行?謝謝~

第3版….2019/4/28
//往上拋物線規則定義
1)以(歷史)前三根收盤價做比較,假如c>=ref(c,2),則在第4根k棒開始起畫上翻yar.
2)(歷史)上翻轉第1天…取前三天最低點當初始的yar.
3)(歷史)上翻轉第1天…取前三天最高點當初始區間極值(ep),之後上漲後的ep為每日到昨天為止的上漲最高點.
4)(之後)上翻轉第1天…取從前次收盤價<當日yar那一天開始到往下翻轉的區間最低點當初始的yar.
5)(之後)上翻轉第1天…取收盤價>當日yar那一天的最高點當初始區間極值(ep),之後上漲後的ep為每日到昨天為止的上漲最高點.
6)上翻轉第1天…加速因子(af)值從0.02開始,第2天af取決於前二天高點做比較,假如昨高>前高,則af+0.02否則不變,唯其af最高累加上限值為0.2,當af值到0.2時,爾後即使股價再創新高,其af值還是以0.2代入計算.
7)上翻轉第1個yar計算…今yar=昨yar+af*(昨ep-昨yar)
8)上翻轉後直到當日收盤價<當日yar, 上翻才結束,並由隔天開始往下翻轉.


//往下拋物線規則定義
1)以(歷史)前三根收盤價做比較,假如c<ref(c,2),則在第4根k棒開始起畫下翻yar.
2) (歷史)下翻轉第1天…取前三天最高點當初始的yar.
3) (歷史)下翻轉第1天…取前三天最低點當初始區間極值(ep),之後下跌後的ep為每日到昨天為止的下跌最低點.
4)(之後)下翻轉第1天…取從前次收盤價>當日yar那一天開始到往上翻轉的區間最高點當初始的yar.
5)(之後)下翻轉第1天…取收盤價<當日yar那一天的最低點當初始區間極值(ep),之後下跌後的ep為每日到昨天為止的下跌最低點.
6)下翻轉第1天…加速因子(af)值從0.02開始,第2天af取決於前二天低點做比較,假如昨低<前低,則af+0.02否則不變,唯其af最高累加上限值為0.2,當af值到0.2時,爾後即使股價再創新低,其af值還是以0.2代入計算.
7)下翻轉第1個yar計算…今yar=昨yar+af*(昨ep-昨yar)
8)下翻轉後直到當日收盤價>當日yar, 下翻才結束, 並由隔天開始往上翻轉.

__________________
chiu

引用:

---

最初由 a9681054 發表
版主你好,

yar規則重新整理如下,麻煩版主再幫忙確認是否可行?謝謝~

第3版….2019/4/28
//往上拋物線規則定義
1)以(歷史)前三根收盤價做比較,假如c>=ref(c,2),則在第4根k棒開始起畫上翻yar.
2)(歷史)上翻轉第1天…取前三天最低點當初始的yar.
3)(歷史)上翻轉第1天…取前三天最高點當初始區間極值(ep),之後上漲後的ep為每日到昨天為止的上漲最高點.
4)(之後)上翻轉第1天…取從前次收盤價<當日yar那一天開始到往下翻轉的區間最低點當初始的yar.
5)(之後)上翻轉第1天…取收盤價>當日yar那一天的最高點當初始區間極值(ep),之後上漲後的ep為每日到昨天為止的上漲最高點.
6)上翻轉第1天…加速因子(af)值從0.02開始,第2天af取決於前二天高點做比較,假如昨高>前高,則af+0.02否則不變,唯其af最高累加上限值為0.2,當af值到0.2時,爾後即使股價再創新高,其af值還是以0.2代入計算.
7)上翻轉第1個yar計算…今yar=昨yar+af*(昨ep-昨yar)
8)上翻轉後直到當日收盤價<當日yar, 上翻才結束,並由隔天開始往下翻轉.


//往下拋物線規則定義
1)以(歷史)前三根收盤價做比較,假如c<ref(c,2),則在第4根k棒開始起畫下翻yar.
2) (歷史)下翻轉第1天…取前三天最高點當初始的yar.
3) (歷史)下翻轉第1天…取前三天最低點當初始區間極值(ep),之後下跌後的ep為每日到昨天為止的下跌最低點.
4)(之後)下翻轉第1天…取從前次收盤價>當日yar那一天開始到往上翻轉的區間最高點當初始的yar.
5)(之後)下翻轉第1天…取收盤價<當日yar那一天的最低點當初始區間極值(ep),之後下跌後的ep為每日到昨天為止的下跌最低點.
6)下翻轉第1天…加速因子(af)值從0.02開始,第2天af取決於前二天低點做比較,假如昨低<前低,則af+0.02否則不變,唯其af最高累加上限值為0.2,當af值到0.2時,爾後即使股價再創新低,其af值還是以0.2代入計算.
7)下翻轉第1個yar計算…今yar=昨yar+af*(昨ep-昨yar)
8)下翻轉後直到當日收盤價>當日yar, 下翻才結束, 並由隔天開始往上翻轉.

---

原碼:
if datacount<3 then exit; //K棒不足
CC:=C; HH:=H; LL:=L;
HH3:=HHV(H,3); LL3:=LLV(L,3);
RHCK:=ref(H>ref(H,1),1);
RLCK:=ref(L<ref(L,1),1);
DIR:=CC[3]>=CC[1]; DIR:=1-(DIR=0)*2;
YAR:CC*0 CIRCLEDOT; x:=setlbound(YAR,3);
if DIR=1 then begin
  yar[3]:=LL3[3]; ep:=HH3[3];
end else begin
  yar[3]:=HH3[3]; ep:=LL3[3];
end;
af:=0.02; NowDir:=DIR; SwapF:=0; NewYar:=0;
for i=3+1 to datacount do begin
  if SwapF=1 then begin
    yar[i]:=NewYar; SwapF:=0;
  end else begin
    yar[i]:=yar[i-1]+af*(ep-yar[i-1]); 
  end;
  if NowDir=1 then begin
    if RHCK[i] then af:=af+0.02;
    if CC[i]<yar[i] then begin
      SwapF:=1; NewYar:=ep; ep:=LL[i];
    end else begin
      if HH[i]>ep then ep:=HH[i];
    end; 
  end else begin
    if RLCK[i] then af:=af+0.02;
    if CC[i]>yar[i] then begin
       SwapF:=1; NewYar:=ep; ep:=HH[i];
    end else begin
      if LL[i]<ep then ep:=LL[i];
    end;
  end;
  if af>0.2 then af:=0.2;
  if SwapF=1 then begin
    af:=0.02; NowDir:=-NowDir;
  end;
end;

版主你好,

謝謝，辛苦了!
大致符合想法，但還有點小差異，我再確認一下問題，之後再向版主提出.....

__________________
chiu

版主好,

目前有發現不管是往上或往下翻轉,yar都是從第3根k棒起畫, 原規則定義是希望從第4根起畫,麻煩版主再幫忙看一下.......謝謝~

__________________
chiu

引用:

---

最初由 a9681054 發表
版主好,

目前有發現不管是往上或往下翻轉,yar都是從第3根k棒起畫, 原規則定義是希望從第4根起畫,麻煩版主再幫忙看一下.......謝謝~

---

原碼:
if datacount<4 then exit; //K棒不足
CC:=C; HH:=H; LL:=L;
HH3:=HHV(H,3); LL3:=LLV(L,3);
RHCK:=ref(H>ref(H,1),1);
RLCK:=ref(L<ref(L,1),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;
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
    yar[i]:=yar[i-1]+af*(ep-yar[i-1]); 
  end;
  if NowDir=1 then begin
    if RHCK[i] then af:=af+0.02;
    if CC[i]<yar[i] then begin
      SwapF:=1; NewYar:=ep; ep:=LL[i];
    end else begin
      if HH[i]>ep then ep:=HH[i];
    end; 
  end else begin
    if RLCK[i] then af:=af+0.02;
    if CC[i]>yar[i] then begin
       SwapF:=1; NewYar:=ep; ep:=HH[i];
    end else begin
      if LL[i]<ep then ep:=LL[i];
    end;
  end;
  if af>0.2 then af:=0.2;
end;

引用:

---

最初由 a9681054 發表
版主好,

目前有發現不管是往上或往下翻轉,yar都是從第3根k棒起畫, 原規則定義是希望從第4根起畫,麻煩版主再幫忙看一下.......謝謝~

---

__________________
chiu

版主你好,

剛驗算之後每日yar計算,發現我原定義的ep取法有誤.
往上轉ep....是取到"前日"為止的上漲最高點(不是昨日).

往下轉ep....是取到"前日"為止的下跌最低點(不是昨日).

以上，再次麻煩版主幫忙修正，謝謝~

__________________
chiu

引用:

---

最初由 a9681054 發表
版主你好,

剛驗算之後每日yar計算,發現我原定義的ep取法有誤.
往上轉ep....是取到"前日"為止的上漲最高點(不是昨日).

往下轉ep....是取到"前日"為止的下跌最低點(不是昨日).

以上，再次麻煩版主幫忙修正，謝謝~

---

原碼:
if datacount<4 then exit; //K棒不足
CC:=C; HH:=H; LL:=L;
HH3:=HHV(H,3); LL3:=LLV(L,3);
RHCK:=ref(H>ref(H,1),1);
RLCK:=ref(L<ref(L,1),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;
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
    yar[i]:=yar[i-1]+af*(ep-yar[i-1]); 
  end;
  if NowDir=1 then begin
    if RHCK[i] then af:=af+0.02;
    if CC[i]<yar[i] then begin
      SwapF:=1; NewYar:=ep; ep:=LL[i];
    end else begin
      if HH[i-1]>ep then ep:=HH[i-1];
    end; 
  end else begin
    if RLCK[i] then af:=af+0.02;
    if CC[i]>yar[i] then begin
       SwapF:=1; NewYar:=ep; ep:=HH[i];
    end else begin
      if LL[i-1]<ep then ep:=LL[i-1];
    end;
  end;
  if af>0.2 then af:=0.2;
end;

版主好,

yar還有一些其它發現到的問題，我重新統一整理如下，麻煩版主再幫我看一下......謝謝~

第3版….2019/4/28
//往上拋物線規則定義
1)以(歷史)前三根收盤價做比較,假如c>=ref(c,2),則在第4根k棒開始起畫上翻yar.
說明:ok
2)(歷史)上翻轉第1天…取前三天最低點當初始的yar.
說明:ok
3)(歷史)上翻轉第1天…取前三天最高點當初始區間極值(ep),之後上漲後的ep為每日到昨天為止的上漲最高點.
說明:規則定義有誤……2019/5/2版主已幫忙修正
4)(之後)上翻轉第1天…取從前次收盤價<當日yar那一天開始到往下翻轉的區間最低點當初始的yar.
說明:ok
5)(之後)上翻轉第1天…取收盤價>當日yar那一天的最高點當初始區間極值(ep),之後上漲後的ep為每日到昨天為止的上漲最高點.
說明1:上翻初始ep程式取到上翻第1天的最高點…需求為收盤價>當日yar那一天的最高點
說明2: 之後上漲後的ep規則定義有誤……2019/5/2版主已幫忙修正.
6)上翻轉第1天…加速因子(af)值從0.02開始,第2天af取決於前二天高點做比較,假如昨高>前高,則af+0.02否則不變,唯其af最高累加上限值為0.2,當af值到0.2時,爾後即使股價再創新高,其af值還是以0.2代入計算.
說明1:上翻開始前1天收盤價>yar,當日af一律給0,即af=0
說明2:第1天…af固定給0.02,即af=0.02
說明3:第2天…af取決於前二天高點做比較,假如昨高>前高,則af+0.02否則不變…需求更正為第2天af取決於”今天與昨天”高點做比較,假如”今高>昨高”,則af+0.02否則不變
7)上翻轉第1個yar計算…今yar=昨yar+af*(昨ep-昨yar)
說明:ok
8)上翻轉後直到當日收盤價<當日yar, 上翻才結束,並由隔天開始往下翻轉.
說明:ok


//往下拋物線規則定義
1)以(歷史)前三根收盤價做比較,假如c<ref(c,2),則在第4根k棒開始起畫下翻yar.
說明:ok
2) (歷史)下翻轉第1天…取前三天最高點當初始的yar.
說明:ok
3) (歷史)下翻轉第1天…取前三天最低點當初始區間極值(ep),之後下跌後的ep為每日到昨天為止的下跌最低點.
說明:規則定義有誤……2019/5/2版主已幫忙修正
4)(之後)下翻轉第1天…取從前次收盤價>當日yar那一天開始到往上翻轉的區間最高點當初始的yar.
說明:ok
5)(之後)下翻轉第1天…取收盤價<當日yar那一天的最低點當初始區間極值(ep),之後下跌後的ep為每日到昨天為止的下跌最低點.
說明1:下翻初始ep程式取到下翻第1天的最低點…需求為收盤價<當日yar那一天的最低點
說明2: 之後下跌後的ep規則定義有誤……2019/5/2版主已幫忙修正
6)下翻轉第1天…加速因子(af)值從0.02開始,第2天af取決於前二天低點做比較,假如昨低<前低,則af+0.02否則不變,唯其af最高累加上限值為0.2,當af值到0.2時,爾後即使股價再創新低,其af值還是以0.2代入計算.
說明1:下翻開始前1天收盤價<yar,當日af一律給0,即af=0
說明2:第1天…af固定給0.02,即af=0.02
說明3:第2天…af取決於前二天低點做比較,假如昨低<前低,則af+0.02否則不變…需求更正為第2天af取決於”今天與昨天”低點做比較,假如”今低<昨低”,則af+0.02否則不變
7)下翻轉第1個yar計算…今yar=昨yar+af*(昨ep-昨yar)
說明:ok
8)下翻轉後直到當日收盤價>當日yar, 下翻才結束, 並由隔天開始往上翻轉.
說明:ok

__________________
chiu