Mathematica 9 is now available
Student Support Forum
-----
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