o POSSIBLE SOLUTION(S)

+ Situation 1

- If the tank is y feet full, then the volume of water is given by
V = Pi 3^2 y = 9 Pi y, so dV/dt = 9 Pi dy/dt. On the other hand, the change in volume with respect to time is the area of the hole times the velocity of the water squirting through the hole, therefore,

- dV/dt = -(area)(velocity) = -1/ 144 ft ^2 (0.6) Sqrt(2 32 y) ft/sec or

dy/dt = dV/dt/ (9 Pi) = -1/144 (0.6) 8 Sqrt(y) / (9 Pi)
= -4.8 Sqrt(y)/ (144*9 Pi) .

- We solve this initial value problem, with y(0) = 8:

Input := 

sol = DSolve[{y'[t]== -4.8Sqrt[y[t]]/ (144*9 Pi),
			y[0]==8}, y[t],t]
Output =

                        0.00185185 t 2
{{y[t] -> (-2 Sqrt[2] - ------------) }, 
                             Pi
 
                        0.00185185 t 2
  {y[t] -> (2 Sqrt[2] - ------------) }}
                             Pi

- Since y decreases, the second solution is the one we want:

Input := 

s[t_] = y[t]/.sol[[2]]
Output =

             0.00185185 t 2
(2 Sqrt[2] - ------------)
                  Pi

- To find when the tank is empty, we solve:

Input := 

solt = Solve[s[t]==0,t]
Output =

{{t -> 4798.31}, {t -> 4798.31}}

- We examine a plot of the graph of s(t).

Input := 

sPlot = Plot[s[t],{t,0,5000}]
Output =

-Graphics-

- Therefore the tank is empty in 1.33 hrs.

Input := 

4798.31/3600
Output =

1.33286

+ Situation 2

- Fix a certain time, and suppose the height of the water in the tank is y feet deep at that time.

- Let x be a variable which varies from 0 to y, and consider a small piece of the slit dx high. That is, consider a hole at height x of area dx*1/(120) square feet.

- Then the change in volume through that hole is

±0.6 * Sqrt( 2*32*(y-x)) /120 dx,

where y - x is the height of the water above the hole.

- To get the total change in volume through the entire slit, we integrate the last expression with respect to x from 0 to y:

Input := 

Integrate [-3/5*Sqrt[2*32*(y-x)]/120,{x,0,y}]
Output =

    3/2
-2 y
-------
  75

- That is, dV/dt = -2/75 y ^(3/2). As in Situation 1, we replace dV/dt with 9Pi dy/dt to get the initial value problem:

dy/dt = -2/75 y ^(3/2)/(9 Pi), y(0) = 8

- And we solve the initial value problem.

Input := 

sol1 = DSolve[{y'[t]==-2/75 y[t]^(3/2)/(9Pi),y[0]==8},
				y[t],t]
Output =

              -1         t    -2
{{y[t] -> (--------- + ------)  }, 
           2 Sqrt[2]   675 Pi
 
                1         t    -2
  {y[t] -> (--------- + ------)  }}
            2 Sqrt[2]   675 Pi

- We plot both solutions so we can determine which is valid:

Input := 

s1[t_] = y[t]/.sol1[[1]]; s2[t_] = y[t]/.sol1[[2]];
Input := 

Plot[s1[t],{t,0,5000}]
Output =

-Graphics-
Input := 

s2Plot = Plot[s2[t],{t,0,5000},
				PlotStyle->Thickness[.01]]
Output =

-Graphics-

- Since the height of the liquid, y, must decrease, we choose s2(t) and we notice that s2(t) is asymptotic to y = 0, but never yields a solution to s2(t) = 0.

Input := 

Solve[s2[t]==0,t]
Output =

{}
Input := 

Plot[s2,{t,0,10000}]
Output =

-Graphics-

- Indeed, using the Limit command we see the asymptotic behaviour.

Input := 

Limit[s2,t->Infinity]
Output =

0

+ We now examine the plots from Situation 1 (light line) and Situation 2 (dark line) to compare them.

Input := 

Show[sPlot,s2Plot]
Output =

-Graphics-

- It appears that in Situation 2 the liquid drops faster at first but then slows down its flow when we are near the bottom of the tank.

+ Situation 3

- There is no practical answer to this problem.

- The average pressure and the total area of the hole both decrease, so the rate of change of volume (and height) must necessarily decrease.

- We can demonstrate this mathematically as follows.

- The slit in Situation 2 was 1/120 ft wide. We replace this number by an unknown function w(y) which tells the width of the slit at height y.

- Then as in Situation 2 we have:

- The change in volume though that hole is ±0.6 * Sqrt( 2*32*(y-x))w(x) dx,
where y-x is the height of the water above the hole. To get the total change in volume through the entire slit, we integrate the last expression with respect to x from 0 to y, but since w(x) is unkown, we suppose that F(x) is an anti-derivative of the integrand, so

Integrate [-3/5*Sqrt[2*32*(y-x)]/120,{x,0,y}] = F(y) - F(0),

That is, dV/dt = 9 Pi dy/dt = F(y) - F(0). We want dy/dt to be constant,
so we set dy/dt = (F(y) - F(0)) / (9 Pi) =k. Now if we differentiate with
respect to t, we have (F'(y) dy/dt ) / (9 Pi) = 0, but since dy/dt = k, we have F'(y) = 0. Since y varies from 0 to 8, and F(x) is an antiderivative for
±0.6 * Sqrt( 2*32*(y-x))w(x), we conclude that the latter equals zero.

- Therefore we must have w(x) = 0, which is the only function that allows
a constant rate of drainage, that is, none.