奇狐社區論壇
在這個頁面顯示本主題全部的 31 個文章

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 問題請教 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=19381)

由 chungdune 在 2015-07-27 23:30 發表:

問題請教

請問版主：
如何表達當日五分鐘線，在10：30（含）之前，由收盤價折線所產生的第一、第二個波峰，謝謝

由 cgjj 在 2015-07-28 08:32 發表:

回覆: 問題請教

引用:
最初由 chungdune 發表
請問版主：
如何表達當日五分鐘線，在10：30（含）之前，由收盤價折線所產生的第一、第二個波峰，謝謝


請定義 "波峰" 判斷的條件為何? (要有邏輯，不能用眼睛看)
以及如何表達? (在波峰位置畫垂直線嗎?)

由 chungdune 在 2015-07-28 12:34 發表:

回覆: 回覆: 問題請教

引用:
最初由 cgjj 發表
請定義 "波峰" 判斷的條件為何? (要有邏輯，不能用眼睛看)
以及如何表達? (在波峰位置畫垂直線嗎?)


>>請定義 "波峰" 判斷的條件為何?
例如：9:05收盤價大於昨日收盤價，9:10收盤價小於9:05收盤價，如此產生的轉折就算波峰

>>如何表達?
顯示出當時收盤價數據

由 cgjj 在 2015-07-28 13:24 發表:

回覆: 回覆: 回覆: 問題請教

引用:
最初由 chungdune 發表
>>請定義 "波峰" 判斷的條件為何?
例如：9:05收盤價大於昨日收盤價，9:10收盤價小於9:05收盤價，如此產生的轉折就算波峰

>>如何表達?
顯示出當時收盤價數據


W1 和 W2 就是您要的數值

DE:=date;
DESP:=barslast(DE<>ref(DE,1));
CK:=c>ref(c,1) and c>refx(c,1) and time<103000;
CK:=sum(CK,DESP+1)*CK;
SP1:=barslast(CK=1);
SP2:=barslast(CK=2);
W1:ref(C,SP1)*(ref(DE,SP1)=ref(DE,DESP)) linethick;
W2:ref(C,SP2)*(ref(DE,SP1)=ref(DE,DESP)) linethick;
VERTLINE(CK=1) linedot;
VERTLINE(CK=2) linedot;

由 chungdune 在 2015-07-29 11:01 發表:

回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 cgjj 發表
W1 和 W2 就是您要的數值

DE:=date;
DESP:=barslast(DE<>ref(DE,1));
CK:=c>ref(c,1) and c>refx(c,1) and time<103000;
CK:=sum(CK,DESP+1)*CK;
SP1:=barslast(CK=1);
SP2:=barslast(CK=2);
W1:ref(C,SP1)*(ref(DE,SP1)=ref(DE,DESP)) linethick;
W2:ref(C,SP2)*(ref(DE,SP1)=ref(DE,DESP)) linethick;
VERTLINE(CK=1) linedot;
VERTLINE(CK=2) linedot;


請問版主以下條件該如何寫：
若要在W1、W2畫水平線，若是今日有被任意收盤價突破或跌破，則線不再延伸；或是直到今日收盤後未被任意收盤價突破或跌破，則線於收盤時不再延伸

由 cgjj 在 2015-07-29 11:09 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 chungdune 發表
請問版主以下條件該如何寫：
若要在W1、W2畫水平線，若是今日有被任意收盤價突破或跌破，則線不再延伸；或是直到今日收盤後未被任意收盤價突破或跌破，則線於收盤時不再延伸


W1 和 W2 都是收盤價的波峰
其下一根收盤價，必定跌破波峰的收盤價
請 Check 規則無誤

由 chungdune 在 2015-08-02 14:29 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

請問五分鐘線，
1.在今日第一個KD生叉時，在前一根K棒收盤價標示「KD生叉」文字，之後的KD生叉皆不標示，明日重新計算
2.在今日第一個KD生叉時，往前尋找最近一個收盤價的轉折低點（定義：收盤價呈現高-低-高），且此轉折低點要低於KD生叉時之收盤價低點，並且在此轉折低點劃線且向右延伸，直到被某一收盤價跌破

