Chapter 1: Answers 3 Jack K. Cohen Colorado School of Mines
24.7 624.91 24.8 624.96 24.9 624.99 25. 625. 25.1 624.99 25.2 624.96 25.3 624.91
One mode of solution is a graph. Figure 4 shows a zoom of the critical region obtained (after some experimentation) by using the command
Plot[2x + 1000/x, {x, 10, 50}, PlotRange -> {80, 150}]
Picking the point at the minimum gives
x 22.
Then the command
Table[{x, 2x + 1000/x}, {x, 22.2, 22.4, 0.05}] //TableForm
lets us home in on the answer:
22.2 89.445 22.25 89.4438 22.3 89.443 22.35 89.4427 22.4 89.4429Thus x