請指導下列公式迴圈的寫法，謝謝！！
A1:=H<=RH and L>=RL;
A2:=HHV(H,2)<ref(H,2) and LLV(L,2)>ref(L,2);
A3:=HHV(H,3)<ref(H,3) and LLV(L,3)>ref(L,3);
A4:=..... 餘類推，一直到條件不成立，並顕示條件成立的Ｋ棒數。

引用:

---

最初由 L0123 發表
請指導下列公式迴圈的寫法，謝謝！！
A1:=H<=RH and L>=RL;
A2:=HHV(H,2)<ref(H,2) and LLV(L,2)>ref(L,2);
A3:=HHV(H,3)<ref(H,3) and LLV(L,3)>ref(L,3);
A4:=..... 餘類推，一直到條件不成立，並顕示條件成立的Ｋ棒數。

---

引用:

---

最初由 cgjj 發表
抱歉, 看不懂您要算什麼
是要自當前K棒往前追, 直到不符合A型 的狀態嗎?
每根K棒都如此往前追算嗎? 還是僅算最末根往前追算?

---

引用:

---

最初由 L0123 發表
每根K棒都如此往前追算

---

引用:

---

最初由 L0123 發表
每根K棒都如此往前追算
補充說明：大迴圈裹面最多包含３個小迴圈。

---

引用:

---

最初由 cgjj 發表
A1:=H<=RH and L>=RL;
A2:=HHV(H,2)<ref(H,2) and LLV(L,2)>ref(L,2);

A1 規則與其它An並不相同唷

是否應為以下這行式子?
A1:=H<ref(H,1) and L>ref(L,1);

---

引用:

---

最初由 L0123 發表
A1:=H<ref(H,1) and L>ref(L,1); 這樣也OK
煩請　總版主指導，非常感恩。

---

原碼:


HH:=H; LL:=L; 

SS:C*0;

for i=datacount downto 2 do begin

  MH:=HH[i]; ML:=LL[i]; CountK:=0;

  for j=i-1 downto 1 do begin

    if MH<=HH[j] and ML>LL[j] then begin

      if HH[j]>MH then MH:=HH[j];

      if LL[j]<ML then ML:=LL[j];

      CountK:=CountK+1;

    end else begin

      break;

    end;

  end;

  SS[i]:=CountK;

end;

引用:

---

最初由 cgjj 發表

原碼:


HH:=H; LL:=L; 

SS:C*0;

for i=datacount downto 2 do begin

  MH:=HH[i]; ML:=LL[i]; CountK:=0;

  for j=i-1 downto 1 do begin

    if MH<=HH[j] and ML>LL[j] then begin

      if HH[j]>MH then MH:=HH[j];

      if LL[j]<ML then ML:=LL[j];

      CountK:=CountK+1;

    end else begin

      break;

    end;

  end;

  SS[i]:=CountK;

end;

---