%% auteur : 60 setxunit 80 setyunit 7.5 setborder 90 setangle_repere -3.5 3.5 setxrange -1.2 1.2 setyrange [1 1 .5 .5 .1 .1] {orange} Quadrillage %.5 .5 setsubtkstep .5 setysubtkstep 1 setytkstep ymarks 0.7854 1 settkstep setSymbol (p/4) 0.7854 0 dctext (p/2) 1.5708 0 dctext (3p/4) 2.3562 0 dctext (p) 3.1415 0 dctext (-p/4) -0.7854 0 dctext (-p/2) -1.5708 0 dctext (-3p/4) -2.3562 0 dctext (-p) -3.1415 0 dctext 1.5708 1 dashpoint -1.5708 -1 dashpoint ticks ysubticks %subticks %marks traceaxes axesarrow unites /f {setxvar #rpn# Sin(x) } def boxit #tex# $ f(x) = \sin x$ -2 0.5 cctexlabel setTimes (O) O drtext setTimesItalic (X) xmax 0 dltext (Y) 0 ymax dltext gsave bleu .75 setlinewidth continu -3.1415 3.1415 {f} Courbe grestore