高低線是用日線來定義的
高線 指 比 昨天高點 還高的日線高點，
可能是 前天高點(大於昨天高點)，
或 前些天的某日高點(大於昨天高點的那一天)，
或 前一波的某日高點(大於昨天高點的那一天)
低線 指 比 昨天低點 還低的日線低點，
可能是 前天低點(小於昨天低點)，
或 前些天的某日低點(小於昨天低點的那一天)，
或 前一波的某日低點(小於昨天低點的那一天)
要在60分線圖上畫出來，最後一天時才在線段右側寫出其數值
試了好久沒辦法寫好，敬請給予指導！

mhlin999 附帶上了此圖片:

引用:

---

最初由 mhlin999 發表
高低線是用日線來定義的
高線 指 比 昨天高點 還高的日線高點，
可能是 前天高點(大於昨天高點)，
或 前些天的某日高點(大於昨天高點的那一天)，
或 前一波的某日高點(大於昨天高點的那一天)
低線 指 比 昨天低點 還低的日線低點，
可能是 前天低點(小於昨天低點)，
或 前些天的某日低點(小於昨天低點的那一天)，
或 前一波的某日低點(小於昨天低點的那一天)
要在60分線圖上畫出來，最後一天時才在線段右側寫出其數值
試了好久沒辦法寫好，敬請給予指導！

---

一波，只是 一群K線 的意思；
再新附一個圖例，修正了上一個圖例的錯誤處．
紅圈所框的都為一波
　
主要只是要
畫出　剛好比　昨天高點　還高　的　日線高點　的　連線
　
希望是說清楚了，尚請指揮幫忙！

mhlin999 附帶上了此圖片:

引用:

---

最初由 mhlin999 發表
一波，只是 一群K線 的意思；
再新附一個圖例，修正了上一個圖例的錯誤處．
紅圈所框的都為一波
　
主要只是要
畫出　剛好比　昨天高點　還高　的　日線高點　的　連線
　
希望是說清楚了，尚請指揮幫忙！

---

高線　指 找到　昨天以前的某一天、最接近昨天K線、比 昨天高　　　　　點　還高　的　日線高點，將每一天這樣的值連線

　　　也就是　找到　以前某一天N，　
　　　　　　　滿足　ref(H,N) > ref(H,1)　and ref(H,N-1) <= ref(H,1)
　　　　　　　要將　ref(H,N)值　標示在　當天K線位置
　　　　　　
某一天N　可能是　前天高點 (最接近的大於昨天高點)，
　　　 或　前些天的某日高點 (最接近的大於昨天高點的那一天)
　　　　
低線　指　找到　昨天以前的某一天、最接近昨天K線、比 昨天低　　　　　點　還低　的　日線低點，將每一天這樣的值連線

　　　也就是　找到　以前某一天A，
　　　　　　　滿足　ref(L,A) < ref(L,1)　and ref(L,A-1) >= ref(L,1)
　　　　　　　要將　ref(L,A)值　標示在　當天K線位置
　　　　　　
某一天A　可能是　前天低點 (最接近的小於昨天低點)，
　　　　或　前些天的某日低點 (最接近的小於昨天低點的那一天)

希望把規則說清楚了，還請給予指導幫忙！

　

引用:

---

最初由 mhlin999 發表
高線　指 找到　昨天以前的某一天、最接近昨天K線、比 昨天高　　　　　點　還高　的　日線高點，將每一天這樣的值連線

　　　也就是　找到　以前某一天N，　
　　　　　　　滿足　ref(H,N) > ref(H,1)　and ref(H,N-1) <= ref(H,1)
　　　　　　　要將　ref(H,N)值　標示在　當天K線位置
　　　　　　
某一天N　可能是　前天高點 (最接近的大於昨天高點)，
　　　 或　前些天的某日高點 (最接近的大於昨天高點的那一天)
　　　　
低線　指　找到　昨天以前的某一天、最接近昨天K線、比 昨天低　　　　　點　還低　的　日線低點，將每一天這樣的值連線

　　　也就是　找到　以前某一天A，
　　　　　　　滿足　ref(L,A) < ref(L,1)　and ref(L,A-1) >= ref(L,1)
　　　　　　　要將　ref(L,A)值　標示在　當天K線位置
　　　　　　
某一天A　可能是　前天低點 (最接近的小於昨天低點)，
　　　　或　前些天的某日低點 (最接近的小於昨天低點的那一天)

希望把規則說清楚了，還請給予指導幫忙！

　

---

原碼:


HH:=H; LL:=L;

PH:C*0-999999;  //若找不到比昨天更高, 給 -999999 值

PL:C*0+999999; //若找不到比昨天更低, 給 +999999 值

for i=datacount downto 3 do begin

  SH:=HH[i-1]; SL:=LL[i-1];

  for j=i-2 downto 1 do begin

    if HH[j]>SH then begin

      PH[i]:=HH[j]; break;

    end;

  end;

  for j=i-2 downto 1 do begin

    if LL[j]<SL then begin

      PL[i]:=LL[j]; break;

    end;

  end;

end;

感謝指導！ 謝謝！
週末假日愉快！

引用:

---

最初由 cgjj 發表

原碼:


HH:=H; LL:=L;

PH:C*0-999999;  //若找不到比昨天更高, 給 -999999 值

PL:C*0+999999; //若找不到比昨天更低, 給 +999999 值

for i=datacount downto 3 do begin

  SH:=HH[i-1]; SL:=LL[i-1];

  for j=i-2 downto 1 do begin

    if HH[j]>SH then begin

      PH[i]:=HH[j]; break;

    end;

  end;

  for j=i-2 downto 1 do begin

    if LL[j]<SL then begin

      PL[i]:=LL[j]; break;

    end;

  end;

end;

---

logahsu 附帶上了此圖片:

__________________
--------------------------------------------------------
奇狐好 奇狐棒 奇狐呱呱叫

引用:

---

最初由 logahsu 發表
請問總版主，為何程式用在主圖上時會有線條突破螢幕高低點的現象？

---

引用:

---

最初由 cgjj 發表
正常的現象，公式使用前請先仔細看註解唷

答案在此:
PH:C*0-999999; //若找不到比昨天更高, 給 -999999 值
PL:C*0+999999; //若找不到比昨天更低, 給 +999999 值

---

__________________
--------------------------------------------------------
奇狐好 奇狐棒 奇狐呱呱叫