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

mnsmrtl

¤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ÁÂÁÂ

mnsmrtl

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

jackyq

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