Présentation de cosinus2.jps

/syracuse/bbgraf/albums/courbes_03/cosinus2.jpg
-5 5 setxrange -2 2 setyrange 50 setxunit [1 1 .5 .5 .1 .1] {orange} Quadrillage .7 setlinewidth /f { Cos } def tracerepere ymarks #tex# $\pi $ pi 0 [1.5 dup] dctexlabel #tex# $-\pi $ pi neg 0 [1.5 dup] dctexlabel #tex# ${\pi \over 2}$ pi 2 div 0 [1.5 dup] dctexlabel #tex# $-{\pi \over 2}$ pi -2 div 0 [1.5 dup] dctexlabel #tex# ${3\pi \over 2}$ 3 pi mul 2 div 0 (3 0) [1.5 dup] dctexlabel #tex# $-{3\pi \over 2}$ -3 pi mul 2 div 0 [1.5 dup] dctexlabel <tex> $$ y = \cos x $$ </tex> /dx_boxit 3 def /dy_boxit 3 def /fillstyle {jaune fill} def /linearc .05 def boxit -3 1 [2 dup] cctexlabel gsave 1.5 setlinewidth bleu {f} courbe grestore [pi dup neg pi 2 div dup neg 3 pi mul 2 div dup neg] {ytick} apply setTimesItalic (O) O drtext