由 cgjj 在 2015-08-03 09:01 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 chungdune 發表
請問五分鐘線，
1.在今日第一個KD生叉時，在前一根K棒收盤價標示「KD生叉」文字，之後的KD生叉皆不標示，明日重新計算
2.在今日第一個KD生叉時，往前尋找最近一個收盤價的轉折低點（定義：收盤價呈現高-低-高），且此轉折低點要低於KD生叉時之收盤價低點，並且在此轉折低點劃線且向右延伸，直到被某一收盤價跌破


定義仍有不明確的地方

Q1:
於 1. 在 "KD生叉" 條件成立時，標示 "KD生叉" 於前根收盤價
那麼 2. 中所提 "KD生叉" 時之價，是取 "KD生叉" 的前根還是本根之價?

Q2:
於 2. 所提 "要低於KD生叉時之收盤價低點"
收盤價僅有一個價，沒有所謂低點，所指是否為該根K棒最低價呢?

由 chungdune 在 2015-08-03 09:21 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 cgjj 發表
定義仍有不明確的地方

Q1:
於 1. 在 "KD生叉" 條件成立時，標示 "KD生叉" 於前根收盤價
那麼 2. 中所提 "KD生叉" 時之價，是取 "KD生叉" 的前根還是本根之價?

Q2:
於 2. 所提 "要低於KD生叉時之收盤價低點"
收盤價僅有一個價，沒有所謂低點，所指是否為該根K棒最低價呢?


A1:
2.中所提 "KD生叉" 時之價，是取 "KD生叉" 的本根之價，也就是生叉成立時當根的收盤價

A2:
是指收盤價，正確的說法應該是 "要低於KD生叉時當根之收盤價"

由 cgjj 在 2015-08-03 10:18 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 chungdune 發表
A1:
2.中所提 "KD生叉" 時之價，是取 "KD生叉" 的本根之價，也就是生叉成立時當根的收盤價

A2:
是指收盤價，正確的說法應該是 "要低於KD生叉時當根之收盤價"


KD 源碼請自行帶入於前

原碼:
DESP:=barslast(date<>ref(date,1));
KD生叉:=cross(K,D);
FKD生叉:=KD生叉 and sum(KD生叉,DESP+1)=1;
DRAWTEXT(refx(FKD生叉,1),C,'KD生叉') ALIGN2 pxup9;
VERTLINE(FKD生叉) linedot;
VLC:=C<ref(C,1) and C<refx(C,1) or barpos=0;
DWP:=C*0; DWL:=DWP; CC:=C;
for i=lbound(FKD生叉) to datacount do begin
  if FKD生叉[i] then begin
    for j=i-1 downto 1 do if VLC[j] then break;
    if j=0 then break;
    DWP[j]:=1;
    for k=j+1 to datacount do begin
      if CC[k]<CC[j] then break;
    end;
    DWL[j]:=j-K;
  end;
end;
DRAWSL(DWP,C,0,DWL,0) pxdn2 linedot;

由 chungdune 在 2015-08-04 22:12 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 cgjj 發表
KD 源碼請自行帶入於前

原碼:
DESP:=barslast(date<>ref(date,1));
KD生叉:=cross(K,D);
FKD生叉:=KD生叉 and sum(KD生叉,DESP+1)=1;
DRAWTEXT(refx(FKD生叉,1),C,'KD生叉') ALIGN2 pxup9;
VERTLINE(FKD生叉) linedot;
VLC:=C<ref(C,1) and C<refx(C,1) or barpos=0;
DWP:=C*0; DWL:=DWP; CC:=C;
for i=lbound(FKD生叉) to datacount do begin
  if FKD生叉[i] then begin
    for j=i-1 downto 1 do if VLC[j] then break;
    if j=0 then break;
    DWP[j]:=1;
    for k=j+1 to datacount do begin
      if CC[k]<CC[j] then break;
    end;
    DWL[j]:=j-K;
  end;
end;
DRAWSL(DWP,C,0,DWL,0) pxdn2 linedot;


