Apprendre Maple Index du Forum Apprendre Maple
Site dédié au logiciel de calcul formel Maple
 
  Page d'accueilPage d'accueil   FAQFAQ    RechercherRechercher    Liste des MembresListe des Membres    Groupes d'utilisateursGroupes d'utilisateurs 
S'enregistrerS'enregistrer    ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

Maple (approche de ln x)

 
Poster un nouveau sujet   Répondre au sujet    Apprendre Maple Index du Forum -> Programmation
Voir le sujet précédent :: Voir le sujet suivant  
Auteur Message
Cedric
Invité





MessagePosté le: 12 Jan 2004 14:52    Sujet du message: Maple (approche de ln x) Répondre en citant

Bonjour,
J ai besoin d une aide concernant la déclaration et initialisation des paramètres sur Maple (pb ci-dessous)
Merci mille fois


On donne :
· T(x)=(x^2-1)/(x^2+1) et S(x) = (x^2-1)/2*x
· T(x)<=2T(x^1/2) et et 2*S(x^1/2)<=S(x)
· U0=x et x>1
· T(x)<ln(x)<S(x)
· Un+1= (Un)^(1/2)
· Tn = (2^n)*T(Un) et Sn = (2^n)*S(Un)
· Tn <ln(x)<Sn
· Cn = Sn/Tn

· Cn+1 = ((1+Cn)/2)^(1/2) (1)

· Sn+1 = Sn/Cn+1 (2)

· Tn+1 = Sn+1/Cn+1 (3)

Question
En utilisant les relations (1) , (2) et (3) etavec x>1 et p un entier naturel, écrire un algorithme en Maple donnant :

· La plus petite valeur de l entier n telle que :
Sn ââ`¬âEURoe Tn < 10^(-p).

· La valeur approchée par excès de ln(x) ainsi obtenue
· Quels résultats numériques obtient-on pour x=2 ,x=3 et x=5et p=6.


Merci

Cedric
Revenir en haut de page
ALS
Invité





MessagePosté le: 12 Jan 2004 19:23    Sujet du message: Re: Maple ( approche de ln x ) Répondre en citant

J'écris simplement la structure de la procédure approche_ln
Je vous laisse réfléchir pour compléter les ...
Faites parvenir votre travail dans un prochain message sur ce forum.
( les variables s,t,c contiendront les valeurs prises par les termes des suites (sn), (tn) et (cn) respectivement )

Code:


> approche_ln:=proc(x::numeric,p::nonnegint)
 local c,s,t,n;
 if x<=1 then ERROR(`x doit être supérieur strictement à 1`)
 else 
 s:=evalf(...);t:=evalf(...);c:=evalf(...);n:=...;  ### initialisation des variables ###
 while (s-t)>=10^(-p) do
   c:=...;          ###  formule (1) ###
   s:=...;          ###  formule (2) ###
   t:=...;          ###  formule (3) ###
   n:=n+1;
 end do;
 [n,s];
 end if;
end proc:

> approche_ln(2,6);

                          [9, 0.6931473934]

> approche_ln(3,6);

                          [10, 1.098612501]

> approche_ln(5,6);

                          [11, 1.609438082]

> approche_ln(1,6);
Error, (in approche_ln) x doit être supérieur strictement à 1




A plus tard.
Revenir en haut de page
Cedric
Invité





MessagePosté le: 12 Jan 2004 22:12    Sujet du message: Répondre en citant

Mille mercis ALS
Revenir en haut de page
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre Maple Index du Forum -> Programmation Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  
Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum


phpBB

Développé par phpBB © 2001, 2006 phpBB Group
Traduction par : phpBB-fr.com


Apprendre Maple - ©  - Alain Le Stang - Navigation optimisée pour une résolution 1024 x 768.