奇狐社區論壇 - [問題]連續上升或下降階梯線直到跌破或突破,再重新開始另一輪

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

由 Markchu7 在 2015-01-09 22:53 發表:

[問題]連續上升或下降階梯線直到跌破或突破,再重新開始另一輪

如題!
源碼:
DD:REF(H,BARSLAST(CROSS(0.8,H=HHV(H,5)))+1)+9,COLORBLUE,LINEDOT;
UU:REF(L,BARSLAST(CROSS(0.8,L=LLV(L,5)))+1)-9,COLORRED,LINEDOT;

由 cgjj 在 2015-01-12 09:25 發表:

回覆: [問題]連續上升或下降階梯線直到跌破或突破,再重新開始另一輪

引用:
最初由 Markchu7 發表
如題!
源碼:
DD:REF(H,BARSLAST(CROSS(0.8,H=HHV(H,5)))+1)+9,COLORBLUE,LINEDOT;
UU:REF(L,BARSLAST(CROSS(0.8,L=LLV(L,5)))+1)-9,COLORRED,LINEDOT;

規則不一致

圖中藍色實線，有些並未比照以下規則處理:
此處雖是下降階梯但較原來
階梯高則原來階梯繼續延伸

由 Markchu7 在 2015-01-12 10:04 發表:

報告總版主:圖中舉例為2015/1/7的一分鐘週期的台當月!不知您所言,規則不一指的是那幾根K棒?畢竟眼睛看有時還是會有看走眼的時候!可否以時間為準予以明示指正?
至於有些藍色階梯實線高起來的部分,其規則為'收盤價突破藍色階梯實線"後"第一個藍色虛線下降階梯',請指導!

由 cgjj 在 2015-01-12 10:51 發表:

引用:
最初由 Markchu7 發表
報告總版主:圖中舉例為2015/1/7的一分鐘週期的台當月!不知您所言,規則不一指的是那幾根K棒?畢竟眼睛看有時還是會有看走眼的時候!可否以時間為準予以明示指正?
至於有些藍色階梯實線高起來的部分,其規則為'收盤價突破藍色階梯實線"後"第一個藍色虛線下降階梯',請指導!

原來寫的這句, 容易誤導:
此處雖是下降階梯但較原來
階梯高則原來階梯繼續延伸

您補上下面這句後，就較清楚了
"至於有些藍色階梯實線高起來的部分,其規則為'收盤價突破藍色階梯實線"後"第一個藍色虛線下降階梯'"

由 Markchu7 在 2015-01-12 11:04 發表:

是的!有時詞不達意,需多加溝通,請指導!

由 cgjj 在 2015-01-12 11:50 發表:

引用:
最初由 Markchu7 發表
是的!有時詞不達意,需多加溝通,請指導!

以藍線為例，給您當參考:

原碼:


CC:=C;

DD:REF(H,BARSLAST(CROSS(0.8,H=HHV(H,5)))+1)+9,COLORBLUE,LINEDOT;

UU:REF(L,BARSLAST(CROSS(0.8,L=LLV(L,5)))+1)-9,COLORRED,LINEDOT;



StDD:=lbound(DD);

MDD:DD*0; MDD[StDD]:=DD[StDD]; DDF:=0;

for i=StDD+1 to datacount do begin

  MDD[i]:=MDD[i-1]; 

  if CC[i]>MDD[i-1] then DDF:=1;

  if DD[i]<DD[i-1] then begin

    if DD[i]<MDD[i-1] or DD[i]<DD[i-1] and DDF=1 then begin

      MDD[i]:=DD[i]; DDF:=0;

    end;

  end;

end;

由 Markchu7 在 2015-01-12 12:17 發表:

感謝指導!來去消化一下!

由 Markchu7 在 2015-01-12 12:42 發表:

感謝總版主指導!完全合乎個人需求!再次感謝!
紅色實線部分自己依樣畫葫蘆源碼如下==(也是符合需求之效果,應該沒錯,如果有誤請版主指正!)
StUU:=lbound(UU);
MUU:UU*0; MUU[StUU]:=DD[StUU]; UUF:=0;
for i=StUU+1 to datacount do begin
MUU[i]:=MUU[i-1];
if CC[i]<MUU[i-1] then UUF:=1;
if UU[i]>UU[i-1] then begin
if UU[i]>MUU[i-1] or UU[i]>UU[i-1] and UUF=1 then begin
MUU[i]:=UU[i]; UUF:=0;
end;
end;
end;
追加一個問題:從新一輪的起點開始劃分段線的公式要如何寫?(因為功力有限,從您指導的公式中,看不懂判斷地條件式是甚麼!),請協助!再次感謝!

