1590 résultats trouvés

par Gilles59
07 sept. 2023 12:05
Forum : Tous les Pockets
Sujet : Une devinette
Réponses : 50
Vues : 4348

Re: Une devinette

Schraf a écrit : 05 sept. 2023 14:14 Mais comme il semblerait que les décimales de 𝝅 soient uniformément distribuées, je dis qu'un randint(0,9) à partir de la 12e fera bien l'affaire pour avoir ensuite autant de décimales que l'on voudra... 😝
Ce cours programme newRPL (+ library LstX) donne quasi instantanément la répartition des 1900 première décimales de PI

Code : Tout sélectionner

« 1902 SETPREC π →NUM FP 1 900 ALOG * I→NL SORT LRPCT »
Soit :

Code : Tout sélectionner

{
  { 0   1   2   3   4   5   6   7   8   9   }
  { 173 205 199 178 184 197 188 183 194 199 }
}
Je me demande si mon programme est correct car il y quand même des écarts de distribution assez significatifs? Mais toutes ces maths sont très loin de moi lol
par Gilles59
07 sept. 2023 11:48
Forum : Tous les Pockets
Sujet : Une devinette
Réponses : 50
Vues : 4348

Re: Une devinette

C.Ret a écrit : 06 sept. 2023 09:49
Sur Ti-58c, veiller à placer l'engin en mode degré puis afficher le résultat du calcul suivant Image en effectuant par exemple la séquence suivante :
Décimales 58_ _68 de PI sur Programmable 58c.gif(...)
J'avoue que je n'ai jamais bien compris l'intérêt de ce genre de chose. En fait c'est plus compliqué qu'un "programme" qui se contenterait juste d'afficher les 10 décimales concernée.
par Gilles59
07 sept. 2023 11:39
Forum : Tous les Pockets
Sujet : Decodeur Mastermind
Réponses : 15
Vues : 7426

Re: Decodeur Mastermind

Pyjam a écrit : 06 sept. 2023 22:04 Un seul coup, c’est vraiment du bol, mais 2 coups ce n’est pas si rare, parce que parfois on obtient une très bonne réponse au premier essai et il n’y a pas tellement de choix pour le second coup.

1234 : 2 Noirs 2 Blancs
1243 : Gagné !
Il faut quand même de la chance pour trouver dès le second coup (1 chance sur 6 sauf erreur). Mais au 3ieme on doit être sur à 100% ( à voir...)
par Gilles59
06 sept. 2023 21:37
Forum : Tous les Pockets
Sujet : Decodeur Mastermind
Réponses : 15
Vues : 7426

Re: Decodeur Mastermind

Pyjam a écrit : 06 sept. 2023 21:30 À mon avis, ce sera inférieur à 4.
Quand je testais mon programme de MasterMind pour DM42 (posté ici) avec les valeurs de base, il m’est arrivé de trouver en 1 coup. :lol: Dommage, c’était pas un loto.
Oui tu as peut-être raison...Les coups de bol vont plus faire baisser la moyenne que les coups de "pas de bol" ne vont la faire monter. Trop HS du boulot ce soir pour tester. En fait il faudrait la moyenne, le meilleur gain, le pire et l'écart type MDR.

