12 setfontsize -.5 5 setxrange -1 6 setyrange 50 setxunit [1 1 .5 .5 .1 .1] {orange} Quadrillage .7 setlinewidth /f { Gammaln } def /unites {} def tracerepere marks \Palatino $$ y = \ln \Gamma (x) $$ /dx_boxit 3 def /dy_boxit 3 def /linearc .05 def /fillstyle {jaune fill} def boxit 2.5 3 [1.5 dup] cctexlabel 1.5 setlinewidth gsave bleu .005 xmax {f} Courbe grestore setTimesItalic (O) O drtext