|
UNIVERSITE FRANCAISE DU PACIFIQUE ______ Université
de la Polynésie Française |
Examen
terminal d'informatique Licence Mathématiques Année
2001-2002 - Première session |
1.Vous disposez de deux heures,
2.seules vos notes personnelles sont
autorisées,
3.le barème est donné à titre indicatif et
pourra être modifié.
Maple
interactif
On souhaite obtenir une approximation de l’intégrale
de la fonction f(x) = sin(x2) +2 sur l’intervalle [0, 2] en
utilisant la classique méthode des rectangles (cf. ci-dessous) et une méthode
plus efficace dite méthode de Simpson.

Le
principe de la méthode de Simpson est de trouver un polynôme de degrés 2 qui
coïncide avec f(x) au début, au milieu et à la fin de l’intervalle considéré,
l’intégrale de ce polynôme donne alors une bonne approximation de l’intégral de
la fonction f(x).
Vous
donnerez donc une session Maple permettant de trouver le polynôme de Simpson
pour notre fonction f(x), de tracer sur un même graphique f(x) et le polynôme
de Simpson et enfin de calculer les 3 aires (rectangles, Simpson, véritable).
Remarque : Cette méthode n’est,
bien entendu, pas très efficace pour un intervalle découpé en seulement 2
rectangles mais dès que l’on passe à 4 ou 6, le gain en précision est
significatif.
Maple
programmation
Il existe un beau théorème
qui dit que toute matrice A carrée
inversible peut se décomposer de manière unique en le produit d’une matrice L carrée triangulaire inférieure à
diagonale unité (“ Lower ” en Anglais) et une matrice U triangulaire supérieure
(“ Upper ” en Anglais). C’est cette décomposition que nous nous
proposons de programmer en Maple.
Exemple en dimension
3 :
>
L:=Low(3);U:=Up(3);
[ 1 0 0 ]
[ ]
L := [ L2,1 1 0 ]
[ ]
[ L3,1 L3,2 1 ]
[ U1,1 U1,2 U1,3 ]
[ ]
U := [ 0 U2,2 U2,3 ]
[ ]
[ 0 0 U3,3 ]
La méthode la plus simple
(mais aussi la moins efficace) consiste à former la matrice LU-A et à résoudre le système de n2
équations à n2 inconnues donné par LU-A=0.
Rappel : La fonction Maple entries permet d’isoler les différents
coefficients d’une matrice
> entries(array([[1,3,x],[2*z,3.5,y],[12,t,58]]));
[12], [t], [58], [1], [3], [3.5], [2 z], [x], [y]
> evalm(L
&* U);
[
U1,1 U1,2 U1,3 ]
[ L2,1 U1,1 L2,1
U1,2 + U2,2 L2,1 U1,3 + U2,3 ]