Présentation de cotangente.jps

/syracuse/bbgraf/albums/courbes_03/cotangente.jpg
18 setfontsize -5 5 setxrange -5 5 setyrange /f { coTan } def /val 3.14 def 40 setxunit [1 1 .5 .5 .1 .1] {orange} Quadrillage tracerepere marks gsave bleu 1.75 setlinewidth 0.1 val {f} Courbe val neg -0.1 {f} Courbe val neg pi sub val neg .1 sub {f} Courbe val pi add val .1 add {f} Courbe grestore setTimesItalic (O) O drtext <tex> $$ y = \cotan x $$ </tex> /dx_boxit 3 def /dy_boxit 3 def /linearc .05 def /fillstyle {jaune fill} def boxit -3.5 2.5 [2 dup] cctexlabel