Sur ta remarque Zebulon : je pense au contraire que l'ordi sera très fort... Un des premiers jeux ou l'ordi a été champion du monde c'est le Backgammon parceque le calcul des probabilités joue un rôle majeur et qu'il n'y a pas besoin de voir beaucoup de coups à l' avance. Ca peut paraitre contre intuitif parce qu'on se dit qu'il y a du hasard. Mais pour qui connait le backgammon, savoir quand accepter ou proposer de doubler, quand choisir une stratégie n'est pas du tout évident. Bon c'est juste une intuition. [ un exemple type accessible aux petites machines est le NotOne. Voir la Gazette n° 10 http://silicium.org/site/index.php/tele ... icaires-10 ]

Au passage je n'ai pas évoqué les temps de réponse, mais c'est 2,5 sec (environ ca varie un peu) au premier coup et ensuite instantané (ou quasi).
Avec des version de Mastermind plus complexes ca devient chaud en temps de réponse (au moins au second coup) et j'ai remarqué que les listes en newRPL sont limitées à 32768 éléments
par Gilles59
06 sept. 2023 21:21
Forum : Tous les Pockets
Sujet : Decodeur Mastermind
Réponses : 15
Vues : 7426

Re: Decodeur Mastermind

Pyjam a écrit : 03 sept. 2023 21:16 Est-ce que tu as des stats sur le nombre moyen de coups nécessaires pour trouver la solution ?
Vais faire un test auto sur 1000 essais encodeur/decodeur. A vu de nez je dirais un peu plus de 4. Tres rarement 3, rarement 5, souvent 4. Exceptionnellement plus de 5.
J'imagine que pour faire mieux il faudrait faire le choix de la combinaison qui élimine le plus de prossibilités à chaque tour plutot que de la choisir au hasard (si une telle stratégie existe ? car comment savoir ce qui élimine le plus de possibilités sans connaitre la solution ?)
par Gilles59
06 sept. 2023 21:12
Forum : Tous les Pockets
Sujet : HP-41: Nouveau bloc de piles rechargeables bientôt disponible.
Réponses : 24
Vues : 3018

Re: HP-41: Nouveau bloc de piles rechargeables bientôt disponible.

joel_Ibiza a écrit : 06 sept. 2023 12:42
Gilles59 a écrit : 17 août 2023 18:17 Je craquerai absolument pour ce genre de chose pour la HP50g si ca sort un jour ;D
La HP 50 comme celles de sa génération fonctionne sur usb, un câble et une "powerbank" suffisent.(mais pas de possibilité de charger les piles)
En effet, mais on perd en portabilité.
par Gilles59
03 sept. 2023 20:59
Forum : Tous les Pockets
Sujet : Une devinette
Réponses : 50
Vues : 4348

Re: Une devinette

Ha j vais pouvoir tester alors ;D Je suis etonné des 18 chiffres significatifs :geek:
PS : l'astuce à laquelle je pensais ne fonctionne pas... je sèche ...
par Gilles59
03 sept. 2023 20:43
Forum : Tous les Pockets
Sujet : Decodeur Mastermind
Réponses : 15
Vues : 7426

Decodeur Mastermind

Les programmes qui permettent de jouer au Mastermind sont légions. je vous propose ici un programme qui joue le rôle du décodeur ce qui est plus original. Je me souviens que j'avais essayé de faire çà sur ma casio 502P il y a fort longtemps et sans grand succès me semble-t-il.

C'est évidemment plus facile sur une calculatrice plus récente et puissante. Le programme ci-dessous est en newRPL, il est très rapide et efficace. C'est la version classique à 4 trous et 6 couleurs (ici des chiffres de 1 à 6). Il utilise la library LstX téléchargeable ci https://www.hpmuseum.org/forum/thread-20345.html.

Voici le programme, à copier sur le niveau 1 de la pile, puis 'Master' STO par exemple (ça crée le répertoire Master) :

Code : Tout sélectionner

DIRECTORY
'Init' « 1 6 LSEQR 4 NDUPN →LIST LCPRD 'Pool' STO 0 'Try' STO Guess »
'Guess' 
 « IF Try TYPE 62 == THEN 
     DUP  { 'GP' 'WP' } STO 
	 Pool 
	 « IF DUP Try == ΣLIST GP == THEN 
	     IF Try SWAP LINCL SIZE GP - WP == THEN 1 ELSE 0 END
	   ELSE DROP 0 END
	 » LFILT 'Pool' STO
   END
   Pool DUP SIZE RAND * 1 + IP GET DUP 'Try' STO 
 »
ENDDIR
Choisir "Init", pour commencer, la HP propose une combinaison. On lui précise en retour le nombre de "pions" bien placés et mal placés sous la forme d'une liste de deux chiffres { Nbr_bien_placé Nbr_mal_placé } puis presser 'Guess'. Ceci jusqu'à ce que la bonne solution soit trouvée ce qui arrive très vite.

L'algorithme est très simple : Après appui sur 'Init' la HP génére toutes les solutions possible dans la variable 'Pool' (produit cartésien LCPRD) . Elle en propose une au hasard. Après la reponse elle supprime (LFILT) toutes les solutions impossible en testant tous les coups et en comparant si ils sont cohérents avec la réponse donnée. Elle propose alors une solution au hasard parmi celle qui reste. Et elle recommence.... De fait c'est diablement efficace !
par Gilles59
03 sept. 2023 18:20
Forum : Tous les Pockets
Sujet : Une devinette
Réponses : 50
Vues : 4348

Re: Une devinette

ledudu a écrit : 03 sept. 2023 13:28 Je n’ai que mon iPhone sous la main.
J’ai vérifié par curiosité: Il me donne 33 décimales exactes de pi (en soustrayant peu à peu la partie gauche).
Ça ne doit pas servir tous les jours…
La version iPhone donne plus de décimales. Une telle précision ne sert pas tous les jours en effet. Le newRPL calcule jusque 2000 chiffres significatifs. L'intérêt est limité en effet.

Je suis curieux du résultat de la devinette n'utilisant pas ces machines. J'ai bien une idée mais la garde (c'est le cas de le dire) pour moi
par Gilles59
29 août 2023 11:46
Forum : Tous les Pockets
Sujet : Casio SL-800 : combien de versions ?
Réponses : 5
Vues : 1002

Re: Casio SL-800 : combien de versions ?

ledudu a écrit : 29 août 2023 02:45 Merci à epopy de clarifier un sujet obscur pour lequel j'ai toujours eu un peu de mal à me passionner pour les machines ni programmables, ni scientifiques.
Pour ces modèles, mon inventaire n'est donc pas exhaustif.
Cette calc est quand même surprenante et innovante pour l’époque. J’ai trouvé cette excellente vidéo

https://youtu.be/rdGnaz6FRfk?si=9nPj8escQB_uDSxW
par Gilles59
23 août 2023 22:43
Forum : Tous les Pockets
Sujet : Proto hp38 sur hp48gx
Réponses : 17
Vues : 6302

Re: Proto hp48

Sympa !

En parlant de proto, j'ai failli en avoir un (enfin plutôt une pré-version) de la PRIME. Ce qui était intéressant c'est que la clavier avait des couleurs totalement différentes et hyper lisibles par rapport à la premiere version commercialisée sortie (qui est une cata absolue coté lisibilité (couleur imposée par le marketing (!), heureusement corrigé depuis). J'avais une photo mais je ne retrouva plus. Sommage qu'elle ne soit pas sortie comme cela. Donc si vous voyez un jour une PRIME avec des note de vert bouteille sur le clavier ne soyez pas étonné, vous n'avez pas bu... Mais c'est vraiment une toute toute petite pré-série.
par Gilles59
20 août 2023 23:07
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°120 : Les 4 opérations
Réponses : 20
Vues : 2671

Re: Misez p'tit, Optimisez - N°120 : Les 4 opérations

A une époque j'avais essayé de détourner les intructions MATCH pour faire un genre de grammaire, car ça permet de repérer des "motifs" dans des structures logiques (avec une syntaxe qui inclut des & comme un genre de méta-données si je me souviens) . Mais c'est quand même fait pour des structures algébriques et il y a un pb de compatibilité avec la 50g (j'ai oublié lequel). Je vais m'y repencher un peu.

Concernant STR→ ca fonctionne en fait comme un compilateur (à partir de 49 en tout cas) ;D On peut faire des programmes qui créent des programmes comme çà ;D On peut aussi tester : "a 5 +" STR→ ou " 1 9 FOR i i NEXT " STR→

PS : Comment faire pour être invité par le consul de Rome ? ;D Ah oui mais c'est pas à Rome ?
par Gilles59
19 août 2023 22:07
Forum : Tous les Pockets
Sujet : Bibliothèque de gestion des listes en newRPL
Réponses : 6
Vues : 2197

Re: Bibliothèque de gestion des listes en newRPL

J'ai créé un sujet LstX sur HPMUSEUM qui est mis à jour avec la dernière version en date de LstX pour newRPL.
Il y a quelques ajouts majeurs dans la dernière version. Après beaucoup d'utilisation et de tests (en particulier le défi turing pour ceux qui connaissent), je n'ai pas remarqué de bugs.

Par contre, il y a un truc génant que je n'avais pas encore remarqué en newRPL : les opérateurs de comparaison ( < > >= <= ) ne fonctionnent pas sur des chaines. J'ai donc du les recréer en newRPL mais j'espère que Claudio trouvera le temps et l'énergie pour intégrer cela...

Ca se passe là https://www.hpmuseum.org/forum/thread-20345.html
par Gilles59
18 août 2023 23:02
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°120 : Les 4 opérations
Réponses : 20
Vues : 2671

Re: Les 4 opérations.

MAC efface toutes les Mémoires (Memory AC ?)
SAC efface les mémoires Statistiques (MR07, 08 et 09)

Ça permet ici de gagner un pas pour initialiser à zéro la MR07… Il n'y pas pas moyen d'initialiser les nombres aléatoires sur la 602. Peut-être un POKE bien placé sur la 603P le peut?

Il est vrai que la 602P est très rapide pour son époque. Plus qu'une HP41 et beaucoup plus que les TI de l'époque. la 603 est 4 fois plus rapide encore.

Bon ma seule expérience avec la 15C est le modèle LE très rapide. J’adore le format et la manipulation physique de cette machine par contre l’absence totale de mode alpha pour écrire les programmes me bloque, bref elle dort dans le placard :\

MP lu et modif faite ;D
par Gilles59
18 août 2023 19:07
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°120 : Les 4 opérations
Réponses : 20
Vues : 2671

Re: Les 4 opérations.

Bien vu C.RET !

C'est l'algorithme que j'ai choisi sur 501->603P J'ai même un peu amélioré pour descendre à 28 pas :

Code : Tout sélectionner

*** P0
SAC
LBL0
  RAN# * 4 = X↔M07 Min06
  IND MR06 IND X↔M07 IND Min06
  MRF - MR00 + MR01 = / MR02 * MR03 = 
X=F HLT GOTO0
Mettre 3479175 dans MRF, et les 4 autres nombres dans les mémoires 0 à 3
Lancer P0

La solution est alors dans MR00 MR01 MR02 et MR03.

A noter que contrairement à la 15C "historique" avec le programme de C.RET ci dessus la solution est trouvée en quelques secondes au mieux et quelques dizaines de secondes au pire. C'est même quasi instantané sur la 603P. Dû à la vitesse de la machine ou à l'algorithme un peu différent ?

Edit : je ne comprends pas le programme de 15c et la multiplication par 3, alors qu'il me semble qu'il faut multiplier par 4 ? ;D En toute logique , la solution devrait être trouvée en moyenne après 12 boucles, j'ai du mal à comprendre que ce soit si lent sur la 15c... Si l'adressage indirect se fait par l'entier le plus proche (sur 602 c'est sur la partie entière) , alors ca pose pb pour les mémoire 0 et 3 non ? le programme ne perd-il pas du temps à trop swapper les mémoire 1 et 2 au détriment des 0 et 3 ?

Re edit : je crois que j'ai compris. Tu utilises la mémoire 3 comme pivot, alors que j'échange aléatoirement le contenu de deux mémoires entre 0,1,2 et 3 à chaque boucle (enfin presque ...) . Ca fait un bon exercice pour comprendre si ca change quelque chose ou pas en nombre moyen de boucles pour trouver la solution.

Aller à la recherche avancée