In this section, you will find the function
y0∈ D={y∈ C1[0,1]:y(0)=1,y(1)=2/3} |
for which the area of the corresponding surface of revolution is minimal. The result is not necessarily intuitive.
The area of the surface of revolution is measured by the functional
F(y)=2 π | ∫ |
| y(x) | √ |
| dx. |
First, set f(y,y′,x)=y(x) √1+y′(x)2 and compute the
associated Euler-Lagrange equation:
Input:
Output:
⎡ ⎢ ⎢ ⎢ ⎢ ⎢ ⎢ ⎢ ⎢ ⎢ ⎢ ⎣ | − |
| =K0, |
| y | ⎛ ⎝ | x | ⎞ ⎠ | = |
| ⎤ ⎥ ⎥ ⎥ ⎥ ⎥ ⎥ ⎥ ⎥ ⎥ ⎥ ⎦ |
You can obtain the stationary function by finding the general solution
of the first equation.
Input:
(See Section 6.27.16). Output:
⎡ ⎢ ⎢ ⎢ ⎢ ⎣ | −K0, |
| ⎤ ⎥ ⎥ ⎥ ⎥ ⎦ |
Obviously the constant solution −K0 is not in D, so set y0 to be the second element of the above list. That function, which can be written as
y0(x)=−K0 cosh | ⎛ ⎜ ⎜ ⎝ |
| ⎞ ⎟ ⎟ ⎠ | , |
is a catenary.
Input:
To find the values of K0 and c1 from the boundary conditions,
first plot the curves y0(0)=1 and y0(1)=2/3 for
K0∈[−1,1] and c1∈[−1,2] to see where they intersect each
other.
Input:
eq1:=subs(y0,x=0)=1:; eq2:=subs(y0,x=1)=2/3:; |
implicitplot([eq1,eq2],K_0=-1..1,c_1=-1..2) |
Output:
Observe that there are exactly two catenaries satisfying the
Euler-Lagrange necessary conditions and the given boundary conditions:
the first with K0≈ −0.5 and c1≈ 0.6 and the second
with K0≈ −0.3 and c1≈ 0.5. You can obtain the values of
these constants more precisely by using fsolve.
Input:
Output:
[−0.56237423894,0.662588703113], [−0.30613431407,0.567138261119] |
You can check, for each catenary, whether the strong Legendre condition
fy′ y′(x,yk,yk′)>0 |
holds for k=1,2.
Input:
y1:=subs(y0,p,p1):; y2:=subs(y0,p,p2):; |
D2f:=diff(f,diff(y(x),x),2):; |
solve([eval(subs(D2f,y=y1,y(x)=y1))<=0,x>=0,x<=1],x); |
solve([eval(subs(D2f,y=y2,y(x)=y2))<=0,x>=0,x<=1],x) |
Output:
[],[] |
You can conclude that the strong Legendre condition is satisfied in
both cases, so you can proceed by attempting to find the points conjugate
to 0 for each catenary. The function y0 depends on two parameters,
so you can use conjugate_equation to find these points
easily.
Input:
fsolve(conjugate_equation(y0,p,p1,x,0)=0,x=0..1) |
fsolve(conjugate_equation(y0,p,p2,x,0)=0,x=0..1) |
Output:
[0.0], [0.0,0.799514772606] |
You can conclude that there are no points conjugate to 0 in (0,1] for the catenary y1, so it minimizes the functional F. However, for the other catenary there is a conjugate point in the relevant interval, therefore y2 is not a minimizer.
You can verify the above conclusions by computing the surface area for
catenaries y1 and y2 and comparing them.
Input:
Output:
0.81396915825,0.826468466845 |
You can see that the surface formed by rotating the curve y1 is
indeed smaller than the area of the surface formed by rotating the
curve y2. Finally, you can visualize both surfaces for convenience.
Input:
(see Section 8.6 for information on plot3d)
Output:
Input:
Output: