La (presque) question du mercredi

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3419
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: La (presque) question du mercredi

Message par C.Ret »

Pour SHARP PC-1211 et descendants :

Code : Tout sélectionner

1:A=1,B=4
2:PRINT A,B:A=6B-A-2,B=6A-B-2:GOTO 2
Histoire de profiter pleinement de l'afficher LCD de 24 caractères.
Modifié en dernier par C.Ret le 10 mai 2019 20:01, modifié 1 fois.
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Avatar du membre
dprtl
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 463
Enregistré le : 27 janv. 2013 00:26
Localisation : Strasbourg
Contact :

Re: La (presque) question du mercredi

Message par dprtl »

zpalm a écrit : 09 mai 2019 09:31 Sinon pour toutes les suites la solution de facilité pour trouver les formules est de mettre les premiers termes dans le moteur de recherche de l'OEIS (On-Line Encyclopedia of Integer Sequences), mais pour les challenges sur le forum c'est un peu de la gruge.
C'est bien sur le site de l'OEIS que j'ai trouvé cette formule par récurrence. Les travaux sur les triplets pythagoriciens sont légions, et les auteurs multiples. Désolé :-)
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3419
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: La (presque) question du mercredi

Message par C.Ret »

A oui, c'est vrai, j'oublie à chaque fois d'aller faire un tour dans cette encyclopédie. Elle sert pourtant à cela.
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Gilles59
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1602
Enregistré le : 27 oct. 2010 20:46

Re: La (presque) question du mercredi

Message par Gilles59 »

dprtl a écrit : 09 mai 2019 09:53
zpalm a écrit : 09 mai 2019 09:31 Sinon pour toutes les suites la solution de facilité pour trouver les formules est de mettre les premiers termes dans le moteur de recherche de l'OEIS (On-Line Encyclopedia of Integer Sequences), mais pour les challenges sur le forum c'est un peu de la gruge.
C'est bien sur le site de l'OEIS que j'ai trouvé cette formule par récurrence. Les travaux sur les triplets pythagoriciens sont légions, et les auteurs multiples. Désolé :-)
Bon je la met ça dans mes favoris. et dès que j'ai un peu de temps de cerveau disponible, j'essaie de comprendre mdr
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49g+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+ CM14 et MM12 / Alice 32
Avatar du membre
Marge
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 6186
Enregistré le : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: La (presque) question du mercredi

Message par Marge »

Gilles59 a écrit : 09 mai 2019 13:44
dprtl a écrit : 09 mai 2019 09:53
zpalm a écrit : 09 mai 2019 09:31 Sinon pour toutes les suites la solution de facilité pour trouver les formules est de mettre les premiers termes dans le moteur de recherche de l'OEIS (On-Line Encyclopedia of Integer Sequences), mais pour les challenges sur le forum c'est un peu de la gruge.
C'est bien sur le site de l'OEIS que j'ai trouvé cette formule par récurrence. Les travaux sur les triplets pythagoriciens sont légions, et les auteurs multiples. Désolé :-)
Bon je la met ça dans mes favoris. et dès que j'ai un peu de temps de cerveau disponible, j'essaie de comprendre mdr
Oui, c'est un bon endroit où flâner. J'y ai aussi participé (très modestement, et non sans parfois me tromper...).
Mais c'est aussi vrai que c'est tricher que d'y aller pour s'épargner l'effort le plus important.
3 hommes, 3 demis, un 3a... Magnéto, Serge !

Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67
__: A L I E N .

« Boris », c'était juste Maurice enrhumé.
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3419
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: La (presque) question du mercredi

Message par C.Ret »

Oui, tricher c'est pas bien, mais gruger c'est je crois toléré ici du fait de l'âge de nos machines…
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Avatar du membre
Marge
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 6186
Enregistré le : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: La (presque) question du mercredi

Message par Marge »

C.Ret a écrit : 10 mai 2019 19:59 Oui, tricher c'est pas bien, mais gruger c'est je crois toléré ici du fait de l'âge de nos machines…
Cette opinion exige une meilleure argumentation, mon ami !

