 % Trace la fonction log(1+x)+x^4 sin(10*x) sur [0,1] ainsi que 
 % les polynômes de Berntein associes de degre 5, 10, et 20. 
 % Utilise la fonction ber pour le calcul des polynômes de Berstein
 clf;
 clear;
 f=inline('log(1+x)+x.^4.*sin(10*x)');
 S=[.01:.01:.99]; % subdivision de [0,1]
 F=feval(f,S); % image de la subdivision par notre fonction
 B1=ber(S,5,f);
 B2=ber(S,10,f);
 B3=ber(S,20,f);
 plot(S,F,'k-',S,B1,'r.',S,B2,'b+',S,B3,'g*');
 legend('f','B(5,f)','B(10,f)','B(20,f)');
