La suite des virgules

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 de l’utilisateur
bernouilli92
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3988
Inscription : 21 nov. 2012 14:03
Localisation : Ile de France

Re: La suite des virgules

Message par bernouilli92 » 06 mai 2020 23:15

Bien joué. Il y a effectivement des cas où la suite s’arrête car il n’existe pas de terme suivant.
Mais on peut aussi dire que ce ne peut se produire que lors du franchissement de 1000.
La suite avec comme premier terme 1 ne s’arrête pas.
HP, Casio, Sharp, Psion, quelques TI et divers autres

Avatar de l’utilisateur
pir2
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4506
Inscription : 31 oct. 2006 16:08
Localisation : 67310 Westhoffen
Contact :

Re: La suite des virgules

Message par pir2 » 06 mai 2020 23:38

J'ai essayé un truc qui calcule Un+1 en fonction de Un en n'utilisant que la pile sur ma HP-41CV, mais je dois être trop rouillé, je perdais à chaque fois un terme :(

Si j'ai le courage je m'y remets demain, mais en utilisant des registres mémoire pour commencer.
Image
Image

Avatar de l’utilisateur
C.Ret
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2243
Inscription : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: La suite des virgules

Message par C.Ret » 07 mai 2020 06:21

pir2 a écrit :
06 mai 2020 23:38
J'ai essayé un truc qui calcule Un+1 en fonction de Un en n'utilisant que la pile sur ma HP-41CV, mais je dois être trop rouillé, je perdais à chaque fois un terme :(
[…]
J'avais fait pareil avec mon HP-15C. c'est en lisant les retours sur le forum que je me suis rendu compte que je faisait fausse route. j'étais parti bille en tête qu'à chaque terme U_n_ = x…xa de la suite, il y avait exactement un et un seul successeur U_n+1 = by…y tel que ab = U_n+1_ - U_n_.

J'ai donc pris un truc qui imprime afin de faire le calcul de façon plus systématique et prospectif:
SHARP PC-1360 masked code.gif
SHARP PC-1360 masked code.gif (3.22 Kio) Consulté 1396 fois
et je me suis rendu compte qu'il pouvait y avoir des valeurs pour lesquelles il y avait deux successeurs
PokEmul SHARP PC-1350 vigule 71.gif
PokEmul SHARP PC-1350 vigule 71.gif (46.67 Kio) Consulté 1396 fois
et parfois aucun,
PokEmul SHARP PC-1350 vigule 927.gif
PokEmul SHARP PC-1350 vigule 927.gif (46.36 Kio) Consulté 1396 fois
mais jamais trois ou plus !

Alors j'ai mis sous tension le Commodore C128D

EDIT: Il y avait une petite erreur dans le code donné ci-dessus. alors j'en ai profité pour le masquer en partie afin de laisser aux nouveaux lecteur l'opportunité de composer leur propre algorithmes.
Dernière édition par C.Ret le 08 mai 2020 09:27, édité 1 fois.
SHARP PC-1211 + CE-121 + CE-122. | VIC 20 Commodore 128D + Printer P-803 + SD2iec. | TI-57 LCD | TI-74 BasiCalc | TI-92 II | HP-28S + HP82240A | HP-41C + (2 memory + stat + IR) modules. | HP Prime Wireless Graphing Calculator | HP-15C | CASIO fx-602p + FA-1. .Sommaire des M.P.O.. . Sommaire du P.C.T.M. .

Avatar de l’utilisateur
dprtl
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 365
Inscription : 27 janv. 2013 01:26
Localisation : Strasbourg
Contact :

Re: La suite des virgules

Message par dprtl » 08 mai 2020 01:00

J'ai un programme simple à proposer, mais comme il est "un peu tôt", je ne vais pas publier toutes les lignes :

EDIT : j'ai complété les lignes cachées !

Code : Tout sélectionner

10 A=1
20 PRINT A;",";
30 X=(A-INT(A/10)*10)*10             # ou bien X=(A MOD 10)*10  mais la fonction MOD est limitée sur ces Casio
40 FOR Y=1 TO 9
50 B=A+X+Y
60 K=INT(B/10^INT(LGT(B)))             # LGT est le logarithme décimal sur PB-1000
70 IF K=Y THEN A=B:GOTO 20
80 NEXT Y
Il affiche ceci sur Casio Z1 (ou PB1000, ou autre Casio compatible) :

1 , 12 , 35 , 94 , 135 , 186 , 248 , 331 , 344 , 387 , 461 , 475 , 530 , 535 , 590 , 595 , 651 , 667 , 744 , 791 , 809 , 908 , 997 , 1068 , 1149 , etc.
Dernière édition par dprtl le 10 mai 2020 22:36, édité 1 fois.

Avatar de l’utilisateur
pir2
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4506
Inscription : 31 oct. 2006 16:08
Localisation : 67310 Westhoffen
Contact :

Re: La suite des virgules

Message par pir2 » 08 mai 2020 08:11

dprtl a écrit :
08 mai 2020 01:00
J'ai un programme simple à proposer, mais comme il est "un peu tôt", je ne vais pas publier toutes les lignes :

Code : Tout sélectionner

10 A=1
20 PRINT A;",";
30 X=...
40 FOR Y=1 TO 9
50 B=...
60 K=...
70 IF K=Y THEN A=B:GOTO 20
80 NEXT Y
Il affiche ceci sur Casio Z1 (ou PB1000, ou autre Casio compatible) :

1 , 12 , 35 , 94 , 135 , 186 , 248 , 331 , 344 , 387 , 461 , 475 , 530 , 535 , 590 , 595 , 651 , 667 , 744 , 791 , 809 , 908 , 997 , 1068 , 1149 , etc.
8O Un GOTO pour sortir d'une boucle FOR ???
Image
Image

Avatar de l’utilisateur
C.Ret
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2243
Inscription : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: La suite des virgules

Message par C.Ret » 08 mai 2020 10:23

pir2 a écrit :
08 mai 2020 08:11
dprtl a écrit :
08 mai 2020 01:00
J'ai un programme simple à proposer, […] Il affiche ceci sur Casio Z1 (ou PB1000, ou autre Casio compatible) :

1 , 12 , 35 , 94 , 135 , 186 , 248 , 331 , 344 , 387 , 461 , 475 , 530 , 535 , 590 , 595 , 651 , 667 , 744 , 791 , 809 , 908 , 997 , 1068 , 1149 , etc.
8O Un GOTO pour sortir d'une boucle FOR ???
C'est peut-être autorisé sur les CASIO ? En tout cas sur les SHARP l'infraction est détectée assez rapidement et il faut payer une amende:

Le code (volontairement maské afin de vous laisser trouver vos propres astuces):
SHARP PC-1360 retranscription of a CASIO malware.gif
SHARP PC-1360 retranscription of a CASIO malware.gif (4.81 Kio) Consulté 1395 fois
Et le résultat inéluctable d'un GOTO dans une boucle FOR TO STEP / NEXT.
PokEmul SHARP PC-1350 standart behavior when running Casio malware.gif
PokEmul SHARP PC-1350 standart behavior when running Casio malware.gif (47.39 Kio) Consulté 1395 fois
(Merci à remy pour son indispensable PokEmul).
Dernière édition par C.Ret le 08 mai 2020 11:55, édité 1 fois.
SHARP PC-1211 + CE-121 + CE-122. | VIC 20 Commodore 128D + Printer P-803 + SD2iec. | TI-57 LCD | TI-74 BasiCalc | TI-92 II | HP-28S + HP82240A | HP-41C + (2 memory + stat + IR) modules. | HP Prime Wireless Graphing Calculator | HP-15C | CASIO fx-602p + FA-1. .Sommaire des M.P.O.. . Sommaire du P.C.T.M. .

Avatar de l’utilisateur
Danny
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 228
Inscription : 28 déc. 2013 17:34

Re: La suite des virgules

Message par Danny » 08 mai 2020 11:27

Sympa cette petite suite ! C'est un truc connu, ou tu l'as inventée gege ? :)

J'essaie sur Prime... quelqu'un sait si c'est possible d'y "caster" un entier en chaîne de caractères ??
Ça m'a pas l'air possible, dommage ça éviterait pas mal d'opérations.
Casio 3900p, 7000G, 6000G, 8500G, 9900GC
HP 35, 45, 65, 21, 25, 33E, 41CX, 42S, 28S, 32SII, 48SX, 48GX, 50g, Prime

Avatar de l’utilisateur
dprtl
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 365
Inscription : 27 janv. 2013 01:26
Localisation : Strasbourg
Contact :

Re: La suite des virgules

Message par dprtl » 08 mai 2020 11:43

C.Ret a écrit :
08 mai 2020 10:23
pir2 a écrit :
08 mai 2020 08:11
dprtl a écrit :
08 mai 2020 01:00
J'ai un programme simple à proposer, […] Il affiche ceci sur Casio Z1 (ou PB1000, ou autre Casio compatible) :

1 , 12 , 35 , 94 , 135 , 186 , 248 , 331 , 344 , 387 , 461 , 475 , 530 , 535 , 590 , 595 , 651 , 667 , 744 , 791 , 809 , 908 , 997 , 1068 , 1149 , etc.
8O Un GOTO pour sortir d'une boucle FOR ???
C'est peut-être autorisé sur les CASIO ? En tout cas sur les SHARP l'infraction est détecter assez rapidement et il faut payer une amende:
Je confirme : les Casio sont les plus tolérantes du monde ! De plus, de façon très étonnante, mon programme se termine correctement, sans faire exploser les limites de la calculette (ici mon émulateur atteint du syndrôme de l'huile noire) :

Image

Avatar de l’utilisateur
C.Ret
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2243
Inscription : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: La suite des virgules

Message par C.Ret » 08 mai 2020 11:54

gege a écrit :
06 mai 2020 00:27
[…]Pour le coup des suites multiples, c'est vrai, on n'a qu'à dire qu'on prend toujours le terme le plus petit possible ?
J'ai oublié de le préciser au début... et c'est dans la définition que j'ai lue.[…]
Ce qui me donne en s'inspirant de l'excellente idée de dprtl le code suivant qui affiche les suites virgules en y insérant entre parenthèses les éventuelles successeurs alternatifs:
VIRGULE suite sharp PC13xx masked code.gif
VIRGULE suite sharp PC13xx masked code.gif (53.16 Kio) Consulté 1361 fois
On obtient alors les suites suivantes:
Same virgulesuite sample.gif
Same virgulesuite sample.gif (133.25 Kio) Consulté 1380 fois
Dernière édition par C.Ret le 08 mai 2020 15:18, édité 1 fois.
SHARP PC-1211 + CE-121 + CE-122. | VIC 20 Commodore 128D + Printer P-803 + SD2iec. | TI-57 LCD | TI-74 BasiCalc | TI-92 II | HP-28S + HP82240A | HP-41C + (2 memory + stat + IR) modules. | HP Prime Wireless Graphing Calculator | HP-15C | CASIO fx-602p + FA-1. .Sommaire des M.P.O.. . Sommaire du P.C.T.M. .

Avatar de l’utilisateur
Danny
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 228
Inscription : 28 déc. 2013 17:34

Re: La suite des virgules

Message par Danny » 08 mai 2020 12:15

bernouilli92 a écrit :
05 mai 2020 19:45
Je trouve 51088 comme 1025ème et 51173 comme 1026ème.
Suite_virgules.png
Suite_virgules.png (12.46 Kio) Consulté 1375 fois
J'aimerais quand même bien trouver un moyen de caster des entiers en chaînes, sur la Prime... :| :)
Casio 3900p, 7000G, 6000G, 8500G, 9900GC
HP 35, 45, 65, 21, 25, 33E, 41CX, 42S, 28S, 32SII, 48SX, 48GX, 50g, Prime

Avatar de l’utilisateur
C.Ret
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2243
Inscription : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: La suite des virgules

Message par C.Ret » 08 mai 2020 15:14

Danny a écrit :
08 mai 2020 11:27
Sympa cette petite suite ! C'est un truc connu, ou tu l'as inventée gege ? :)

J'essaie sur Prime... quelqu'un sait si c'est possible d'y "caster" un entier en chaîne de caractères ??
Ça m'a pas l'air possible, dommage ça éviterait pas mal d'opérations.
Oui est facile de "caster" des nombres sur l'HP Prime, voir STRING() et l'instruction faisant l'inverse EXPR()
Une fois sous forme de chaine de caractères, on eut utiliser RIGHT() MID() et LEFT() héhé.
SHARP PC-1211 + CE-121 + CE-122. | VIC 20 Commodore 128D + Printer P-803 + SD2iec. | TI-57 LCD | TI-74 BasiCalc | TI-92 II | HP-28S + HP82240A | HP-41C + (2 memory + stat + IR) modules. | HP Prime Wireless Graphing Calculator | HP-15C | CASIO fx-602p + FA-1. .Sommaire des M.P.O.. . Sommaire du P.C.T.M. .

Avatar de l’utilisateur
Danny
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 228
Inscription : 28 déc. 2013 17:34

Re: La suite des virgules

Message par Danny » 08 mai 2020 15:39

Mais naaaaan, comment j'ai pu louper ça !
Thanks 8)
Casio 3900p, 7000G, 6000G, 8500G, 9900GC
HP 35, 45, 65, 21, 25, 33E, 41CX, 42S, 28S, 32SII, 48SX, 48GX, 50g, Prime