有關第2點向右劃線的問題要請教：
1.目前的狀況是左邊起點若是不再畫面內被看見，整條線就會消失，有沒有辦法讓線就算不被看見也一直持續顯示？
2.目前是「向右延伸，直到被某一收盤價跌破」，可否改成「向右延伸，直到被今日某一收盤價跌破，若今日未跌破則不再延伸至明日」？

由 cgjj 在 2015-08-05 11:19 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 chungdune 發表
有關第2點向右劃線的問題要請教：
1.目前的狀況是左邊起點若是不再畫面內被看見，整條線就會消失，有沒有辦法讓線就算不被看見也一直持續顯示？
2.目前是「向右延伸，直到被某一收盤價跌破」，可否改成「向右延伸，直到被今日某一收盤價跌破，若今日未跌破則不再延伸至明日」？ 


原碼:
DECK:=date<>ref(date,1) or barpos=1;
DESP:=barslast(DECK);
DENO:=SUM(DECK,0);
DEM2:=MOD(DENO,2)+1;
KD生叉:=cross(K,D);
FKD生叉:=KD生叉 and sum(KD生叉,DESP+1)=1;
DRAWTEXT(refx(FKD生叉,1),C,'KD生叉') ALIGN2 pxup9;
VERTLINE(FKD生叉) linedot color777777;
VLC:=C<ref(C,1) and C<refx(C,1) or barpos=0;
DWP:=C*0; DWE:=DWP; DWL:=DWP; CC:=C;
for i=lbound(FKD生叉) to datacount do begin
  if FKD生叉[i] then begin
    for j=i-1 downto 1 do if VLC[j] then break;
    if j=0 then break;
    DWP[j]:=DEM2[i];
    for k=j+1 to datacount do begin
      if CC[k]<CC[j] or DENO[k]>DENO[i]  then break;
    end;
    if K>datacount then K:=datacount;
    DWE[K]:=DWE[K]+DWP[j];
  end;
end;
DRAWLINE(DWP=1,C,DWE=1 or DWE=3,ref(C,barslast(DWP=1)),0) pxdn2 linedot colormagenta;
DRAWLINE(DWP=2,C,DWE=2 or DWE=3,ref(C,barslast(DWP=2)),0) pxdn2 linedot colormagenta;

由 chungdune 在 2015-08-05 17:15 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 cgjj 發表
原碼:
DECK:=date<>ref(date,1) or barpos=1;
DESP:=barslast(DECK);
DENO:=SUM(DECK,0);
DEM2:=MOD(DENO,2)+1;
KD生叉:=cross(K,D);
FKD生叉:=KD生叉 and sum(KD生叉,DESP+1)=1;
DRAWTEXT(refx(FKD生叉,1),C,'KD生叉') ALIGN2 pxup9;
VERTLINE(FKD生叉) linedot color777777;
VLC:=C<ref(C,1) and C<refx(C,1) or barpos=0;
DWP:=C*0; DWE:=DWP; DWL:=DWP; CC:=C;
for i=lbound(FKD生叉) to datacount do begin
  if FKD生叉[i] then begin
    for j=i-1 downto 1 do if VLC[j] then break;
    if j=0 then break;
    DWP[j]:=DEM2[i];
    for k=j+1 to datacount do begin
      if CC[k]<CC[j] or DENO[k]>DENO[i]  then break;
    end;
    if K>datacount then K:=datacount;
    DWE[K]:=DWE[K]+DWP[j];
  end;
end;
DRAWLINE(DWP=1,C,DWE=1 or DWE=3,ref(C,barslast(DWP=1)),0) pxdn2 linedot colormagenta;
DRAWLINE(DWP=2,C,DWE=2 or DWE=3,ref(C,barslast(DWP=2)),0) pxdn2 linedot colormagenta;


不好意思，再請版主幫忙一下，可否將第2點「向右延伸，直到被今日某一收盤價跌破，若今日未跌破則不再延伸至明日」再改回成「向右延伸，直到被某一收盤價跌破」？謝謝

由 cgjj 在 2015-08-05 17:26 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 chungdune 發表
不好意思，再請版主幫忙一下，可否將第2點「向右延伸，直到被今日某一收盤價跌破，若今日未跌破則不再延伸至明日」再改回成「向右延伸，直到被某一收盤價跌破」？謝謝


