35 setxunit
-4 4 setxrange
-3 3 setyrange

traceaxes
axesarrow
marks

/id { setxvar x } def

mixte
xmin xmax {id} Courbe
   /f {
Arctan
   } def

   /g {
      Tan
   } def

/h1 { setxvar pi 2 div } def
/h2 { setxvar 0 pi 2 div sub } def
/d1 {-1.57 -3 -1.57 3} def
/d2 {1.57 -3 1.57 3} def

continu
0 xmax {h1} Courbe
xmin 0 {h2} Courbe
d1 droite
d2 droite

pointilles
   -1.57 1.57 {g} Courbe

continu
2 setlinewidth
bleu

 {f} courbe