奇狐社區論壇

奇狐社區論壇 (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=21923)

由 cffyz168 在 2019-06-03 02:56 發表:

[問題]

版主好，以下的條件請問：
1.啟始條件：C>REF(H, 1)。
2.成立後在當根K棒最低點往下-50處劃一橫線向右延伸。
3.次根以後若收盤價有跌破該延伸線，仍繼續延伸，直到另一反向啟始條件C<REF(L,1)成立則停止。然後開始另一個反向的啟始劃線延伸。
4.若次根以後的收盤價沒有跌破該延伸線，且大於該延伸線+50以上，則該延伸線向上提升至與該次根的最低點保持50的間隔繼續劃線。
5.依此循環，50的間隔可調。
麻煩版主協助解惑，感謝。

由 cgjj 在 2019-06-03 09:46 發表:

回覆: [問題]

引用:
最初由 cffyz168 發表
版主好，以下的條件請問：
1.啟始條件：C>REF(H, 1)。
2.成立後在當根K棒最低點往下-50處劃一橫線向右延伸。
3.次根以後若收盤價有跌破該延伸線，仍繼續延伸，直到另一反向啟始條件C<REF(L,1)成立則停止。然後開始另一個反向的啟始劃線延伸。
4.若次根以後的收盤價沒有跌破該延伸線，且大於該延伸線+50以上，則該延伸線向上提升至與該次根的最低點保持50的間隔繼續劃線。
5.依此循環，50的間隔可調。
麻煩版主協助解惑，感謝。

看看是否為您要的

原碼:SP:=50;
UD:=(C<REF(L,1))-(C>REF(H,1));
UD:=if(UD<>ref(UD,1) or barpos=lbound(UD),UD,0);
LL:=L; HH:=H; CC:=C; NowDir:=0;
MM:UD*0 linethick;
for i=lbound(UD) to datacount do begin
  if UD[i]=1 then begin
    MM[i]:=LL[i]-SP; NowDir:=1;
  end else if UD[i]=-1 then begin
    MM[i]:=LL[i]+SP; NowDir:=-1;
  end else begin
    if NowDir<>0 then MM[i]:=MM[i-1];
    if NowDir=1 then begin
      if CC[i]<MM[i]-SP then MM[i]:=MM[i]-SP;
    end else if NowDir=-1 then begin
      if CC[i]>MM[i]+SP then MM[i]:=MM[i]+SP;
    end;
  end;
end;
STICKLINE(MM>0,MM,MM,10,0);

由 cffyz168 在 2019-06-03 18:07 發表:

回覆

謝謝版主回覆，原碼程式的圖型與原意有些的出入，有些地方不足50的間隔，有些的地方不知線為何會出現在那裡，大部份沒跟著上移50的間隔。
很抱歉，我不知程式哪裏需改正與補強，再麻煩版主幫忙修正。

由 cgjj 在 2019-06-03 18:10 發表:

回覆: 回覆

引用:
最初由 cffyz168 發表
謝謝版主回覆，原碼程式的圖型與原意有些的出入，有些地方不足50的間隔，有些的地方不知線為何會出現在那裡，大部份沒跟著上移50的間隔。
很抱歉，我不知程式哪裏需改正與補強，再麻煩版主幫忙修正。

麻煩弄個圖舉例說明，哪邊不符合

由 cffyz168 在 2019-06-03 18:24 發表:

回覆

如圖所示

由 cgjj 在 2019-06-03 21:28 發表:

回覆: 回覆

引用:
最初由 cffyz168 發表
如圖所示

2019-03-29 MM=10526 畫面中的第5根K棒
2019-04-01 MM=10576 畫面中的第6根K棒
2019-04-02 MM=10626 畫面中的第7根K棒
2019-04-03 MM=10676 畫面中的第8根K棒
以上都是差50唷，沒有您標示的 39 與 42

2019-04-03 MM=10795 畫面中的第9根K棒(C>REF(H,1)成立，)
該值是取 L 價+50，若反向是取H價+50，請將這行
MM[i]:=LL[i]+SP; NowDir:=-1;

改為
MM[i]:=HH[i]+SP; NowDir:=-1;

由 cffyz168 在 2019-06-04 11:04 發表:

回覆

謝謝版主的修正，我尚在研究中，另請問以下三程式，各為何意？
UD:=(C<REF(L,1))-(C>REF(H,1));
UD:=if(UD<>ref(UD,1) or barpos=lbound(UD),UD,0);
NowDir:=0;

