\input fig4tex.tex
%%%%%%%%%%% DESSIN
% pts caracteristiques
\figinit{cm}\figpt 1:(1.5,2.5)\figpt 2:(1.5,1.7)\figpt 3:(1.5,1)\figpt 4:(1,0.5)\figpt 5:(1.5,0)
\figpt 6:(2,0.5)\figpt 7:(3,0.5)\figpt 8:(4,0)\figpt 9:(4.5,0.5)\figpt 10:(1.5,0.3)
\figpt 11:(4,2.3)\figpt 12:(4,2.5)\figpt 13:(3,1.7)\figpt 14:(2,1)\figpt 15:(4.5,2.7)
%% poststript
\psbeginfig{}
\psline[1,5]\psline[4,9]\psline[8,12]
\pssetdash{5}
\psline[6,14,3]\psline[7,13,2]
\pssetdash{\defaultdash}
\pscurve [4,10,14,13,11,15]
\psendfig
% writing
\figvisu{\figBoxA}{fonction croissante}{
\figsetmark{$\bullet$}
\figwrites 6:$x_1$ (0.1)
\figwrites 7:$x_2$ (0.1)
\figwritew 2:$f{(}x_2{)}$ (0.1)
\figwritew 3:$f{(}x_1{)}$ (0.1)
}
% pts caracteristiques
\figinit{cm}
\figpt 1:(1.5,2.5)\figpt 2:(1.5,1.7)\figpt 3:(1.5,1)\figpt 4:(1,0.5)\figpt 5:(1.5,0)
\figpt 6:(2,0.5)\figpt 7:(3,0.5)\figpt 8:(4,0)\figpt 9:(4.5,0.5)
\figpt 10:(4,0.5)\figpt 11:(4,2.3)\figpt 12:(4,2.5)\figpt 14:(3,1)
\figpt 13:(2,1.7)\figpt 15:(4.5,0.7)\figpt 16:(1,2.7)\figpt 17:(0.5,3)
%% poststript
\psbeginfig{}
\psline[1,5]\psline[4,9]\psline[8,12]
\pssetdash{5}
\psline[6,13,2]\psline[7,14,3]
\pssetdash{\defaultdash}
\pscurve [17,16,13,14,10,15]
\psendfig
% writing
\figvisu{\figBoxB}{fonction d\'ecroissante}{
\figsetmark{$\bullet$}
\figwrites 6:$x_1$ (0.1)
\figwrites 7:$x_2$ (0.1)
\figwritew 2:$f{(}x_1{)}$ (0.1)
\figwritew 3:$f{(}x_2{)}$ (0.1)
}
\centerline{\box\figBoxA\hfil\box\figBoxB}
%%%%%%%%%% FIN DESSIN
\bye