那這樣就無法實現 1. 了
因為同一個時間位置(K棒)畫的水平線數量無法掌握

原先每日最多僅有兩條水平線在同時間位置
共需要兩組 DRAWLINE
N條水平線在同時間位置，就需要N組 DRAWLINE
此外
畫的起點若距離較遠，且起點K棒與當前K棒落差大
如此畫線也會讓畫面的K棒被擠壓的很扁
故難以實現...

由 chungdune 在 2015-08-06 10:02 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 cgjj 發表
那這樣就無法實現 1. 了
因為同一個時間位置(K棒)畫的水平線數量無法掌握

原先每日最多僅有兩條水平線在同時間位置
共需要兩組 DRAWLINE
N條水平線在同時間位置，就需要N組 DRAWLINE
此外
畫的起點若距離較遠，且起點K棒與當前K棒落差大
如此畫線也會讓畫面的K棒被擠壓的很扁
故難以實現...


了解了，感謝版主的熱心協助

由 chungdune 在 2015-08-06 14:32 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 cgjj 發表
KD 源碼請自行帶入於前

原碼:
DESP:=barslast(date<>ref(date,1));
KD生叉:=cross(K,D);
FKD生叉:=KD生叉 and sum(KD生叉,DESP+1)=1;
DRAWTEXT(refx(FKD生叉,1),C,'KD生叉') ALIGN2 pxup9;
VERTLINE(FKD生叉) linedot;
VLC:=C<ref(C,1) and C<refx(C,1) or barpos=0;
DWP:=C*0; DWL:=DWP; CC:=C;
for i=lbound(FKD生叉) to datacount do begin
  if FKD生叉[i] then begin
    for j=i-1 downto 1 do if VLC[j] then break;
    if j=0 then break;
    DWP[j]:=1;
    for k=j+1 to datacount do begin
      if CC[k]<CC[j] then break;
    end;
    DWL[j]:=j-K;
  end;
end;
DRAWSL(DWP,C,0,DWL,0) pxdn2 linedot;



又有新問題要麻煩版主，請問版主上面這個公式的條件2：

2.在今日第一個KD生叉時，往前尋找最近一個收盤價的轉折低點（定義：收盤價呈現高-低-高），且此轉折低點要低於KD生叉時之收盤價，並且在此轉折低點劃線且向右延伸，直到被某一收盤價跌破

若是要加入一個條件，變成：

2.在今日第一個KD生叉時，往前尋找最近一個收盤價的轉折低點（定義：收盤價呈現高-低-高），且此轉折低點要低於KD生叉時之收盤價，「且必須是今日第一個KD生叉條件成立時，開盤至今之最高收盤價往左看的轉折低，且此轉折低目前尚未被某一收盤價跌破」，並且在此轉折低點劃線且向右延伸，直到被某一收盤價跌破

請問該如何處理？

由 cgjj 在 2015-08-06 15:44 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 chungdune 發表
又有新問題要麻煩版主，請問版主上面這個公式的條件2：

2.在今日第一個KD生叉時，往前尋找最近一個收盤價的轉折低點（定義：收盤價呈現高-低-高），且此轉折低點要低於KD生叉時之收盤價，並且在此轉折低點劃線且向右延伸，直到被某一收盤價跌破

若是要加入一個條件，變成：

2.在今日第一個KD生叉時，往前尋找最近一個收盤價的轉折低點（定義：收盤價呈現高-低-高），且此轉折低點要低於KD生叉時之收盤價，「且必須是今日第一個KD生叉條件成立時，開盤至今之最高收盤價往左看的轉折低，且此轉折低目前尚未被某一收盤價跌破」，並且在此轉折低點劃線且向右延伸，直到被某一收盤價跌破

請問該如何處理？


看不懂您意思，建議用圖解說會清楚些

由 chungdune 在 2015-08-06 16:42 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 cgjj 發表
看不懂您意思，建議用圖解說會清楚些


