%Gilles Mora 1 setxyrapport 60 setxunit 7.5 setborder 90 setangle_repere -1 5 setxrange -2 3 setyrange 1 1 settkstep .5 .5 setsubtkstep 2 2 setmkstep ticks subticks marks traceaxes axesarrow %unites /f {setxvar #rpn# (x^5-5)/(x^4-6)-4 } def /f' {setxvar #rpn# 2*(x-3) } def /g {setxvar #rpn# x } def gsave noir .75 setlinewidth continu 0.1 10 {f} Courbe grestore $O$ 0 0 [1 dup] dltexlabel $x=a$ boxit 1 -1.5 [1.5 dup] dctexlabel $C_f$ boxit 4.5 1.3 [1.5 dup] dctexlabel