由 cgjj 在 2015-01-12 13:13 發表:

引用:
最初由 Markchu7 發表
感謝總版主指導!完全合乎個人需求!再次感謝!
紅色實線部分自己依樣畫葫蘆源碼如下==(也是符合需求之效果,應該沒錯,如果有誤請版主指正!)
StUU:=lbound(UU);
MUU:UU*0; MUU[StUU]:=DD[StUU]; UUF:=0;
for i=StUU+1 to datacount do begin
MUU[i]:=MUU[i-1];
if CC[i]<MUU[i-1] then UUF:=1;
if UU[i]>UU[i-1] then begin
if UU[i]>MUU[i-1] or UU[i]>UU[i-1] and UUF=1 then begin
MUU[i]:=UU[i]; UUF:=0;
end;
end;
end;
追加一個問題:從新一輪的起點開始劃分段線的公式要如何寫?(因為功力有限,從您指導的公式中,看不懂判斷地條件式是甚麼!),請協助!再次感謝!

MUU:UU*0; MUU[StUU]:=DD[StUU]; UUF:=0;

要修正為
MUU:UU*0; MUU[StUU]:=UU[StUU]; UUF:=0;

由 Markchu7 在 2015-01-12 13:18 發表:

感謝指導!分段線再有勞總版主指導!

由 cgjj 在 2015-01-12 13:26 發表:

引用:
最初由 Markchu7 發表
感謝指導!分段線再有勞總版主指導!

怎樣算新的一輪?

由 Markchu7 在 2015-01-12 13:36 發表:

'收盤價突破藍色階梯實線"後"第一個藍色虛線下降階梯'開啟下降階梯稱為新一輪!
依此類推-->'收盤價跌破紅色階梯實線"後"第一個紅色虛線上升階梯'開啟上升階梯!請指導!

由 cgjj 在 2015-01-12 13:49 發表:

引用:
最初由 Markchu7 發表
'收盤價突破藍色階梯實線"後"第一個藍色虛線下降階梯'開啟下降階梯稱為新一輪!
依此類推-->'收盤價跌破紅色階梯實線"後"第一個紅色虛線上升階梯'開啟上升階梯!請指導!

原碼:


StDD:=lbound(DD);

MDD:DD*0 linethick0 colorblue;

MDD[StDD]:=DD[StDD]; DDF:=0;

DDSNo:=MDD;

for i=StDD+1 to datacount do begin

  MDD[i]:=MDD[i-1]; DDSNo[i]:=DDSNo[i-1];

  if CC[i]>MDD[i-1] then DDF:=1;

  if DD[i]<DD[i-1] then begin

    if DD[i]<MDD[i-1] then begin

      MDD[i]:=DD[i]; DDF:=0;

    end else if DD[i]<DD[i-1] and DDF=1 then begin

      MDD[i]:=DD[i]; DDF:=0; DDSNo[i]:=DDSNo[i]+1;

    end;

  end;

end;

PARTLINE(DDSNo=ref(DDSNo,1),MDD) colorblue linethick2;

由 Markchu7 在 2015-01-12 15:50 發表:

感謝總版主協助!有您真好!
感謝!再感謝!

由 cgjj 在 2015-01-12 16:25 發表:

引用:
最初由 Markchu7 發表
感謝總版主協助!有您真好!
感謝!再感謝!

不客氣 ^^

由 Markchu7 在 2015-02-13 08:23 發表:

首先感謝奇狐團隊一年的辛勞!在此年關前夕敬祝奇狐團隊'新春快樂,羊年行大運'!
其次請總版主協助==在前述新一輪開始畫線條件成立的部分新增加一個'多空'條件!
畫藍線:原條件+多空<=0;
畫紅線:原條件+多空>=0;
感恩!

由 cgjj 在 2015-02-13 09:48 發表:

引用:
最初由 Markchu7 發表
首先感謝奇狐團隊一年的辛勞!在此年關前夕敬祝奇狐團隊'新春快樂,羊年行大運'!
其次請總版主協助==在前述新一輪開始畫線條件成立的部分新增加一個'多空'條件!
畫藍線:原條件+多空<=0;
畫紅線:原條件+多空>=0;
感恩!

