| Author |
Comment/Response |
amy dee
|
 01/31/06 09:32am
hi all,
I used to use this piece of code to help me work out errors quickly but now for some reason it doesn't work, any suggestions?
Error propagation through an equation
(Error has 2 significant figures)
Run the following routing once / kernal only
Unprotect[Interval];
Interval /: Interval[{l_, u_}] := Module[{mean, error, digitsInError},
digitsInError = 2; mean = (u + l)/2; error = (u - l)/2;
NumberForm[mean, {Infinity, digitsInError - 1 +
Ceiling[-Log[10, error]]}, NumberPadding -> {"", "0"}] ±
NumberForm[error, digitsInError, NumberPadding -> {"", "0"}]];
Protect[Interval];
MakeExpression[RowBox[{m_, "±", e_}], form_] :=
MakeExpression[RowBox[{"Interval", "[",
RowBox[{"{", RowBox[{RowBox[{m, "-", e}], ",", RowBox[{m, "+", e}]}],
"}"}], "]"}]]
((7.3205 ± 0.0009) - (7.3207 ± 0.0009))/(7.3207 ± 0.0009)
-0.00003 ± 0.00025
(200. ± 0.01)*Sin[(45. ± 0.5)*Degree]
141.4 ± 1.2
((27.4 ± 0.5)*(306.7 ± 0.2))/(62.428 ± 0.002)
134.6 ± 2.5
((100 - (2.1 ± 0.5) - (34.8 ± 0.5) - (14.5 ± 1))/16/((14.5 ± 1)/32))*2
13.5 ± 1.5
100 - (2.1 ± 0.5) - (34.8 ± 0.5) - (14.5 ± 2)
48.6 ± 3.
Attachment: Errorpropagation6(Will).nb, URL: , |
|