如果今日第一個KD生叉時之收盤價又同時為目前5MIN最高收盤價時，往前尋找最近一個收盤價的轉折低點（定義：收盤價呈現高-低-高），且此轉折低點要低於KD生叉時之收盤價。
如果今日第一個KD生叉時之收盤價<目前5MIN最高收盤價時則按下圖處理。

由 cgjj 在 2015-08-07 00:14 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 chungdune 發表
如果今日第一個KD生叉時之收盤價又同時為目前5MIN最高收盤價時，往前尋找最近一個收盤價的轉折低點（定義：收盤價呈現高-低-高），且此轉折低點要低於KD生叉時之收盤價。
如果今日第一個KD生叉時之收盤價<目前5MIN最高收盤價時則按下圖處理。



Q1:
若KD生叉收盤價<>目前最高收盤價
則兩個紅圈圈範圍內的轉折低，都不去取用對吧?

Q2:
若今日第一個KD生叉成立之處, 其前面沒有足夠的K棒做計算
或前面無符合的轉折低，則該日不畫線嗎?

由 chungdune 在 2015-08-07 10:28 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 cgjj 發表
Q1:
若KD生叉收盤價<>目前最高收盤價
則兩個紅圈圈範圍內的轉折低，都不去取用對吧?

Q2:
若今日第一個KD生叉成立之處, 其前面沒有足夠的K棒做計算
或前面無符合的轉折低，則該日不畫線嗎?



A1:
應該是說：
1.若KD生叉收盤價>=目前最高收盤價，則由KD生叉收盤價往前尋找最近一個收盤價的轉折低點（定義：收盤價呈現高-低-高），且此轉折低點要低於KD生叉時之收盤價。
2.若KD生叉收盤價<目前最高收盤價，則高於「轉折低3」（定義：KD生叉收盤價與目前最高收盤價兩點所夾之最低收盤價）的轉折低不取，因此不取「轉折低2」，當然也不取「轉折低3」，只取「轉折低1」。

A2:
就如同之前寫的程式一樣，往前面尋找，因此有可能轉折低在昨日。

由 cgjj 在 2015-08-07 15:59 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題請教

引用:
最初由 chungdune 發表
A1:
應該是說：
1.若KD生叉收盤價>=目前最高收盤價，則由KD生叉收盤價往前尋找最近一個收盤價的轉折低點（定義：收盤價呈現高-低-高），且此轉折低點要低於KD生叉時之收盤價。
2.若KD生叉收盤價<目前最高收盤價，則高於「轉折低3」（定義：KD生叉收盤價與目前最高收盤價兩點所夾之最低收盤價）的轉折低不取，因此不取「轉折低2」，當然也不取「轉折低3」，只取「轉折低1」。

A2:
就如同之前寫的程式一樣，往前面尋找，因此有可能轉折低在昨日。 


原碼:
DESP:=barslast(date<>ref(date,1));
KD生叉:=cross(K,D);
FKD生叉:=KD生叉 and sum(KD生叉,DESP+1)=1;
DRAWTEXT(refx(FKD生叉,1),C,'KD生叉') ALIGN2 pxup9;
VERTLINE(FKD生叉) linedot;
VLC:=C<ref(C,1) and C<refx(C,1) or barpos=0;
DWP:=C*0; DWL:=DWP; CC:=C; HHC:=HHV(C,DESP+1);
for i=lbound(FKD生叉) to datacount do begin
  if FKD生叉[i] then begin
    if CC[i]>=HHC[i] then begin
      for j=i-1 downto 1 do if VLC[j]<CC[i] then break;        
      if j=0 then break;
    end else begin
      MinBC:=9999999;
      for j=i-1 downto i-DESP[i] do begin
        if CC[j]<MinBC then MinBC:=CC[j];
        if CC[j]=HHC[i] then break;
      end;
      if MinBC=9999999 then break;
      for j=j-1 downto 1 do if VLC[j] and CC[j]<MinBC then break;
    end;
    DWP[j]:=1;
    for k=j+1 to datacount do begin
      if CC[k]<CC[j] then break;
    end;
    DWL[j]:=j-K;
  end;
end;
DRAWSL(DWP,C,0,DWL,0) pxdn2 linedot;

