Fichier 548.jps — Modifié le 12 Novembre 2006 à 12 h 11
%% 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