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 du membre
bernouilli92
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 5226
Enregistré le : 21 nov. 2012 13:03
Localisation : Ile de France

Re: La suite des virgules

Message par bernouilli92 »

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 du membre
pir2
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4642
Enregistré le : 31 oct. 2006 15:08
Localisation : 67310 Westhoffen
Contact :

Re: La suite des virgules

Message par pir2 »

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 du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: La suite des virgules

Message par C.Ret »

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) Vu 8437 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) Vu 8437 fois
et parfois aucun,
PokEmul SHARP PC-1350 vigule 927.gif
PokEmul SHARP PC-1350 vigule 927.gif (46.36 Kio) Vu 8437 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.
Modifié en dernier par C.Ret le 08 mai 2020 09:27, 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 suite des virgules

Message par dprtl »

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.
Modifié en dernier par dprtl le 10 mai 2020 22:36, modifié 1 fois.
Avatar du membre
pir2
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4642
Enregistré le : 31 oct. 2006 15:08
Localisation : 67310 Westhoffen
Contact :

Re: La suite des virgules

Message par pir2 »

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 du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: La suite des virgules

Message par C.Ret »

pir2 a écrit : 08 mai 2020 08:11
dprtl a écrit : 08 mai 2020 01:00J'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) Vu 8436 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) Vu 8436 fois
(Merci à remy pour son indispensable PokEmul).
Modifié en dernier par C.Ret le 08 mai 2020 11:55, 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
Danny
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1248
Enregistré le : 28 déc. 2013 16:34

Re: La suite des virgules

Message par Danny »

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.
? Apple, Atari, Canon, Casio, ????????????, HP, Psion, Sharp, Tandy... même TI.
Avatar du membre
dprtl
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 463
Enregistré le : 27 janv. 2013 00:26
Localisation : Strasbourg
Contact :

Re: La suite des virgules

Message par dprtl »

C.Ret a écrit : 08 mai 2020 10:23
pir2 a écrit : 08 mai 2020 08:11
dprtl a écrit : 08 mai 2020 01:00J'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 du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: La suite des virgules

Message par C.Ret »

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) Vu 8402 fois
On obtient alors les suites suivantes:
Same virgulesuite sample.gif
Same virgulesuite sample.gif (133.25 Kio) Vu 8421 fois
Modifié en dernier par C.Ret le 08 mai 2020 15:18, 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
Danny
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1248
Enregistré le : 28 déc. 2013 16:34

Re: La suite des virgules

Message par Danny »

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) Vu 8416 fois
J'aimerais quand même bien trouver un moyen de caster des entiers en chaînes, sur la Prime... :| :)
? Apple, Atari, Canon, Casio, ????????????, HP, Psion, Sharp, Tandy... même TI.
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: La suite des virgules

Message par C.Ret »

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 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
Danny
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1248
Enregistré le : 28 déc. 2013 16:34

Re: La suite des virgules

Message par Danny »

Mais naaaaan, comment j'ai pu louper ça !
Thanks 8)
? Apple, Atari, Canon, Casio, ????????????, HP, Psion, Sharp, Tandy... même TI.
Avatar du membre
gege
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 7141
Enregistré le : 31 janv. 2008 14:24
Localisation : Banlieue Paârisienne
Contact :

Re: La suite des virgules

Message par gege »

Bonjour,
Il y a un petit malin dans ce fil !!! ;-)
Bravo à lui...
Je suis impressionné par votre travail.
A+
G.E.
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: La suite des virgules

Message par C.Ret »

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.
Modifié en dernier par C.Ret le 09 mai 2020 12:41, 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
Danny
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1248
Enregistré le : 28 déc. 2013 16:34

Re: La suite des virgules

Message par Danny »

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:
? Apple, Atari, Canon, Casio, ????????????, HP, Psion, Sharp, Tandy... même TI.
Répondre

Retourner vers « Tous les Pockets »