Solution for Problem 9

Answers will vary for the first two area guesses...

Input := 

PError[x_] = 100 (x - area)/x;

Input := 

EGuess1 = PError[AreaGuess1]//N;
EGuess2 = PError[AreaGuess2]//N;
ETrap10 = PError[TrapRule10]//N;
ETrap20 = PError[TrapRule20]//N;
ETrap40 = PError[TrapRule40]//N;
ESimp10 = PError[SimpRule10]//N;
ESimp20 = PError[SimpRule20]//N;
ESimp40 = PError[SimpRule40]//N;
ErrorList =
	{{"Guesses", "TrapRules", "SimpRules", "Errors"},
	 {AreaGuess1, "", "", EGuess1},
	 {AreaGuess2, "", "", EGuess2},
	 {"", "n=10", "", ETrap10},
	 {"", "n=20", "", ETrap20},
	 {"", "n=40", "", ETrap40},
	 {"", "", "n=10", ESimp10},
	 {"", "", "n=20", ESimp20},
	 {"", "", "n=40", ESimp40}};

Input := 

TableForm[ErrorList]

Output =

Guesses   TrapRules   SimpRules   Errors

90                                35.1852

70                                16.6667

          n=10                    -0.754917

          n=20                    -0.224718

          n=40                    -0.0691486

                      n=10        -0.139262

                      n=20        -0.0492228

                      n=40        -0.0173994