Avatar de l’utilisateur
gege
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 6880
Inscription : 31 janv. 2008 15:24
Localisation : Banlieue Paârisienne
Contact :

Re: La suite des virgules

Message par gege » 08 mai 2020 16:38

Bonjour,
Il y a un petit malin dans ce fil !!! ;-)
Bravo à lui...
Je suis impressionné par votre travail.
A+
G.E.

Avatar de l’utilisateur
C.Ret
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2243
Inscription : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: La suite des virgules

Message par C.Ret » 09 mai 2020 08:13

Oui, beaucoup de travail mais peu de résultats spectaculaires. Les moteurs vrombissent, les pompes tournent, la tuyauterie vibrent, tout cela dans de grands bruits et fractas, mais le niveau ne monte pas. En tout cas pas encore assez d'astuces pour faire tourner cela sur une HP-19C

Je privilégie les machines imprimant le résultat ce qui permet d'avoir une trace des suites sans consommer des Mo de fichiers.
Mais mon algorithme basé à chaque élément sur la recherche systématique des 9 successeurs est fastidieux.
Je compte sur l'imagination et la pugnacité des membres du forum pour nous donner une idée géniale.

Je n'ose pas poster mon code pour HP-41C tellement il est lent et poussif :(
J'en ai un autre plus rapide pour HP-19C qui imprime directement, mais il y a une erreur de détermination du successeur tous les 5 cm de papier :(

