Loading [MathJax]/jax/output/HTML-CSS/jax.js

Thursday, 27 April 2017

Surfaces of revolution with positive constant Gauss curvature

We know that when we write K=c in the family of rotational surfaces, then this equation is an ordinary differential equation, so there is a unique solution for each initial conditions. We show this phenomenon when K=1. Suppose that the profile curve is locally a graph on the rotation axis, that is, z(f(z),0,z) for zI, f(z)>0. The parametrization of the surface is X(z,s)=(f(z)cos(s),f(z)sin(s),z). Equation K=1 writes as 
ff(1+f2)2=1.
Thus we have f+f(1+f2)2=0. This is differential equation is not possible to integrate, up to special cases. We think that sphere should easily solve. The initial conditions are put on z=0, that is f(0)=xo and f(0)=0. With this last condition, we are imposing that the tangent line at z=0 is vertical. Moreover, by this condition, we can suppose that the solution is symmetric with respect to z=0
We use Mathematica to solve numerically the initial value problem (){f+f(1+f2)2=0f(0)=xof(0)=0 We study the solutions depending on the initial value xo, that is, the intersection point of the profile curve with the x-axis.

When xo=1, we know that the solution is the sphere, exactly, f(z)=1z2 is a solution of (*). 

In order to study with Mathematica (*) we write here the sentences: 

profile =  NDSolve[{F''[z] + F[z] (1 + F'[z]^2)^2 == 0, F[0] == xo, F'[0] == 0}, F[z], {z, -Zo, Zo}]
f[z_] := F[z] /. profile[[1]]
ParametricPlot[{{z, 0}, {f[z], z}}, {z, -Zo, Zo}, PlotRange -> All]

The first line numerically solves the ODE with initial conditions as we have presented. Here Zo is the width of the interval when the solution f is defined. The second line `takes' the numerical value f in order to manage in the next line, where we plot the profile curve. In fact, the last line indicates that we also draw the x-line. I write this because Mathematica `reduces' the picture to the interval where is defined the solution and we want to compare the profile curve with its position with respect to the rotation axis. Finally, we use

ParametricPlot3D[{f[z] Cos[s], f[z] Sin[s], z}, {s, 0, 2 Pi}, {z, -Zo, Zo}]

for drawing the surface.

We begin with the study and sphere is our starting point: sphere appears when xo=1 and the domain of f is for Zo=1. We now increase xo, for example xo=1.5. If we put Zo=1, Mathematica says that the solution is not defined in the interval (Zo,Zo) because appear errors. In fact, Mathematica says what is the maximum interval. In this example, the output is

NDSolve::ndsz: At z == -0.559099, step size is effectively zero; singularity or stiff system suspected.

This means that we have to take Zo=0.5590, obtaining the profile curve in its maximum domain, namely:
















If we increase xo, that is, we move far the point (f(xo),0,0), the profile moves far from the rotation axis: let us observe that the profile curve does not meet the rotation axis. In the figure, it indicates that the tangent plane at the boundary circles is horizontal, and the surface one `hole'.

Now we let xo0. If xo=0.7, and for Zo=2 we see that the profile curve meets the z-axis, which is not possible.

Then, and after some trials, we see that for Zo=1.35, the profile meets exactly the z-axis. The figures are:






Now the surface presents two `singularities' exactly in the intersection points with the z-axis.

No comments:

Post a Comment