%% auteur : 50 setxunit 50 setyunit -1 10 setxrange -1 5 setyrange [1 1 .5 .5 .1 .1] {orange} Quadrillage ticks subticks marks traceaxes axesarrow unites /f {setxvar #rpn# sqrt(x) } def $$ y = \sqrt x $$ /dx_boxit 2 def /dy_boxit 2 def /fillstyle {jaune fill} def /linearc .05 def boxit 2 4 [2 dup] cctexlabel setTimes (O) O drtext setTimesItalic (X) xmax 0 dltext (Y) 0 ymax dltext noir 1.5 setlinewidth 0 10 {f} Courbe