謝謝
新年快樂，祝財運好運旺旺旺

試試

將
end else if DD[i]<DD[i-1] and DDF=1 then begin

改為
end else if DD[i]<DD[i-1] and DDF=1 and 多空[i]<=0 then begin

由 Markchu7 在 2015-02-13 10:33 發表:

感謝!放假再來試試!
祝新年快樂!

由 Markchu7 在 2015-03-04 10:56 發表:

感謝總版主一直以來辛苦的協助公式寫作!以下兩個問題再次勞駕指導!
1.以我的認知:
DD:REF(H,BARSLAST(CROSS(0.8,H=HHV(H,5)))+1)+9,COLORBLUE,LINEDOT;
DD:REF(REF(HHV(H,MM5),1),BARSLAST(CROSS(0.8,H=HHV(H,5))))+9,COLORBLUE,LINEDOT;
這兩者是相同的,是否正確?
2.新一輪開始的第一個水平階梯的取值改為MIN(DD,C-10),用意是這樣如果在收盤價進場的話,就可以限制最大的損失在10點!
請總版主協助!在此先說聲'謝謝'!

由 cgjj 在 2015-03-04 12:03 發表:

引用:
最初由 Markchu7 發表
感謝總版主一直以來辛苦的協助公式寫作!以下兩個問題再次勞駕指導!
1.以我的認知:
DD:REF(H,BARSLAST(CROSS(0.8,H=HHV(H,5)))+1)+9,COLORBLUE,LINEDOT;
DD:REF(REF(HHV(H,MM5),1),BARSLAST(CROSS(0.8,H=HHV(H,5))))+9,COLORBLUE,LINEDOT;
這兩者是相同的,是否正確?

錯
因為 H <> HHV(H,MM5) 故不會相等
除非 MM5 永遠等於1 才會相等

由 Markchu7 在 2015-03-04 13:11 發表:

SORRY!寫錯了!
這樣才是正確的!DD:REF(REF(HHV(H,5),1),BARSLAST(CROSS(0.8,H=HHV(H,5))))+9,COLORBLUE,LINEDOT;

由 cgjj 在 2015-03-04 13:15 發表:

引用:
最初由 Markchu7 發表
SORRY!寫錯了!
這樣才是正確的!DD:REF(REF(HHV(H,5),1),BARSLAST(CROSS(0.8,H=HHV(H,5))))+9,COLORBLUE,LINEDOT;

仍是錯
因為 H <> HHV(H,5)

由 Markchu7 在 2015-03-04 14:24 發表:

DD:REF(H,BARSLAST(CROSS(0.8,H=HHV(H,5)))+1)+9,COLORBLUE,LINEDOT;
DD3:REF(REF(HHV(H,5),1),BARSLAST(CROSS(0.8,H=HHV(H,5))))+9,COLORBLUE,LINEDOT;
XD:SUM(DD<>DD3,0),LINETHICK;
1.對不起!沒說清楚!規則當然是不同,我的意思是效果相同!如附圖中XD=0(載入K棒數為全部)!
2.如果以DD3取代DD則需求2可行嗎?
請協助!

由 cgjj 在 2015-03-04 14:48 發表:

引用:
最初由 Markchu7 發表
DD:REF(H,BARSLAST(CROSS(0.8,H=HHV(H,5)))+1)+9,COLORBLUE,LINEDOT;
DD3:REF(REF(HHV(H,5),1),BARSLAST(CROSS(0.8,H=HHV(H,5))))+9,COLORBLUE,LINEDOT;
XD:SUM(DD<>DD3,0),LINETHICK;
1.對不起!沒說清楚!規則當然是不同,我的意思是效果相同!如附圖中XD=0(載入K棒數為全部)!
2.如果以DD3取代DD則需求2可行嗎?
請協助!

單就這樣來看，是不會相等的
REF(H,SP+1);
REF(REF(HHV(H,5),1),SP);

恰好相等
那是因為SP的運算因子也有 HHV(H,5) 這個元素
並且組成特性湊巧符合

DD3 運算量比 DD 大
不是可不可行的問題
是，不做效能更好，做了效能更差的問題
另外，就是將來維護程式閱讀理解上的考量

