計算機誤差估計
|
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 |
此程式用於計算電腦本身的機器捨去誤差Eps，當一個數字小於Eps時，電腦基本上將它視為零。