π
<-
Chat plein-écran
[^]

programme fraction continue

Pour le TI-Basic sur Nspire

programme fraction continue

Message non lude kadtexas » 24 Sep 2022, 11:23

Bonjour,

Code: Tout sélectionner
Define LibPub foncontinu(list)=
Func
:local k,n,d,r
:© list: liste des coefficients, ici {4,2,6,7} de la fraction 415/93
:© k:nombre de coéfficients
:© f(k-1): matrices des coefficients de la fraction continue avec les indices 0,1,2,...,k-1
:n:=f(k-1)
:d:=1
:while k≥1
: r:=d
: d:=n
: k:=k-1
: n=f (k-1)*n+r
:endwhile
:disp n/d
:EndFunc

Je me suis inspiré d'un programme sur internet pour écrire le programme ci-dessus sur ti nspire.

Déterminer une valeur approchée de la fraction 415/93 à partir de ses coefficients {4,2,6,7}.
J'ai programmé Euclide en extrayant les quotients.
Mais je ne sais pas comment définir la fonction f(k-1).

Merci d'avance.
Avatar de l’utilisateur
kadtexas
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Prochain niv.: 73.8%
 
Messages: 283
Inscription: 29 Jan 2015, 19:32
Genre: Non spécifié
Calculatrice(s):
MyCalcs profile
Classe: etudiant

Re: programme fraction continue

Message non lude Bisam » 24 Sep 2022, 15:22

Je pense qu'il s'agit simplement du dernier élément de la liste.
Le site où tu as pris cet algorithme est probablement une très mauvaise traduction d'un site de vulgarisation écrit en (mauvais) anglais.

En Basic Nspire, cela s'écrit :
Code: Tout sélectionner
Define Libpub foncontinu(l)
Func
local k,n,d,r
k:=dim(l)
n:=l[k]
d:=1
While k≥1
  r:=d
  d:=n
  k:=k-1
  n:=l[k]*n+r
EndWhile
Return n/d
EndFunc
Avatar de l’utilisateur
BisamAdmin
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Prochain niv.: 69.5%
 
Messages: 5665
Inscription: 11 Mar 2008, 00:00
Localisation: Lyon
Genre: Homme
Calculatrice(s):
MyCalcs profile

Re: programme fraction continue

Message non lude kadtexas » 26 Sep 2022, 15:06

Merci pour la fonction, ça marche.
J'ai décalé k:=k-1 en dessous de n:=l[k]*n+r car l'indice 0 provoque une erreur de dimension.
Avatar de l’utilisateur
kadtexas
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Prochain niv.: 73.8%
 
Messages: 283
Inscription: 29 Jan 2015, 19:32
Genre: Non spécifié
Calculatrice(s):
MyCalcs profile
Classe: etudiant

Re: programme fraction continue

Message non lude Bisam » 26 Sep 2022, 17:55

Oui, j'ai oublié de modifier ce détail : j'ai trop l'habitude du Python, désormais...
Avatar de l’utilisateur
BisamAdmin
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Prochain niv.: 69.5%
 
Messages: 5665
Inscription: 11 Mar 2008, 00:00
Localisation: Lyon
Genre: Homme
Calculatrice(s):
MyCalcs profile

Re: programme fraction continue

Message non lude kadtexas » 28 Sep 2022, 10:57

Bonjour,

Je pense que cet algorithme développe en fraction continue que les rationnels n/d avec n>d
Pour 1/7 il donne [0,7]
1/7 est périodique, 0,142857 à la calculette.
Avatar de l’utilisateur
kadtexas
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Prochain niv.: 73.8%
 
Messages: 283
Inscription: 29 Jan 2015, 19:32
Genre: Non spécifié
Calculatrice(s):
MyCalcs profile
Classe: etudiant


Retourner vers Nspire-Basic

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 4 invités

-
Rechercher
-
Social TI-Planet
-
Sujets à la une
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
Phi NumWorks jailbreak
123
-
Faire un don / Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
Faire un don
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partenaires et pub
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
787 utilisateurs:
>761 invités
>22 membres
>4 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Autres sites intéressants
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)