Forum

Gilles59

Super ! Il me semble qu'il y avait un programme d'Othello 6x6 qui utilisait cette interface dans un n° de "l'ordinateur de poche". En tout cas il y avait un article sur ce périphérique sur HP41. je me souviens que la photo avec le plateau d'Othello m'avait impressionné ! Sacré écosystème que celui de la HP41, c'est même dingue quand on y repense.

Gilles59

Comme dit plus haut, j'avais commandé une HP50g bleue au calculator store. Ne la recevant pas, j'ai demandé ce qu'il en était et suite erreur d'expédition elle a été envoyée à un autre Gilles de... Bordeaux en lieu et place d"une HP15c lol. Bon ça va s'arranger mais je me demande si ce Gilles ne fréquente pas silicium

Gilles59

Schraf a écrit : ↑22 mai 2023 19:25 N°57 : Palindromes par zPalm version APL

Page 2 de ce fil j'ai donné une version de ce MPO en APL classique en ajoutant "en fait je suis incapable de résoudre ce problème en une seule ligne", ce que je démens aujourd'hui :
Code : Tout sélectionner
MPO57 ← {⍵ = a ← ⍎∘⌽⍕ ⍵ : a ⋄ ∇ ⍵ + a} 

      MPO57 167
88555588
:O Je ne comprends (encore) rien mais j'adore

Gilles59

j'étais passé à coté de cet article ... Après avoir lu les premiers posts et quelques vidéos d'initiations, je pense qu'il y a besoin de quelques heures pour déchiffrer ces hiéroglyphes mais j'ai trouvé ma Pierre de Rosette ;D

Gilles59

Over_score a écrit : ↑22 mai 2023 11:09 Ah oui ! Je me souviens très bien de ça !
Mais pour moi, c'était la sommielle, je me trompe peut-être.

Fort possible. Je vais vérifier. En plus il doit y avoir plein de choses sympas pour nourrir nos ordi de poche dans les articles de l’époque.

Gilles59

Gilles59 a écrit : ↑21 mai 2023 20:24
gege a écrit : ↑13 juil. 2022 19:51 Bonjour,
Un nombre triangulaire compte les boules formant un triangle, par exemple :
*
**
***
****
*****
Total : 15 = T(5).
Dans les (très) vieux Science & Vie, dans la rubrique "jeu" Pierre Berloquin appelait ça une "somnielle" si je me souviens bien et la représentait par un '?' à l'image du '!' de la factorielle. On peut l'écrire avec une boucle ou récursivement comme la factorielle. Même algo en remplaçant * par +. Ou beaucoup plus simplement en relisant tout le sujet ;D

Gilles59

gege a écrit : ↑13 juil. 2022 19:51 Bonjour,
Un nombre triangulaire compte les boules formant un triangle, par exemple :
*
**
***
****
*****
Total : 15 = T(5).

Dans les (très) vieux Science & Vie, dans la rubrique "jeu" Pierre Berloquin appelait ça une "somnielle" si je me souviens bien et la représentait par un '?' à l'image du '!' de la factorielle. On peut l'écrire avec une boucle ou récursivement comme la factorielle. Même algo en remplaçant * par +

Gilles59

J'ai mis quelques secondes à comprendre ce qu'était la touche 33

Gilles59

FLISZT a écrit : ↑21 mai 2023 15:44 (…)Ceci doit permettre d'obtenir les A(4,20) = (8 ! / (8 − 4)! ) = 116 280 arrangements possibles :
Code : Tout sélectionner
<<
	{ 20 20 35 36 ... 70 80 80 }
	4
	<< >>
	DOPERM
>>
Sauf que…

… avec une liste de seulement 8 éléments, après le prog suivant on obtient une liste contenant 1 680 sous-listes (de 4 élts), laquelle pèse 25 205 octets.

Donc avec une liste contenant 69,2 fois (116 280 / 1 680) plus de sous-listes de 4 élts, il faudrait une RAM de plus 1 744 546 octets…
Les plus de 233 300 octets encore disponibles ne suffisent pas. (…)

Il suffit de filtrer les sous-listes générées « au vol ». En fait le pb n’est pas la mémoire mais la vitesse.

Code : Tout sélectionner

 <<
	{ 1 2 3 4 5 6 7 8 }
	4
	<< filtrer ici ce qu’on veut garder dans la liste finale; le filtre se fait "au vol" (avant de générer tous les résulats)  >>
	DOPERM
>>

