以十根Ｋ棒取得最低价，以此最低價為起點嚮后取十根的最高價，再以此最高價為起點嚮后十根取最低點，..............，

不包括當根高低

請教如何寫

引用:

---

最初由 founders008 發表
以十根Ｋ棒取得最低价，以此最低價為起點嚮后取十根的最高價，再以此最高價為起點嚮后十根取最低點，..............，

不包括當根高低

請教如何寫

---

引用:

---

最初由 cgjj 發表
若十根內有兩根同是最高價(價相等), 您要如何處理呢? 反之亦同

---

引用:

---

最初由 founders008 發表
感謝版大，以條件先成立算

---

原碼:


PDIR:=0; PosHL:=1;

HH:=H; LL:=L; KCount:=1;

MM:C*0 linethick;

for i=2 to datacount do begin

  if PDIR=0 then begin

    if LL[i]<LL[PosHL] then PosHL:=i;

  end else begin

    if HH[i]>HH[PosHL] then PosHL:=i;

  end;

  KCount:=KCount+1;

  if KCount=10 then begin

    if PDIR=0 then MM[PosHL]:=LL[PosHL];

    if PDIR=1 then MM[PosHL]:=HH[PosHL];

    PDIR:=Not(PDIR); KCount:=1; 

    PosHL:=PosHL+1; i:=PosHL+1;

  end;

end;

POLYLINE(MM<>0,MM)

引用:

---

最初由 cgjj 發表

原碼:


PDIR:=0; PosHL:=1;

HH:=H; LL:=L; KCount:=1;

MM:C*0 linethick;

for i=2 to datacount do begin

  if PDIR=0 then begin

    if LL[i]<LL[PosHL] then PosHL:=i;

  end else begin

    if HH[i]>HH[PosHL] then PosHL:=i;

  end;

  KCount:=KCount+1;

  if KCount=10 then begin

    if PDIR=0 then MM[PosHL]:=LL[PosHL];

    if PDIR=1 then MM[PosHL]:=HH[PosHL];

    PDIR:=Not(PDIR); KCount:=1; 

    PosHL:=PosHL+1; i:=PosHL+1;

  end;

end;

POLYLINE(MM<>0,MM)

---

神啊！！！
版大實在太厲害，感恩

但發現有時差一根，這句
if KCount=10 then begin

改為

if KCount=n-1 then begin

不知對否，請版大指教

引用:

---

最初由 founders008 發表
神啊！！！
版大實在太厲害，感恩

但發現有時差一根，這句
if KCount=10 then begin

改為

if KCount=n-1 then begin

不知對否，請版大指教

---

引用:

---

最初由 cgjj 發表
不客氣

不對

要將這句
PosHL:=PosHL+1; i:=PosHL+1;

修正為
PosHL:=PosHL+1; i:=PosHL;

---