由 chungdune 在 2015-08-07 19:49 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 問題

引用:
最初由 cgjj 發表
原碼:
DESP:=barslast(date<>ref(date,1));
KD生叉:=cross(K,D);
FKD生叉:=KD生叉 and sum(KD生叉,DESP+1)=1;
DRAWTEXT(refx(FKD生叉,1),C,'KD生叉') ALIGN2 pxup9;
VERTLINE(FKD生叉) linedot;
VLC:=C<ref(C,1) and C<refx(C,1) or barpos=0;
DWP:=C*0; DWL:=DWP; CC:=C; HHC:=HHV(C,DESP+1);
for i=lbound(FKD生叉) to datacount do begin
  if FKD生叉[i] then begin
    if CC[i]>=HHC[i] then begin
      for j=i-1 downto 1 do if VLC[j]<CC[i] then break;        
      if j=0 then break;
    end else begin
      MinBC:=9999999;
      for j=i-1 downto i-DESP[i] do begin
        if CC[j]<MinBC then MinBC:=CC[j];
        if CC[j]=HHC[i] then break;
      end;
      if MinBC=9999999 then break;
      for j=j-1 downto 1 do if VLC[j] and CC[j]<MinBC then break;
    end;
    DWP[j]:=1;
    for k=j+1 to datacount do begin
      if CC[k]<CC[j] then break;
    end;
    DWL[j]:=j-K;
  end;
end;
DRAWSL(DWP,C,0,DWL,0) pxdn2 linedot;


目前看到一些在非轉折低劃線的日期，時間如下：（加權5MIN）

08/07 09:35
08/04 09:15
07/24 09:15
07/06 09:25
07/03 09:20
07/01 10:30
06/29 13:30
06/26 09:10
06/09 09:10
...

其他還有，先列舉以上時間，請版主協助

由 cgjj 在 2015-08-09 20:22 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆

引用:
最初由 chungdune 發表
目前看到一些在非轉折低劃線的日期，時間如下：（加權5MIN）

08/07 09:35
08/04 09:15
07/24 09:15
07/06 09:25
07/03 09:20
07/01 10:30
06/29 13:30
06/26 09:10
06/09 09:10
...

其他還有，先列舉以上時間，請版主協助


請將此段
for j=i-1 downto 1 do if VLC[j]<CC[i] then break;

修正為
for j=i-1 downto 1 do if VLC[j] and CC[j]<CC[i] then break;

由 chungdune 在 2015-08-10 08:17 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆

引用:
最初由 cgjj 發表
請將此段
for j=i-1 downto 1 do if VLC[j]<CC[i] then break;

修正為
for j=i-1 downto 1 do if VLC[j] and CC[j]<CC[i] then break;


報告版主，狀況一樣沒變，請再協助，謝謝

由 cgjj 在 2015-08-10 09:41 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆

引用:
最初由 chungdune 發表
報告版主，狀況一樣沒變，請再協助，謝謝


狀況不可能沒變
請確認該行是否真的替換成功

由 chungdune 在 2015-08-10 18:42 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆

引用:
最初由 cgjj 發表
狀況不可能沒變
請確認該行是否真的替換成功



原來是我眼花，少改一行，感謝版主

另外還有違反條件「2.若KD生叉收盤價<目前最高收盤價，則高於「轉折低3」（定義：KD生叉收盤價與目前最高收盤價兩點所夾之最低收盤價）的轉折低不取，因此不取「轉折低2」，當然也不取「轉折低3」，只取「轉折低1」。」，理論上不該出現的線（加權5min），請版主協助

08/10 09:10
08/06 10:00
08/05 10:00
08/03 09:40
07/31 09:50

由 cgjj 在 2015-08-11 09:52 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆

引用:
最初由 chungdune 發表
原來是我眼花，少改一行，感謝版主

另外還有違反條件「2.若KD生叉收盤價<目前最高收盤價，則高於「轉折低3」（定義：KD生叉收盤價與目前最高收盤價兩點所夾之最低收盤價）的轉折低不取，因此不取「轉折低2」，當然也不取「轉折低3」，只取「轉折低1」。」，理論上不該出現的線（加權5min），請版主協助

