設 高點:=PEAKBARS(4,1,1)=0;
1: 以站上高點的那支K線為基準
2: 若又有站上那支K線高點時 就從那支K線高點畫水平線至站上處 並顯示價位
敬請賜教 謝謝

引用:

---

最初由 mori868 發表
設 高點:=PEAKBARS(4,1,1)=0;
1: 以站上高點的那支K線為基準
2: 若又有站上那支K線高點時 就從那支K線高點畫水平線至站上處 並顯示價位
敬請賜教 謝謝

---

原碼:


HH:=H;

高點:PEAKBARS(4,1,1)=0;

DWSP:=C*0;

for i=lbound(高點) to datacount do begin

  if 高點[i] then begin

    for j=i to datacount do begin

      if HH[j]>HH[i] then begin

        DWSP[i]:=j-i; break;

      end;

    end;

  end;

end;

VERTLINE(高點) linedot;

DRAWSL(高點 and DWSP,H,0,DWSP,3);