C’est que je fais pour ce MPO dans un prog posté au dessus. Mais ça met 20mn avec l’émulateur et est inexploitable sur une hp50g

Par exemple avec DOCOMB qui est comme DOPERM mais sans permutation le programme suivant donne rapidement toutes les sous listes de 4 éléments qui donnent un total de 12 :

Code : Tout sélectionner

<<
	{ 1 2 3 4 5 6 7 8 }
	4
	<< IF DUP LSUM 12 <> THEN DROP END >>
	DOCOMB 
>>

Resultat : { { 1 2 3 6 } { 1 2 4 5 } }

EDIT : LSUM est équivalent de ∑LIST et corrige le bug quand il n'y a qu'un élément dans la liste. Plus rapide aussi.

Le même programme avec DOPERM plutôt que DOCOMB donne :

Code : Tout sélectionner

{ { 1 2 3 6 } { 1 2 6 3 } { 1 3 2 6 } { 1 3 6 2 } { 1 6 2 3 } { 1 6 3 2 } { 2 1 3 6 } { 2 1 6 3 } { 2 3 1 6 } { 2 3 6 1 } { 2 6 1 3 } { 2 6 3 1 } { 3 1 2 6 } { 3 1 6 2 } { 3 2 1 6 } { 3 2 6 1 } { 3 6 1 2 } { 3 6 2 1 } { 6 1 2 3 } { 6 1 3 2 } { 6 2 1 3 } { 6 2 3 1 } { 6 3 1 2 } { 6 3 2 1 } { 1 2 4 5 } { 1 2 5 4 } { 1 4 2 5 } { 1 4 5 2 } { 1 5 2 4 } { 1 5 4 2 } { 2 1 4 5 } { 2 1 5 4 } { 2 4 1 5 } { 2 4 5 1 } { 2 5 1 4 } { 2 5 4 1 } { 4 1 2 5 } { 4 1 5 2 } { 4 2 1 5 } { 4 2 5 1 } { 4 5 1 2 } { 4 5 2 1 } { 5 1 2 4 } { 5 1 4 2 } { 5 2 1 4 } { 5 2 4 1 } { 5 4 1 2 } { 5 4 2 1 } }

Gilles59

On attends cela avec impatience C.ret ;D

J'ai en tête un algo bien plus simple qu'une recherche brute, mais c'est le % de tolérence qui me bloque.

Pour tout dire, si j'étais Michel, j'essairai de tranformer les tpi en pas metrique et verrait ce qui est le plus proche sur le tableau et calculerai le % d'err, mais j'ai un peu la flemme de reféchir ce jour ;D Comme disait ma prof de physique, lire et relire l'énoncé est la clé.

EDIT : J'ai vu ton indice c.ret, c'est mon idée aussi mais quid du % d'erreur ?

Gilles59

Rien de bien nouveau sauf à dire que :

Code : Tout sélectionner

« [ 3 4 1 9 ] SWAP PEVAL »

fonctionne logiquement en newRPL.

Taille : 56 octets newRPL versus 33 octets en HP RPL (mais on dispose de ~ 410Ko sur HP50g en newRPL contre ~250Ko en HP RPL sur une HP50g)
1000 boucles de ce calcul prennent 40 sec en RPL contre ... 0.156s en newRPL (256 x plus vite connecté en USB, 0,506 sur piles ce qui est logique car par les premières 500ms de tout programme sont à vitesse lente pour économiser les piles. On peut forcer en changeant le FLAG -103 )

Gilles59

Schraf a écrit : ↑20 mai 2023 09:41 @Gilles59 : Ma proposition pour ton LDROP :
Code : Tout sélectionner
«
  1 + :A=S1 DROP OBJ→ :POP.A.#1 1 - →LIST
»
(...)

Ah oui, le NewRPL contient aussi un pseudo assembleur intégré :O J'ai jamais testé encore ! A voir si c'est plus rapide ? vais tester.
Edit : plus compact mais pas plus rapide dans ce cas. Le traitement des listes est probablement ce qui a accéléré le plus en NewRPL. Pas fait de test précis mais du genre 100 à 200 fois plus vite.

A propos de ce MPO, un programme récursif serait probablement bien plus compact en évitant les 4 boucles imbriquées.

Gilles59

Je suis assez étonné que tout cela soit rentable même si les prix sont assez élevés avec un volume de vente que j'imagine assez restreint.
Tant mieux ;D

Gilles59