Du coup, je laisse tourner l'HP Prime (qui elle ne sait pas imprimer) et j'ai donc les termes de la suite issue de 1 jusqu'à ses millionièmes termes quelques soient les embranchements suivis. C'est bien, mais j'aurais préférer avoir un p'tit code RPN des maison pour imprimer tout cela avec un HP-19C avant Noël :(

Pour info les millionièmes termes de la suite virgule issue de 1 sont 47854973 47625267 49308893 49308823 ou 47676838 selon le choix fait aux différentes bifurcations.

L'arrivée de la pluie me rends dépressif.
Je suis comme la suite des virgules issue de 3.
Dernière édition par C.Ret le 09 mai 2020 12:41, édité 1 fois.
SHARP PC-1211 + CE-121 + CE-122. | VIC 20 Commodore 128D + Printer P-803 + SD2iec. | TI-57 LCD | TI-74 BasiCalc | TI-92 II | HP-28S + HP82240A | HP-41C + (2 memory + stat + IR) modules. | HP Prime Wireless Graphing Calculator | HP-15C | CASIO fx-602p + FA-1. .Sommaire des M.P.O.. . Sommaire du P.C.T.M. .

Avatar de l’utilisateur
Danny
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 228
Inscription : 28 déc. 2013 17:34

Re: La suite des virgules

Message par Danny » 09 mai 2020 11:54

C.Ret a écrit :
09 mai 2020 08:13
J'en ai un autre plus rapide pour HP-19C qui imprime directement , mais il y a une erreur de détermination du successeur tous les 5 cm de papier :(
:lol:
C.Ret a écrit :
09 mai 2020 08:13
Du coup, je laisse tourner l'HP Prime (qui elle ne sait pas imprimer) et j'ai donc les termes de la suite issue de 1 jusqu'à ses millionièmes termes quelque soit les embranchements suivis.
Moi j'ai laissé la Prime tourner sur la suite issue de 20, pour voir si vraiment elle ne s'arrête jamais...
Là elle commence à fumer :mrgreen:
Casio 3900p, 7000G, 6000G, 8500G, 9900GC
HP 35, 45, 65, 21, 25, 33E, 41CX, 42S, 28S, 32SII, 48SX, 48GX, 50g, Prime

Répondre

Revenir vers « Tous les Pockets »