由 cgjj 在 2019-06-04 12:12 發表:

回覆: 回覆

引用:
最初由 cffyz168 發表
謝謝版主的修正，我尚在研究中，另請問以下三程式，各為何意？
UD:=(C<REF(L,1))-(C>REF(H,1));
UD:=if(UD<>ref(UD,1) or barpos=lbound(UD),UD,0);
NowDir:=0;

第一行
UD 就是你ˋ指定的兩個條件:
C<REF(L,1) 成立為1
C>REF(H,1) 成立為-1

第二行
把後續連續相同訊號濾除，只留下首個訊號

第三行
NowDir 是目前方向，設初始值為零

由 cffyz168 在 2019-06-04 15:10 發表:

回覆

謝謝版主

由 cffyz168 在 2019-06-08 03:27 發表:

問題請教

版主好，請參考附圖，訊號及劃線的條件，謝謝。

由 cgjj 在 2019-06-10 08:53 發表:

回覆: 問題請教

引用:
最初由 cffyz168 發表
版主好，請參考附圖，訊號及劃線的條件，謝謝。

劃線位置條件：該K棒最高價+50(停損線) <== 這是位置，並不是條件式
若下一根K棒未達條件，則.... <== 未說明 "條件" 為何?

由 cffyz168 在 2019-06-10 12:10 發表:

回覆

謝謝版主提示，補充如后：
倒綠三角條件：不變，同圖上所述。
劃線條件：與倒綠三角條件相同。
劃線位置：該K棒H+50(停損線)。
若下根K棒未達倒綠三角條件，則上一根停損線繼續延伸。(正紅三角與劃線也是相同情況)
再次麻煩版主。

由 cgjj 在 2019-06-10 14:47 發表:

回覆: 回覆

引用:
最初由 cffyz168 發表
謝謝版主提示，補充如后：
倒綠三角條件：不變，同圖上所述。
劃線條件：與倒綠三角條件相同。
劃線位置：該K棒H+50(停損線)。
若下根K棒未達倒綠三角條件，則上一根停損線繼續延伸。(正紅三角與劃線也是相同情況)
再次麻煩版主。

原碼:SP:=50;
BS:=(C>REF(H,1))-(C<REF(L,1));
LL:=L; HH:=H; CC:=C; NowDir:=0;
MM:=BS*0;
for i=lbound(BS) to datacount do begin
  if BS[i]=1 then begin
    MM[i]:=LL[i]-SP; NowDir:=1;
  end else if BS[i]=-1 then begin
    MM[i]:=HH[i]+SP; NowDir:=-1;
  end else begin
    if NowDir<>0 then MM[i]:=MM[i-1];
    if NowDir=1 then begin
      if LL[i]-MM[i]>=SP and LL[i]>=LL[i-1] then MM[i]:=LL[i]-SP;
    end else if NowDir=-1 then begin
      if MM[i]-HH[i]>=SP and HH[i]<=HH[i-1] then MM[i]:=HH[i]+SP;
    end;
  end;
end;
LBS:=ref(BS,barslast(BS<>0));
STICKLINE(LBS=1,MM,MM,10,0) COLORMAGENTA;
STICKLINE(LBS=-1,MM,MM,10,0) COLORCYAN;
DRAWICON(BS=1,MM,'$SA-BS-2B.gif') pxdn2;
DRAWICON(BS=-1,MM,'$SA-BS-2S.gif') pxup30;

由 cffyz168 在 2019-06-10 17:19 發表:

回覆

謝謝版主指導

由 cffyz168 在 2019-06-11 17:00 發表:

問題請教

MM:=BS*0
LBS:=ref(BS,barslast(BS<>0))
請問版主，原碼中的這兩個程式該怎麼解讀，謝謝版主。
　

由 cgjj 在 2019-06-11 17:26 發表:

回覆: 問題請教

引用:
最初由 cffyz168 發表
MM:=BS*0
LBS:=ref(BS,barslast(BS<>0))
請問版主，原碼中的這兩個程式該怎麼解讀，謝謝版主。
　

MM:=BS*0
取得零值數列，有效範圍同BS數列。

LBS:=ref(BS,barslast(BS<>0))
取得最近一次 BS<>0 的 BS數值
(若 BS=0，則用前面BS非零值遞補)

全部時間均為台灣時間, 現在時間為12:28

在這個頁面顯示本主題全部的 16 個文章