\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 |