如題!
源碼:
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 附帶上了此圖片:

引用:

---

最初由 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;

---

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

引用:

---

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

---

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

引用:

---

最初由 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;

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

感謝總版主指導!完全合乎個人需求!再次感謝!
紅色實線部分自己依樣畫葫蘆源碼如下==(也是符合需求之效果,應該沒錯,如果有誤請版主指正!)
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;
追加一個問題:從新一輪的起點開始劃分段線的公式要如何寫?(因為功力有限,從您指導的公式中,看不懂判斷地條件式是甚麼!),請協助!再次感謝!

引用:

---

最初由 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;
追加一個問題:從新一輪的起點開始劃分段線的公式要如何寫?(因為功力有限,從您指導的公式中,看不懂判斷地條件式是甚麼!),請協助!再次感謝!

---

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

引用:

---

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

---

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

引用:

---

最初由 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 發表
感謝總版主協助!有您真好!
感謝!再感謝!

---