12 setfontsize
-3 25 setxrange
-2 2 setyrange

50 setyunit
10 setxunit
[5 1 2.5 .5] {orange} Quadrillage
.7 setlinewidth
5 setxmkstep

/f {
   Bessel_y0
} def

/unites {} def
tracerepere
marks

#tex# Fonction $Y_0$ de Bessel
/dx_boxit 3 def
/dy_boxit 3 def
/linearc .1 def
/fillstyle {jaune fill} def
boxit
10 1.5 [1.5 dup] cctexlabel
   
1.5 setlinewidth
gsave
   bleu
   .001 xmax {f} Courbe
grestore

setTimesItalic
   (O) O dltext