\input fig4tex.tex
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%% DEBUT DESSIN
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\figinit{.8truept}
% pt pour l'intersection
\figpt 1:(0,40)\figpt 2:(0,-40)\figpt 3:(-20,0)\figpt 4:(20,0)
\figpt 10:(-50,50)\figpt 11:(-50,-50)\figpt 12:(-90,0)
\figpt 20:(50,40)\figpt 21:(50,-40)\figpt 22:(80,0)
%
% ecriture de A et B
\figpt 16:(-100,10)\figpt 15:(90,10)
%%%%%%%%%%%%%%%%%%%%%
%% fichier graphique
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\pssetroundness{0.23} %pour lisser
\pssetfillmode{yes}\pssetgray{0.6}
\pscurve[11,2,4,1,10]\pscurve[20,1,3,2,21]
\psline[1,2]
\pssetfillmode{no}\pssetgray{0}
\pscurve[11,2,4,1,10,12,11,2,4,1]
\pscurve[20,1,3,2,21,22,20,1,3,2]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\figvisu{\figBoxA}{\boxit{3pt}{$A\cap B=\{x\,|\,x\in A\,\hbox{ et }\,x\in B\}$}}{
\figwritec [15]{$B$}
\figwritec [16]{$A$}
}
%%%%%%%%%%%%%%%%%%%%%
%% fichier graphique
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\pssetroundness{0.23} %pour lisser
\pssetfillmode{yes}\pssetgray{0.6}
\pscurve[11,2,4,1,10,12,11,2,4,1]
\pscurve[20,1,3,2,21,22,20,1,3,2]
\pssetfillmode{no}\pssetgray{0}
\pscurve[11,2,4,1,10,12,11,2,4,1]
\pscurve[20,1,3,2,21,22,20,1,3,2]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\figvisu{\figBoxB}{\boxit{3pt}{$A\cup B=\{x\,|\,x\in A\,\hbox{ ou }\,x\in B\}$}}{
\figwritec [15]{$B$}
\figwritec [16]{$A$}
}
%%%%%%%%%%%%%%%%%%%%%
%%%% FIN DESSIN
\bigskip
\centerline{\box\figBoxA\hfil\box\figBoxB}
\bye