%% auteur : 
1 setxyrapport
25 setxunit
7.5 setborder
90 setangle_repere
-8 8 setxrange
-5 5 setyrange
1 1 settkstep
.5 .5 setsubtkstep
2 5 setmkstep
ticks
marks
traceaxes
axesarrow
unites
/f {setxvar
#rpn#   Cos(x)
} def
/g {setxvar
#rpn#   1-((x^2)/2)
} def
/h {setxvar
#rpn# 1-((x^2)/2)+((x^4)/24)
} def
/k {setxvar
#rpn# 1-((x^2)/2)+((x^4)/24)-((x^6)/720)
} def
gsave
   noir
   .75 setlinewidth
   continu
   {f} courbe
grestore
gsave
   noir
   .75 setlinewidth
   dotted
   {g} courbe
grestore
gsave
   noir
   .75 setlinewidth
   mixte
   {h} courbe
grestore
gsave
   noir
   .75 setlinewidth
   pointilles
   {k} courbe
grestore