La suite des virgules
Modérateur : Politburo
- bernouilli92
- Fonctionne à 14400 bauds
- Messages : 5230
- Enregistré le : 21 nov. 2012 13:03
- Localisation : Ile de France
Re: La suite des virgules
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.
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
- pir2
- Fonctionne à 9600 bauds
- Messages : 4642
- Enregistré le : 31 oct. 2006 15:08
- Localisation : 67310 Westhoffen
- Contact :
Re: La suite des virgules
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.
Si j'ai le courage je m'y remets demain, mais en utilisant des registres mémoire pour commencer.
- C.Ret
- Fonctionne à 9600 bauds
- Messages : 3405
- Enregistré le : 31 mai 2008 23:43
- Localisation : N 49°22 E 6°10
Re: La suite des virgules
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:
et je me suis rendu compte qu'il pouvait y avoir des valeurs pour lesquelles il y avait deux successeurs et parfois aucun, 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.
- dprtl
- Fonctionne à 1200 bauds
- Messages : 463
- Enregistré le : 27 janv. 2013 00:26
- Localisation : Strasbourg
- Contact :
Re: La suite des virgules
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 !
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.
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
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.
- pir2
- Fonctionne à 9600 bauds
- Messages : 4642
- Enregistré le : 31 oct. 2006 15:08
- Localisation : 67310 Westhoffen
- Contact :
Re: La suite des virgules
Un GOTO pour sortir d'une boucle FOR ???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 :
Il affiche ceci sur Casio Z1 (ou PB1000, ou autre Casio compatible) :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
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.
- C.Ret
- Fonctionne à 9600 bauds
- Messages : 3405
- Enregistré le : 31 mai 2008 23:43
- Localisation : N 49°22 E 6°10
Re: La suite des virgules
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): Et le résultat inéluctable d'un GOTO dans une boucle FOR TO STEP / NEXT. (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.
Re: La suite des virgules
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.
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.
- dprtl
- Fonctionne à 1200 bauds
- Messages : 463
- Enregistré le : 27 janv. 2013 00:26
- Localisation : Strasbourg
- Contact :
Re: La suite des virgules
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) :
- C.Ret
- Fonctionne à 9600 bauds
- Messages : 3405
- Enregistré le : 31 mai 2008 23:43
- Localisation : N 49°22 E 6°10
Re: La suite des virgules
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:
On obtient alors les suites suivantes:
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.
Re: La suite des virgules
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.
- C.Ret
- Fonctionne à 9600 bauds
- Messages : 3405
- Enregistré le : 31 mai 2008 23:43
- Localisation : N 49°22 E 6°10
Re: La suite des virgules
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.
Re: La suite des virgules
Mais naaaaan, comment j'ai pu louper ça !
Thanks
Thanks
? Apple, Atari, Canon, Casio, ????????????, HP, Psion, Sharp, Tandy... même TI.
- gege
- Fonctionne à 14400 bauds
- Messages : 7141
- Enregistré le : 31 janv. 2008 14:24
- Localisation : Banlieue Paârisienne
- Contact :
Re: La suite des virgules
Bonjour,
Il y a un petit malin dans ce fil !!!
Bravo à lui...
Je suis impressionné par votre travail.
A+
G.E.
Il y a un petit malin dans ce fil !!!
Bravo à lui...
Je suis impressionné par votre travail.
A+
G.E.
- C.Ret
- Fonctionne à 9600 bauds
- Messages : 3405
- Enregistré le : 31 mai 2008 23:43
- Localisation : N 49°22 E 6°10
Re: La suite des virgules
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.
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.
Re: La suite des virgules
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
? Apple, Atari, Canon, Casio, ????????????, HP, Psion, Sharp, Tandy... même TI.