Solution for Problem 5

The following Mathematica code produces the differences between the curves for x = 0 to x = 10 in steps of Dx = 0.5. These heights will be used as the bases of the trapezoids in Problem 6.

Input := 

dx = 0.5;

Input := 

TableForm[Table[{i,height[i]},{i,0,10,dx}]//N]

Output =

0     0.

0.5   1.68211

1.    2.9

1.5   3.99974

2.    5.01421

2.5   5.95614

3.    6.83205

3.5   7.64583

4.    8.4

4.5   6.975

5.    9.5

5.5   11.975

6.    10.4

6.5   9.2125

7.    7.85

7.5   6.3125

8.    4.6

8.5   3.525

9.    2.4

9.5   1.225

10.   0.

Here's what the grid looks like now.

Input := 

Plot[{ftop[x], fbot[x]},
	{x, 0, 10},
	PlotRange	-> {0, 15},
	AspectRatio	-> Automatic,
	GridLines	-> 
		{Table[i, {i, 0, 10, 0.5}],
		 Table[i, {i, 0, 15, 0.5}]}]

Output =

-Graphics-