Student Support Forum: 'error propagation' topicStudent Support Forum > General > Archives > "error propagation"

 Next Comment > Help | Reply To Topic
 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: ,

 Subject (listing for 'error propagation') Author Date Posted error propagation amy dee 01/31/06 09:32am Re: error propagation Peter 02/03/06 01:14am
 Next Comment > Help | Reply To Topic