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