ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°ÝÃö©ógosubªº¥Îªk

[µo°Ý] ½Ð°ÝÃö©ógosubªº¥Îªk

¤j®a¦n¡A§Ú¦³¤@¬qµ{¦¡½X¡A¦]¬°±ø¦C¥X¨Ó­«ÂЪº³¡¤À«Ü¦h
¾É­Pµ{¦¡½X¤£°÷¶°¤¤¡A«ÜÃøÀˬd¡A©Ò¥H·Q¥Îgosub¾ã²z¤@¤U
¥i¬O¦b¨Ï¥Î¤W¡AÁ`¬O¥X²{¡u¥²¶··f°t¨Ï¥Î¡vªº°T®§¡Aµ{¦¡½X¦p¤U
  1.         If H Or L Then
  2.             w = 1
  3.             On w GoSub HLchange, hlchange1
  4.             sw = IIf(H, 1, -1)
  5.         End If
  6.     ElseIf sw = 1 Then
  7.         If L Then
  8.             w = 1
  9.             On w GoSub HLchange, hlchange1
  10.         Else
  11.             If b >= Rp(k - 1) Then
  12.                 w = 2
  13.                 On w GoSub HLchange, hlchange1
  14.             End If
  15.         End If
  16.     ElseIf sw = -1 Then
  17.         If H Then
  18.             w = 1
  19.             On w GoSub HLchange, hlchange1
  20.         Else
  21.             If b <= Rp(k - 1) Then
  22.                 w = 2
  23.                 On w GoSub HLchange, hlchange1
  24.             End If
  25.         End If
  26.     End If
  27.     j = j + 1
  28. Loop
  29. HLchange:
  30.     Rp(k) = b
  31.     Bn(k) = j
  32.     a = b
  33.     k = k + 1
  34.     sw = -sw
  35.     Return
  36. hlchange1:
  37.     Rp(k - 1) = b
  38.     Bn(k - 1) = j
  39.     a = b
  40.     Return
½Æ»s¥N½X
½Ð°Ý§Ú¬O­þÃä¼g¿ù¤F¡H½Ð¤j®a¤£§[«ü±Ð¡AÁÂÁÂ
¤£¶i«h°h

¥»©«³Ì«á¥Ñ jackyq ©ó 2018-3-4 11:52 ½s¿è

Do
........................
Loop

Exit Sub   ' or Exit  Function

HLchange:
    Rp(k) = b
    Bn(k) = j
    a = b
    k = k + 1
    sw = -sw
    Return
hlchange1:
    Rp(k - 1) = b
    Bn(k - 1) = j
    a = b
    Return

TOP

·PÁ¤j¤j«üÂI¡A°ÝÃD¸Ñ¨M~
¤£¶i«h°h

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD