12 setfontsize
-20 20 setxrange
-2 2 setyrange
50 setyunit
10 setxunit
[5 1 2.5 .5] {orange} Quadrillage
.7 setlinewidth
5 setxmkstep
/f {
Bessel_j1
} def
/unites {} def
tracerepere
marks
#tex# Fonction $J_1$ 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
{f} courbe
grestore
setTimesItalic
(O) O drtext
|