% Taylor-utvikling av cos(x) rundt origo
xmax=7;
n=100;
x=linspace(-xmax,xmax,n);
hold off
% funksjonen i svart
plot(x,cos(x),'k');
axis([-xmax xmax -2 2])
hold on
% potens null i blå
plot ([-xmax xmax], [1 1], 'b');
% potens to i grønn
plot (x, 1 - 1/2*x.^2, 'g');
% potens fire i gul
plot (x, 1 - 1/2*x.^2 + 1/24*x.^4, 'y');
% potens seks i cyan
plot (x, 1 - 1/2*x.^2 + 1/(2*3*4)*x.^4 - 1/(2*3*4*5*6)*x.^6, 'c');
% potens seks i magenta
plot (x, 1 - 1/2*x.^2 + 1/(2*3*4)*x.^4 - 1/(2*3*4*5*6)*x.^6 + 1/(2*3*4*5*6*7*8)*x.^8, 'm');
% fortsett så langt du vil ...

% Konklusjonen ser uansett ut til å være at Taylor-utviklingen er
% god for |x| liten og svært dårlig for |x| stor.
