
// On veut afficher sur un graphique la courbe représentative du polynome de Lagrange de l'exo 1 de la feuille de TD
// Pour cela on définit l'intervalle (en fait la liste de points) sur lequel on veut tracer la fonction
// Ici l'intervalle [-10,10] avec un pas de 0.1
T=[-10:0.1:10]
R=lagrangeP([0,1,2],[1,2,0],T)

// scf pour définir la fenetre et clf pour effacer ce qu'il pourrait avoir dans la fenetre 0 (c'est un bon reflexe à prendre avant d'utiliser plot2d)
scf(0)
clf()
plot2d(T,R)

// On peut vérifier que cela correspond bien au résultat trouver dans l'exo 1

function y=f(x)
    y=(-3*x^2+5*x+2)/2
endfunction

scf(1)
clf()
plot2d(T,f(T))

// Les courbes des fenetres 0 et 1 semblent coincider donc le programme semble OK

// Pour l'exo 2

T= linspace(0,2*%pi,1000)

X=[1,2,3]

scf(2)
clf()
plot2d(T,sin(T),2)
plot2d(T,lagrangef(X,sin,T))

X=[1:0.2:3]

scf(3)
clf()
plot2d(T,sin(T),2)
plot2d(T,lagrangef(X,sin,T))