08/10 09:10
08/06 10:00
08/05 10:00
08/03 09:40
07/31 09:50


少改一行??
僅有一行需要被修改，怎會有 "少改一行" 的狀況呢?
您列的這幾個時間，並沒有線是從這幾個時間當起點畫的唷

按前面我所敘述的，改完的程式碼應該是這樣:
原碼:
DESP:=barslast(date<>ref(date,1));
KD生叉:=cross(K,D);
FKD生叉:=KD生叉 and sum(KD生叉,DESP+1)=1;
DRAWTEXT(refx(FKD生叉,1),C,'KD生叉') ALIGN2 pxup9;
VERTLINE(FKD生叉) linedot;
VLC:=C<ref(C,1) and C<refx(C,1) or barpos=0;
DWP:=C*0; DWL:=DWP; CC:=C; HHC:=HHV(C,DESP+1);
for i=lbound(FKD生叉) to datacount do begin
  if FKD生叉[i] then begin
    if CC[i]>=HHC[i] then begin
      for j=i-1 downto 1 do if VLC[j] and CC[j]<CC[i] then break;
      if j=0 then break;
    end else begin
      MinBC:=9999999;
      for j=i-1 downto i-DESP[i] do begin
        if CC[j]<MinBC then MinBC:=CC[j];
        if CC[j]=HHC[i] then break;
      end;
      if MinBC=9999999 then break;
      for j=j-1 downto 1 do if VLC[j] and CC[j]<MinBC then break;
    end;
    DWP[j]:=1;
    for k=j+1 to datacount do begin
      if CC[k]<CC[j] then break;
    end;
    DWL[j]:=j-K;
  end;
end;
DRAWSL(DWP,C,0,DWL,0) pxdn2 linedot;

由 chungdune 在 2015-08-11 12:17 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆

引用:
最初由 cgjj 發表
少改一行??
僅有一行需要被修改，怎會有 "少改一行" 的狀況呢?
您列的這幾個時間，並沒有線是從這幾個時間當起點畫的唷

按前面我所敘述的，改完的程式碼應該是這樣:
原碼:
DESP:=barslast(date<>ref(date,1));
KD生叉:=cross(K,D);
FKD生叉:=KD生叉 and sum(KD生叉,DESP+1)=1;
DRAWTEXT(refx(FKD生叉,1),C,'KD生叉') ALIGN2 pxup9;
VERTLINE(FKD生叉) linedot;
VLC:=C<ref(C,1) and C<refx(C,1) or barpos=0;
DWP:=C*0; DWL:=DWP; CC:=C; HHC:=HHV(C,DESP+1);
for i=lbound(FKD生叉) to datacount do begin
  if FKD生叉[i] then begin
    if CC[i]>=HHC[i] then begin
      for j=i-1 downto 1 do if VLC[j] and CC[j]<CC[i] then break;
      if j=0 then break;
    end else begin
      MinBC:=9999999;
      for j=i-1 downto i-DESP[i] do begin
        if CC[j]<MinBC then MinBC:=CC[j];
        if CC[j]=HHC[i] then break;
      end;
      if MinBC=9999999 then break;
      for j=j-1 downto 1 do if VLC[j] and CC[j]<MinBC then break;
    end;
    DWP[j]:=1;
    for k=j+1 to datacount do begin
      if CC[k]<CC[j] then break;
    end;
    DWL[j]:=j-K;
  end;
end;
DRAWSL(DWP,C,0,DWL,0) pxdn2 linedot;




感謝版主提示，已修正

另外我試著將程式修改為：KD死叉時找轉折高劃線，發現有些時間並非從當時5MIN最低點找轉折高，請問有哪些地方沒改好？
06/25 09:35
06/23 09:55
06/22 09:40


收盤:close,linethick0;
DESP:=barslast(date<>ref(date,1)),linethick0;
vertline(refx(date<>ref(date,1),1)),colorpurple,linethick3;
drawnumber(islastbar,C,C,2),shift1;
partline(C>ref(C,1),C),colorred,linethick3;
partline(C<=ref(C,1),C),colorBLUE,linethick3;

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);

