Présentation de an_bezier_03.jps

%% Ici on a recopié une courbe dans un livre, mais sans faire aucun
%% calcul d'interpolation (postscript s'en charge). Il a juste fallu
%% augmenter les tensions sur les branches pour donner l'impression
%% d'une fonction polynôme de degré 4. 

-5 5 setxrange
-2 5 setyrange

/A {-4 3.5} def
/B {-2 -1} def
/C {0 2} def
/D {1 0} def
/E {3 4} def

traceaxes
axesarrow
1.7 setlinewidth

[A B E] dashpoints

[-4 -2 0 1 3] {xmark} apply
[-1 2 3.5 4] {ymark} apply

%% redefinition de .. pour avoir des tensions plus fortes
/.. {3 3} def

[A {-80 dir} .. B {right} .. C {right} .. D {right} .. {60 dir} E ] draw