clear, clc, clf

%% Zylindermantel
%    Gitter
k = 5; n = 2^k-1;
phi = linspace(-pi,pi,n+1);
z = linspace(-1,1,n+1);
[PP ZZ] = meshgrid(phi,z);
%   Koordinatentransformation
% XX = cos(PP);            % via Formel
% YY = sin(PP);
[XX YY] = pol2cart(PP,1);   % via Funktion

surf(XX,YY,ZZ)
alpha(0.7)
colormap hsv;
axis square
pause

%% Kugel
%  Gitter
m = 24;
theta = linspace(    0, 2*pi, m+1); % Laengengrade
phi   = linspace(-pi/2, pi/2, m+1); % Breitengrade
[ TT PP] = meshgrid(theta,phi);

%  Koordinatentransformation
% XX = cos(PP).*cos(TT);            % via Formel
% YY = cos(PP).*sin(TT);
% ZZ = sin(PP);

RAD = 1;                             % const. Radius
[XX YY ZZ] = sph2cart(TT,PP,RAD);    % via Funktion

surf(XX,YY,ZZ)
colormap hsv;
axis square
pause