KD死叉:=cross(D,K);
FKD死叉:=KD死叉 and sum(KD死叉,DESP+1)=1;
VERTLINE(FKD死叉) linedot;
VLC:=C>ref(C,1) and C>refx(C,1) or barpos=0;
DWP:=C*0; DWL:=DWP; CC:=C; LLC:=LLV(C,DESP+1);
for i=lbound(FKD死叉) to datacount do begin
if FKD死叉[i] then begin
if CC[i]<=LLC[i] then begin
for j=i-1 downto 1 do if VLC[j] and CC[j]>CC[i] then break;
if j=0 then break;
end else begin
MinBC:=9999999;
for j=i-1 downto i-DESP[i] do begin
if CC[j]<MinBC then MinBC:=CC[j];
if CC[j]=LLC[i] then break;
end;
if MinBC=9999999 then break;
for j=i-1 downto 1 do if VLC[j] and CC[j]>MinBC then break;
end;
DWP[j]:=1;
for k=j+1 to datacount do begin
if CC[k]>CC[j] then break;
end;
DWL[j]:=j-K;
end;
end;
DRAWSL(DWP,C,0,DWL,0),linethick2;

由 cgjj 在 2015-08-11 14:55 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆

引用:
最初由 chungdune 發表
感謝版主提示，已修正

另外我試著將程式修改為：KD死叉時找轉折高劃線，發現有些時間並非從當時5MIN最低點找轉折高，請問有哪些地方沒改好？
06/25 09:35
06/23 09:55
06/22 09:40


收盤:close,linethick0;
DESP:=barslast(date<>ref(date,1)),linethick0;
vertline(refx(date<>ref(date,1),1)),colorpurple,linethick3;
drawnumber(islastbar,C,C,2),shift1;
partline(C>ref(C,1),C),colorred,linethick3;
partline(C<=ref(C,1),C),colorBLUE,linethick3;

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);

KD死叉:=cross(D,K);
FKD死叉:=KD死叉 and sum(KD死叉,DESP+1)=1;
VERTLINE(FKD死叉) linedot;
VLC:=C>ref(C,1) and C>refx(C,1) or barpos=0;
DWP:=C*0; DWL:=DWP; CC:=C; LLC:=LLV(C,DESP+1);
for i=lbound(FKD死叉) to datacount do begin
if FKD死叉[i] then begin
if CC[i]<=LLC[i] then begin
for j=i-1 downto 1 do if VLC[j] and CC[j]>CC[i] then break;
if j=0 then break;
end else begin
MinBC:=9999999;
for j=i-1 downto i-DESP[i] do begin
if CC[j]<MinBC then MinBC:=CC[j];
if CC[j]=LLC[i] then break;
end;
if MinBC=9999999 then break;
for j=i-1 downto 1 do if VLC[j] and CC[j]>MinBC then break;
end;
DWP[j]:=1;
for k=j+1 to datacount do begin
if CC[k]>CC[j] then break;
end;
DWL[j]:=j-K;
end;
end;
DRAWSL(DWP,C,0,DWL,0),linethick2;



將
MinBC:=9999999;
for j=i-1 downto i-DESP[i] do begin
if CC[j]<MinBC then MinBC:=CC[j];
if CC[j]=LLC[i] then break;
end;
if MinBC=9999999 then break;
for j=j-1 downto 1 do if VLC[j] and CC[j]<MinBC then break;

改為這樣試試
MaxBC:=0;
for j=i-1 downto i-DESP[i] do begin
if CC[j]>MaxBC then MaxBC:=CC[j];
if CC[j]=LLC[i] then break;
end;
if MaxBC=0 then break;
for j=j-1 downto 1 do if VLC[j] and CC[j]<MaxBC then break;

由 chungdune 在 2015-08-13 16:13 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆

問題解決了，感謝版主熱心協助

由 cgjj 在 2015-08-13 16:26 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆

引用:
最初由 chungdune 發表
問題解決了，感謝版主熱心協助


不客氣 ^^
全部時間均為台灣時間, 現在時間為07:22
在這個頁面顯示本主題全部的 31 個文章


Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.