Pour le NewRPL le lien que tu cites est le bon avec celui-ci en plus :
https://www.hpmuseum.org/forum/thread-14562.html
Claudio qui gère le newRPL est très réactif sur ce lien si question.

Pour les échanges entre la HP50g et le PC je fais comme ça :
1/ Sur PC installer "newRPL Desktop for Windows" (voir dans lien ci-dessus)
2/ La connexion avec la HP50g est hyper simple : la brancher sur le port USB du PC et coté newRPL Desktop cliquez sur Hardware/USBConnexion et logiquement le HP50g apparait
3/ Le transfert entre NotePad++ et le newRPL desktop se fait par un copier-coller du code avec le menu coté PC Stack/Paste to level1 (ou Paste and compile). Le newRPL utilise un codage UTF donc plus de soucis sur les caractères spéciaux qui sont compatibles Windows (ou Linux)
4/ La commande USBSEND envoie l'objet qui au niveau 1 de la pile vers la HP50g (en inversement)

Voilà en gros. Je vais rouvrir un sujet spécifique newRPL. Ce qui est compliqué au début c'est l'interface très destabilisante versus RPL HP. Il a un certains nombre de raccourcis clavier à retenir dont certains géniaux (mais si) pour le format des nombres par exemple : voir https://newrpl.wiki.hpgcc3.org/doku.php ... x:bindings
La gestion des unités est extra aussi...

Gilles59

NewRpl, force brute :

LDROP @ Supprimer un élement d'une liste

Code : Tout sélectionner

«
 → L n
 «
   L 1 n 1 - SUB
   L n 1 + 20 SUB
   ADD 
 »
»

MPO117

Code : Tout sélectionner

« 25.4 SWAP / → Mm
 «
  {} 'Sol' LSTO @ Les solutions
  { 20 20 30 35 36 40 40 40 42 45 48 50 50 54 57 60 60 70 80 80 } 'N1' LSTO
 
  1 20 FOR a
    N1 a GET 'Na' LSTO
    N1 a LDROP 'N2' LSTO
    1 19 FOR b 
      N2 b GET 'Nb' LSTO
      Na Nb + DUP
      IF 75 > THEN
        IF 160 < THEN
          N2 b LDROP 'N3' LSTO
          1 18 FOR c
              N3 c GET 'Nc' LSTO
              N3 c LDROP 'N4' LSTO
              1 17 FOR d
                N4 d GET 'Nd' LSTO
                Nc Nd + DUP
                IF 84 > THEN
                  IF 140 < THEN 
                       Na Nb / Nc Nd / * 1.5 * 'r' LSTO
			r Mm - Mm / ABS '%Err' LSTO
                    IF  %Err 0.005 < THEN
                      Na Nb Nc Nd  r 1_mm * %Err 100 * 6 →LIST
		      IF Sol OVER POS NOT THEN 1 →LIST 'Sol' SADD ELSE DROP END
                    END
                  END
                ELSE
                  DROP
                END 
              NEXT
           NEXT
        END 
      ELSE
        DROP
      END
    NEXT
  NEXT
  Sol LIST→ " Solutions" + 
 » 
»

: mpo117.png (13.19 Kio) Vu 2160 fois

Nota RPL vs NewRPL :
- LSTO est une nouvelle commande pour gérer simplement les varaiables locales
- pour les listes les commande + et ADD sont inversées ce qui est logique mais perd la compatibilité
- On peut utiliser NotePad++ ou autre pour écrire le programme
- La version PC NewRPL est une version compilée pas un émulateur
- Les échanges PC <-> HP50g se font facilement avec les commandes USBSEND
- C'est _infiniment_ plus rapide que le RPL HP

Forum

1590 résultats trouvés

Re: Interface vidéo HP 82163

Re: HP-15C - Saison 3

Re: Misez p'tit Optimisez en version APL

Re: Misez p'tit Optimisez en version APL

Re: MPO n°111 : Nombres triangulaires et poissons du lac de Tibériade

Re: MPO n°111 : Nombres triangulaires et poissons du lac de Tibériade

Re: MPO n°111 : Nombres triangulaires et poissons du lac de Tibériade

Re: L'annonce la plus drôle

Re: MPO n°117 : le problème du tourneur

Re: MPO n°117 : le problème du tourneur

Re: Misez p'tit, Optimisez - Le retour

Re: MPO n°117 : le problème du tourneur

Re: DM32 sample unboxing

Re: MPO n°117 : le problème du tourneur

Re: MPO n°117 : le problème du tourneur