板 1- 前 次 新 レス
タイミングボックス
[3]kiyo：2003/08/20(Wed) 21:25
とりあえずVBソース貼り付け
Function tstbjt(X0, X1, X2, X3, a)
If a = 0 Then
t = 0
ElseIf a = 1 Then
t = 1
Else
Ck = 0
'初期値
t = a
UPv = 1
DOWNv = 0
Do While TESTa / a < 0.999999 Or TESTa / a > 1.000001
TESTa = tstbj(X0, X1, X2, X3, t)
If TESTa < a Then DOWNv = t Else UPv = t
t = (DOWNv + UPv) / 2
Ck = Ck + 1
Loop
End If
tstbjt = Ck
End Function
前 次 新