由 Markchu7 在 2015-03-04 15:30 發表:

原來如此!又多懂點東西了!
回到問題2!控制損失是優先於效能!而效能也優先於日後的維護!在這樣的條件下,以階梯線開始當根k棒的收盤價為進場價格,以階梯線逐次下降的特性,應可實現'損失控制為10點'的目的!
請協助DD這條線的公式寫法,謝謝!

由 cgjj 在 2015-03-04 16:32 發表:

引用:
最初由 Markchu7 發表
原來如此!又多懂點東西了!
回到問題2!控制損失是優先於效能!而效能也優先於日後的維護!在這樣的條件下,以階梯線開始當根k棒的收盤價為進場價格,以階梯線逐次下降的特性,應可實現'損失控制為10點'的目的!
請協助DD這條線的公式寫法,謝謝!

原碼:StDD:=lbound(DD);
MDD:DD*0 linethick0 colorblue;
MDD[StDD]:=DD[StDD]; DDF:=0;
DDSNo:=MDD; DD2:=MIN(DD,C-10);
for i=StDD+1 to datacount do begin
  MDD[i]:=MDD[i-1]; DDSNo[i]:=DDSNo[i-1];
  if CC[i]>MDD[i-1] then DDF:=1;
  if DD[i]<DD[i-1] then begin
    if DD[i]<MDD[i-1] then begin
      MDD[i]:=DD[i]; DDF:=0;
    end else if DD[i]<DD[i-1] and DDF=1 and 多空[i]<=0 then begin
      MDD[i]:=DD2[i]; DDF:=0; DDSNo[i]:=DDSNo[i]+1;
    end;
  end;
end;
PARTLINE(DDSNo=ref(DDSNo,1),MDD) colorblue linethick2;

由 Markchu7 在 2015-03-04 18:37 發表:

感謝總版主指導!感謝再感謝!

由 cgjj 在 2015-03-05 12:23 發表:

引用:
最初由 Markchu7 發表
感謝總版主指導!感謝再感謝!

不客氣 ^^

由 Markchu7 在 2015-06-16 13:46 發表:

請問:只要畫出歷史的最後兩段分段線的公式要如何寫?謝謝!

由 cgjj 在 2015-06-16 15:52 發表:

引用:
最初由 Markchu7 發表
請問:只要畫出歷史的最後兩段分段線的公式要如何寫?謝謝!

PARTLINE(DDSNo=ref(DDSNo,1),MDD) colorblue linethick2;
改為
PARTLINE(DDSNo=ref(DDSNo,1) and DDSNo>=DDSNo[datacount]-2,MDD) colorblue linethick2;

由 Markchu7 在 2015-06-16 16:01 發表:

感謝指導!謝謝!

由 Markchu7 在 2015-06-18 08:41 發表:

感謝總版主總是迅速盡善的服務!再請教一個問題!
PARTLINE(DDSNo=ref(DDSNo,1) and DDSNo>=DDSNo[datacount]-2,MDD) colorblue linethick2;==>這是畫歷史的最後兩段!
PARTLINE(DDSNo=ref(DDSNo,1) and DDSNo>=DDSNo[datacount],MDD) colorblue linethick2;==>這是畫當下最後一段!
在當下週期可以達到所需的效果!但若是要跨週期引用(例如日線週期引用到分線週期)當下最後一段分段線的公式要如何寫呢?請指導!無限感激!謝謝!

由 cgjj 在 2015-06-18 08:50 發表:

引用:
最初由 Markchu7 發表
感謝總版主總是迅速盡善的服務!再請教一個問題!
PARTLINE(DDSNo=ref(DDSNo,1) and DDSNo>=DDSNo[datacount]-2,MDD) colorblue linethick2;==>這是畫歷史的最後兩段!
PARTLINE(DDSNo=ref(DDSNo,1) and DDSNo>=DDSNo[datacount],MDD) colorblue linethick2;==>這是畫當下最後一段!
在當下週期可以達到所需的效果!但若是要跨週期引用(例如日線週期引用到分線週期)當下最後一段分段線的公式要如何寫呢?請指導!無限感激!謝謝!

寫法一樣，不用改 (引用日線中的DDSNo值做判斷)

由 Markchu7 在 2015-06-18 12:23 發表:

了解!感謝指導!

全部時間均為台灣時間, 現在時間為10:34

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