Inscription / Connexion Nouveau Sujet
Accueil l'île des mathématiques Forum de mathématiquesListe de tous les forums de mathématiques SupérieurOn parle exclusivement de maths, pour le supérieur principalement, les BTS, IUT, prépas... Maths sup AlgèbreTopics traitant de algèbre [tout]Lister tous les topics de mathématiques
Niveau Maths sup
Polynôme d'interpolation de Lagrange
Posté par Bcracker
Bonsoir,
J'ai un doute quand à la suite d'instructions maple permettant de calculer un polynôme d'interpolation de LAGRANGE.
Citation :
Soit\in\mathbb{R}^n)
, 
et \in\mathbb{R}^n)
connus. On définit le polynôme d'interpolation de LAGRANGE par
=\Bigsum_{i=1}^n\,b_i\,\Bigprod_{j=1\\j\neq i}^n\,\frac{X-a_j}{a_i-a_j})
.
On cherche à calculer)
avec Maple.
Soit
On cherche à calculer
Voici un essai (dont je ne suis pas vraiment sûr) :
Citation :
S := 0; for i to n do P := b[i]; for j to n do if j <> i then P := P*(X-a[j])/(a[i]-a[j]) else end if end do end do; S := S+P; expand(S)
S := 0; for i to n do P := b[i]; for j to n do if j <> i then P := P*(X-a[j])/(a[i]-a[j]) else end if end do end do; S := S+P; expand(S)
Pouvez-vous m'éclairer sur la question? merci d'avance.
Bonjour,
Citation :
if j <> i then P := P*(X-a[j])/(a[i]-a[j]) else end if
if j <> i then P := P*(X-a[j])/(a[i]-a[j]) else end if
Je ne suis pas sûr que Maple accepte le mot clé else suivi ... de rien.
Citation :
end do end do; S := S+P;
end do end do; S := S+P;
Il semblerait que tu fasses ta somme à la fin, effaçant, par la même, toutes les valeurs de P que tu as calculé, pour ne garder que la dernière et la sommer à S=0.
A vérifier
Salut et merci pour vos réponses.
Fradel >> pour un else suivi de rien Maple accepte, mais je pense que je devrai enlever ce else inutile. De plus, j'ai fermé ma boucle non conditionnelle au mauvais endroit...
En corrigeant, ça me donne quelque chose de correct
A+
Annuler
connectez vous
algèbre en post-bac