奇狐社區論壇 - 迴圈的寫法

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 迴圈的寫法 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=18140)

由 L0123 在 2013-11-15 16:16 發表:

迴圈的寫法

請指導下列公式迴圈的寫法，謝謝！！
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 在 2013-11-15 16:26 發表:

回覆: 迴圈的寫法

引用:
最初由 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:=..... 餘類推，一直到條件不成立，並顕示條件成立的Ｋ棒數。

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

由 L0123 在 2013-11-15 16:48 發表:

回覆: 回覆: 迴圈的寫法

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

每根K棒都如此往前追算

由 L0123 在 2013-11-15 17:02 發表:

回覆: 回覆: 回覆: 迴圈的寫法

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

補充說明：大迴圈裹面最多包含３個小迴圈。

由 cgjj 在 2013-11-15 17:30 發表:

回覆: 回覆: 回覆: 回覆: 迴圈的寫法

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

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 在 2013-11-15 20:12 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 迴圈的寫法

引用:
最初由 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);

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

由 cgjj 在 2013-11-18 08:59 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 迴圈的寫法

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

由 L0123 在 2013-11-18 11:10 發表:

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 迴圈的寫法

引用:

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

非常謝謝　總板主的指導，感恩之至，我愛您喔！

全部時間均為台灣時間, 現在時間為12:41

在這個頁面顯示本主題全部的 8 個文章