// Exemples de surfaces dans un espace 3D
v=0:0.1:7;   
ss=sin(v);  // vecteur ligne de  1 ligne et 71 colonnes.   size(ss) = [1 , 71]
cc=cos(v)';  // attention au  '  . Vecteur colonne de  71 lignes et 1 ligne.   size(cc) = [71 , 1]
AA=cc*ss;  // Matrice  71 x 71
scf(1);
surf(AA);  // une jolie surface représentée dans un espace  3D.
title("Une jolie surface");
xlabel("axe des X");
ylabel("axe des Y");
zlabel("z=sin(x)*cos(x)");
xinfo("Information en bas de la fenêtre");

//halt();

// une paraboloïde de révolution
vv=-15:0.5:15;
milieu=(length(vv)+1) / 2;
C=zeros(length(vv), length(vv));
for i=1:length(vv);
   linei=(i-milieu)/2;
   C(i, :)=vv.^2 + linei^2;
end;
scf(2);
surf(vv, vv, C);

// une ébauche de fauteuil
vv=-15:0.5:15;
milieu=(length(vv)+1) / 2;
C=zeros(length(vv), length(vv));
for i=1:length(vv);
   linei=(i-milieu)/2;
   C(i, :)=vv.^2 + linei^3 / 10;
end;
scf(3);
surf(vv, vv, C);

// sin(r) / r  où  r = distance à l'origine
vv=-15:0.5:15;
milieu=(length(vv)+1) / 2;
C=zeros(length(vv), length(vv));
for i=1:length(vv);
   linei=(i-milieu)/2;
   C(i, :)=sqrt(vv.^2 + linei^2);
end;
C(milieu, milieu)=%pi/2;
C=sin(C) ./ C;
C(milieu, milieu)=1;
scf(4);
surf(vv, vv, C);

//scf(0);  // Retour à la fenêtre graphique par défaut.
