Présentation de ex_02.jps

%% PhS
%%
%% échelle et étendue de l'image
60 setxunit
-1 9 setxrange
-5 2 setyrange

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%% Positionnement de la Caméra
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/ScreenDist 0.1 def
/ZoomFactor_x 100 def
/ZoomFactor_y 100 def

/representationtype (perspective) def
6 -6 4 SetCamPos
-1 1.1 -0.3 SetCamVec
0.03 0.03 1 SetCamUp
ComputeCamera


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% définitions des couleurs
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/coul1 {120 255 div 70 255 div 9 255 div setrgbcolor} def
/coul2 {255 255 div 240 255 div 240 255 div setrgbcolor} def


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% tracés
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% tracé des axes et du point Origine
17 setfontsize
1.5 setlinewidth

continu
190 255 div 190 255 div 200 255 div setrgbcolor
%% quadrillage  x_min x_max y_min y_max z_min z_max
0 5 0 5 0 0 quadrilleXYZ

3 setlinewidth
/arrowscale {2 2} def

%% syntaxe : xyz_min xyz_max lu axesRVB
%% (étendue du pointille, longueur des vecteurs)
%% trace des vecteurs unitaires et des axes
-2 5 1 axesRVB

1 setlinewidth


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% la fonction z = f (x, y)
/f { % x y
2 dict begin
   /y exch def
   /x exch def
#rpn# Cos (x-y-1)* 0.5 * Cos (x+y+1) + 2
end
} def

coul1

/a {3.25 1.25} def
/A {a 0} def
/B {a dupp f} def
/drx {a 0.01 0 addv dupp f B subv3d dupp3d norme3d 1 exch div mulv3d} def
/dry {a 0 0.01 addv dupp f B subv3d dupp3d norme3d 1 exch div mulv3d} def

pointilles
2 setlinewidth
[A B] ligne3d


/fillstyle { 1 0.8 0.8 setrgbcolor fill} def
0.9 0.7 0.7 setrgbcolor
0 setlinewidth
[B drx 1.6 mulv3d addv3d dupp3d dry 1.6 mulv3d addv3d
B dry 1.6 mulv3d addv3d B] polygone*3d

coul1
continu
1.2 setlinewidth

/pas 0.25 def
1 pas 4 0 pas 3 {f} surfaceparam3d
 
pointilles
[
   1 0 dupp f 
   1 0 0 
   1 3 0 
   1 3 dupp f
] ligne3d
[
   1 3 0 
   4 3 0 
   4 3 dupp f
] ligne3d
[
   4 3 0 
   4 0 0 
   4 0 dupp f
] ligne3d
 
rouge
1.5 setlinewidth
/arrowscale {2 2} def
continu
[B dupp3d drx 1.6 mulv3d addv3d] (->) ligne3d
[B dupp3d dry 1.6 mulv3d addv3d] (->) ligne3d
 
pointilles
1 setlinewidth
[B drx 1.6 mulv3d addv3d dupp3d dry 1.6 mulv3d addv3d
B dry 1.6 mulv3d addv3d] ligne3d

noir
[A B] points3d
 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% texte
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
setTimesItalic

noir
<latex>
$\left(
\begin{array}[c]{c}
1\\
0\\
\frac{\partial f}{\partial x_1}
\end{array}\right)$
</latex>
5.2 1.1 1.9 [1.5 dup] cctexlabel3d


<latex>
$\left(
\begin{array}[c]{c}
0\\
1\\
\frac{\partial f}{\partial x_2}
\end{array}\right)$
</latex>
3 2 3.2 [1.5 dup] cctexlabel3d

noir
<latex>
$a$
</latex>
A 0.2 0 0 addv3d [2.5 dup] cctexlabel3d

rouge
<latex>
$x_1$
</latex>
5.1 0 0 [2 dup] cctexlabel3d

vert
<latex>
$x_2$
</latex>
0 5.5 0 [2 dup] cctexlabel3d