%@P:scilab

%@S:

.s deff('[z] = f(x, y)', 'z = sin(x) * cos(y)')
 
.s xset('colormap', jetcolormap(32))
 
.s x = %pi * [-1:0.05:1]'; y = x; z = feval(x, y, f);
 
.s subplot(2, 2, 1)
.s grayplot(x, y, z)
 
.s subplot(2, 2, 2)
.s contour2d(x, y, z, 5)
 
.s subplot(2, 2, 3)
.s plot3d1(x, y, z, 0, 90)
 
.s subplot(2, 2, 4)
.s plot3d1(x, y, z, 70, 70)

La ligne débutant par \verb|.f| provoque l'insertion de la figure qui
est apparente au moment de l'exécution du script. Cette figure est
obtenue à partir de Scilab au format EPS, elle est ensuite convertie en
PDF par une routine interne au script.

.f