Application Center - Maplesoft

App Preview:

Rate of Change of Surface Area on an Expanding Sphere

You can switch back to the summary page by clicking here.

Learn about Maple
Download Application




Rate of Change of Surface Area on an Expanding Sphere

 

Robert J. Lopez

Maplesoft Fellow

 

Introduction

 

``

An example of a related-rates problem in differential calculus that asks for the rate of change of surface area on a sphere whose volume expands at a constant rate is solve here via the syntax-free paradigm in Maple. A statement of the problem is as follows.

NULL

Helium is pumped into a spherical balloon at the constant rate of 25 cu ft per min.  

At what rate is the surface area of the balloon increasing at the moment when its radius is 8 ft?

 

 

Recently, after presenting the solution in a Maplesoft Webinar, I was asked if it were possible to see an animation for this process. So, after a quick presentation of a solution, this worksheet will try to answer the request for an animation. Of course, we first have to consider just what is it that is to be displayed in the animation. It's easy enough to show an expanding sphere, but the question of real interest is the varying rate of change of surface area. How is the change in surface area to be visualized, let alone animated?

``

Traditional Solution

 

NULL

Analysis

Given

Find

V = (4/3)*Pi*r^3

S = 4*Pi*r^2 

 

diff(V(t), t) = 25 

 

r(`#mover(mi("t"),mo("ˆ"))`) = 8

(D(S))(`#mover(mi("t"),mo("ˆ"))`)

 

``

SolutionNULL

Define the functions V(t) and S(t) 

• 

Write "V(t)=.."
Context Menu: Assign Function

V(t) = (4/3)*Pi*r(t)^3"(->)"V

• 

Write "S(t)=.."
Context Menu: Assign Function

S(t) = 4*Pi*r(t)^2"(->)"S

Solve the equation diff(V(t), t) = 25 for diff(r(t), t)

• 

Write the equation diff(V(t), t) = 25
Press the Enter key.

 

• 

Context Menu:
Solve_Isolate Expression for_diff(r(t),t)

diff(V(t), t) = 25

4*Pi*r(t)^2*(diff(r(t), t)) = 25

"(->)"

diff(r(t), t) = (25/4)/(Pi*r(t)^2)

(1)

In diff(S(t), t), replace diff(r(t), t) with its value from the equation diff(V(t), t) = 25 

• 

Expression palette: Evaluation template
Evaluate diff(S(t), t) at diff(r(t), t) from the equation diff(V(t), t) = 25 

• 

Context Menu: Evaluate and Display Inline

 

• 

Make the replacement r(`#mover(mi("t"),mo("ˆ"))`) = 8.

eval(diff(S(t), t), diff(r(t), t) = (25/4)/(Pi*r(t)^2)) = 50/r(t)``

50*(1/8) = 25/4``

 

NULL

Further Investigations

 

``

If diff(V(t), t) = 25, then 4*Pi*r(t)^2*(diff(r(t), t)) = 25, so diff(r(t), t) = 25/(4*Pi*r(t)^2). Moreover, V = (4/3)*Pi*r^3 and (4/3)*Pi*r^3 = 25*t, which implies t = (4*Pi*(1/75))*r^3 and r(t) = (75*t/(4*Pi))^(1/3). The consequences of these results are summarized in Table 1.

 

V(r) = (4/3)*Pi*r^3

V(t) = 25*t

S(r) = 4*Pi*r^2

S(t) = 4*Pi*((75*t/(4*Pi))^(1/3))^2 and 4*Pi*((75*t/(4*Pi))^(1/3))^2 = 75^(2/3)*(4*Pi)^(1/3)*t^(2/3)

(D(S))(r(t)) = 8*Pi*r(t)*(diff(r(t), t)) and 8*Pi*r(t)*(diff(r(t), t)) = 8*Pi*r(t)*(25/(4*Pi*r(t)^2)) and 8*Pi*r(t)*(25/(4*Pi*r(t)^2)) = 50/r(t)

diff(S(t), t) = (2/3)*(4*Pi)^(1/3)*75^(2/3)/t^(1/3) 

Table 1   Relationships between V(r), S(r), V(t), and S(t) 

 

``

Graphics

 

``

Figure 1 shows the linear behavior in V(t) (in red) and the growth of S(t) (in green). It was surprising to see the two graphs cross, but upon thought, this is to be expected for any constant value of diff(V(t), t). (The equation V = (4/3)*Pi*r^3 and (4/3)*Pi*r^3 = 4*Pi*r^2 and 4*Pi*r^2 = S always has solution r = 3, so in this example, "t="(4*Pi*(1/75))*3^3"≐"4.5239.)

 

Figure 2 shows r (black) which increases because it is O(t^(1/3)) and diff(S(t), t) which decreases because it is O(1/t^(1/3)).

``

plot([25*t, 75^(2/3)*(4*Pi)^(1/3)*t^(2/3)], t = 0 .. 10, color = [red, green])

Figure 1   Graph of V(t) (red) and S(t) (green)

 

plot([(2/3)*(4*Pi)^(1/3)*75^(2/3)/t^(1/3), (75*t/(4*Pi))^(1/3)], t = 0 .. 100, color = [green, black])

Figure 2   Graph of r(t) (black) and diff(S(t), t) (green)

 
 

``

Figure 3 animates the expanding sphere, and graphs (D(S))(r). The pixel density of the viewing screen limits the accuracy of the slider, so that it might not be possible to obtain r = 8 exactly.

NULL

NULL

"r="  =    0  "S=" 

Figure 3   The inflating sphere and (D(S))(r) 

 

NULL``

Figure 4 animates the expanding sphere, and graphs diff(S(t), t). Since t(r) = (4*Pi*(1/75))*r^3, then "t(8)="(4*Pi*(1/75))*8^3"≐"85.788.

NULLNULL

NULL

"t="  =   0  "S="

Figure 4   Th inflating sphere and diff(S(t), t) 

 

NULL

``

``

``