% zeichnet Kugel

figure

sphere(50)            % zeichnet eine Einheitskugel mit 50 Breiten und Längengraden
[x,y,z]=sphere(50);   % gewinnt die x, y und z Komponenten der Kugeloberfläche

hold on

mesh(x,y,-z.^2+2)     % zeichnet mit dem Mesh Befehl einen um 2 Einheiten 
                      % nach oben verschobenen Hyperpoloid

surf(x,y,z.^2-2)      % zeichnet mit dem Surf Befehl einen um 2 Einheiten
                      % nach unten verschobenen Hyperboloid

axis equal            % läßt Kugel als Kugel statt Ellipsoid wirken