\documentclass[a4paper,12pt]{article}
\usepackage{epic, eepic}

\usepackage{amsmath, amssymb, hymcbk, xspace}
\usepackage{euscript,  array}
\usepackage[T1]{fontenc}
%\usepackage{tipa1}
%\usepackage{calc, wasysym, textcomp, ulsy}

\begin{document}
\pagestyle{empty}


\setlength{\unitlength}{.7mm}
\begin{picture}(170,20)

% représentation de l'union de [-1;1] et de [3,4]  

\put(0,10){\vector(1,0){170}}\thicklines  
\put(40,10){\makebox(0,0)[c]{[}}\put(40,14){\makebox(0,0)[b]{$-1$}}  
\put(70,10){\makebox(0,0)[c]{]}}\put(70,14){\makebox(0,0)[b]{$1$}}  
\put(90,10){\makebox(0,0)[c]{[}}\put(90,14){\makebox(0,0)[b]{$3$}}  
\put(100,10){\makebox(0,0)[c]{]}}\put(100,14){\makebox(0,0)[b]{$4$}}  
\allinethickness{.8mm}\put(40,10){\line(1,0){30}}\put(90,10){\line(1,0){10}}
\end{picture}
  

\end{document}

%%% Local Variables: 
%%% mode: latex
%%% TeX-master: t
%%% End: 