- Quelle est la différence entre tricher et gruger ?
- En quoi l'âge des machines, qui ont pour certaines contenu les algorithmes d'arrimage de parties de stations orbitales ou de procédures d'urgence en cas de faillite des instruments de bord (il s'agit de sauver des vies humaines tout de même !), en quoi leur âge, donc, les rendraient handicapées au point que l'on soit obligé d'aller piocher l'algorithme directement dans une base de données, hein ?

:wink:
3 hommes, 3 demis, un 3a... Magnéto, Serge !

Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67
__: A L I E N .

« Boris », c'était juste Maurice enrhumé.
Avatar du membre
dprtl
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 463
Enregistré le : 27 janv. 2013 00:26
Localisation : Strasbourg
Contact :

Re: La (presque) question du mercredi

Message par dprtl »

Comme toutes les calculettes de sa génération, la Casio Classpad II permet de calculer la suite OEIS A046090 sans aucune programmation. Plus rare, elle est également capable d'afficher simultanément la courbe et le tableau des valeurs, avec l'écran splitté en deux fenêtres. La mauvaise nouvelle, c'est qu'elle ne fait pas mieux qu'une machine des années 80 sur le nombre maximal de chiffres significatifs de a(n). Je précise que le calcul exact est possible dans d'autres modes de calcul. Par contre, le graphe point par point en mode zoom auto, avec une échelle logarithmique sur l'axe des ordonnées, réserve une petite surprise :

Image

Donc, pour nos vieilles machines, il devrait être assez simple de calculer une approximation de très grands termes de a(n), sans avoir à calculer tous les termes précédents. Il est probable que cette propriété ait déjà été étudiée par quelqu'un... même si ce calcul n'est pas très utile à priori.
Avatar du membre
dprtl
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 463
Enregistré le : 27 janv. 2013 00:26
Localisation : Strasbourg
Contact :

Re: La (presque) question du mercredi

Message par dprtl »

L'alignement auquel je croyais dans le message précédent n'est en fait qu'une illusion d'optique. Peut-être liée à un manque de précision ? La pente de cette fameuse droite sur les log(a(n)) aurait en effet tendance à augmenter avec n (pente à environ 1,612 pour n=10 ; ou à 1,757 pour n=300). Il n'y a donc pas d'équation linéaire cachée derrière les logs.
Avatar du membre
gege
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 7147
Enregistré le : 31 janv. 2008 14:24
Localisation : Banlieue Paârisienne
Contact :

Re: La (presque) question du mercredi

Message par gege »

Bonjour,
Je crois que tu as quand même raison sur l'alignement.

Pour que ce soit aligné, il faut que An+1/An tende vers une limite.
Or An+1/An+1 = 6*An/An+1 - An-1/An+1 - 2/An+1
Comme An tend vers l'infini, le dernier terme est négligeable.
Si An+1/An tend vers une limite L, alors An-1/An+1 = An-1/An * An/An+1 tend vers 1/L²
On obtient l'équation du second degré :
1=6/L-1/L²
Soit L²-6L+1=0
La plus grande solution positive étant (6+sqrt(32))/2 = 5.82842
Dont le log népérien est 1.7627, valeur que tu trouves.
Ca marche...

En réfléchissant un peu, on se dit que ce type de calcul est toujours possible quand la relation entre An+1, An et An-1 est linéaire. On obtient donc toujours une droite pour le log de ce genre de suite, dont la pente est le log de la solution d'une équation du second degré...

C'est cool les maths, non ???
G.E.


EDIT : Putentrailles, il y a une forme fermée !!
On peut utiliser la fonction rsolve sur la Prime...
Ou s'apercevoir que :
(1/2) = 6 * (1/2) - (1/2) - 2
Avec
An+2 = 6 * An+1 - An - 2
En soustrayant si on appelle Bn = An - 1/2
Bn+2 = 6 * Bn+1 - Bn
Et ça ressemble à Fibonacci qu'on résoud donnant une "formule de Binet" :
An = ((sqrt(2)-1)/4 * (3+sqrt(8))^n - ((sqrt(2)+1)/4 * (3-sqrt(8))^n + 1/2
Par contre démontrer la formule An+2 = 6 * An+1 - An +2 reste apparemment très compliqué... ?
Répondre

Retourner vers « Tous les Pockets »