Sub
MachineErrorCheck(Eps, U20, ReMin, RelErr)
'
'
Calculate Machine Round Off Error
бе
Dim
Eps, U20, ReMin, Rer, RelErr As Double
Eps
= 1#
Do
Eps = Eps / 2
EpsP1 = Eps + 1
Loop
While EpsP1 > 1
U20
= 20 * Eps
Rer
= 2 * Eps + ReMin
'
'
Check for proper error tolerance
бе
If
RelErr < Rer Then
RelErr = Rer
End
If
End
Sub