% LA SPHERE

% Ce script crée une sphère de rayon A centrée en (B;C;D):

A = 1;

B = 0;

C = 0;

D = 0;

[t,p] = meshgrid(0:pi/25:2*pi,-pi/2:pi/25:pi/2); % Définition de couples (azimut,élévation)

x = A*cos(p).*cos(t); % Transformation en coordonnées rectangulaires

y = A*cos(p).*sin(t);

z = A*sin(p);

surf(x+B,y+C,z+D)

colormap jet

shading interp

axis image

% NOTE: La commande "surfl" s'utilise exactement de la même manière que "surf", mais elle possède

% un éclairage latéral et les couleurs sont placées différemment.