1590 résultats trouvés
- 02 juin 2023 12:11
- Forum : Tous les Pockets
- Sujet : Interface vidéo HP 82163
- Réponses : 25
- Vues : 4204
Re: Interface vidéo HP 82163
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.
- 29 mai 2023 20:37
- Forum : Tous les Pockets
- Sujet : HP-15C - Saison 3
- Réponses : 156
- Vues : 104810
Re: HP-15C - Saison 3
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
- 24 mai 2023 17:42
- Forum : Emulateurs
- Sujet : Misez p'tit Optimisez en version APL
- Réponses : 61
- Vues : 57266
Re: Misez p'tit Optimisez en version APL
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 :
:O Je ne comprends (encore) rien mais j'adoreCode : Tout sélectionner
MPO57 ← {⍵ = a ← ⍎∘⌽⍕ ⍵ : a ⋄ ∇ ⍵ + a} MPO57 167 88555588
- 24 mai 2023 17:41
- Forum : Emulateurs
- Sujet : Misez p'tit Optimisez en version APL
- Réponses : 61
- Vues : 57266
Re: Misez p'tit Optimisez en version APL
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
- 22 mai 2023 11:56
- Forum : Tous les Pockets
- Sujet : MPO n°111 : Nombres triangulaires et poissons du lac de Tibériade
- Réponses : 57
- Vues : 14980
Re: MPO n°111 : Nombres triangulaires et poissons du lac de Tibériade
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.
- 22 mai 2023 10:54
- Forum : Tous les Pockets
- Sujet : MPO n°111 : Nombres triangulaires et poissons du lac de Tibériade
- Réponses : 57
- Vues : 14980
Re: MPO n°111 : Nombres triangulaires et poissons du lac de Tibériade
Gilles59 a écrit : ↑21 mai 2023 20:24Dans 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
- 21 mai 2023 20:24
- Forum : Tous les Pockets
- Sujet : MPO n°111 : Nombres triangulaires et poissons du lac de Tibériade
- Réponses : 57
- Vues : 14980
Re: MPO n°111 : Nombres triangulaires et poissons du lac de Tibériade
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 +
- 21 mai 2023 18:59
- Forum : Général
- Sujet : L'annonce la plus drôle
- Réponses : 4311
- Vues : 1685747
Re: L'annonce la plus drôle
J'ai mis quelques secondes à comprendre ce qu'était la touche 33
- 21 mai 2023 16:59
- Forum : Tous les Pockets
- Sujet : MPO n°117 : le problème du tourneur
- Réponses : 27
- Vues : 4261
Re: MPO n°117 : le problème du tourneur
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.FLISZT a écrit : ↑21 mai 2023 15:44 (…)Ceci doit permettre d'obtenir les A(4,20) = (8 ! / (8 − 4)! ) = 116 280 arrangements possibles :Sauf que…Code : Tout sélectionner
<< { 20 20 35 36 ... 70 80 80 } 4 << >> DOPERM >>
… 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. (…)
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
>>
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 } }
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 } }
- 20 mai 2023 17:44
- Forum : Tous les Pockets
- Sujet : MPO n°117 : le problème du tourneur
- Réponses : 27
- Vues : 4261
Re: MPO n°117 : le problème du tourneur
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 ?
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 ?
- 20 mai 2023 12:16
- Forum : Tous les Pockets
- Sujet : Misez p'tit, Optimisez - Le retour
- Réponses : 49
- Vues : 30812
Re: Misez p'tit, Optimisez - Le retour
Rien de bien nouveau sauf à dire que :
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 )
Code : Tout sélectionner
« [ 3 4 1 9 ] SWAP PEVAL »
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 )
- 20 mai 2023 10:12
- Forum : Tous les Pockets
- Sujet : MPO n°117 : le problème du tourneur
- Réponses : 27
- Vues : 4261
Re: MPO n°117 : le problème du tourneur
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.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 »
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.
- 19 mai 2023 23:18
- Forum : Tous les Pockets
- Sujet : DM32 sample unboxing
- Réponses : 14
- Vues : 3673
Re: DM32 sample unboxing
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
Tant mieux ;D
- 19 mai 2023 21:15
- Forum : Tous les Pockets
- Sujet : MPO n°117 : le problème du tourneur
- Réponses : 27
- Vues : 4261
Re: MPO n°117 : le problème du tourneur
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...
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...
- 19 mai 2023 15:56
- Forum : Tous les Pockets
- Sujet : MPO n°117 : le problème du tourneur
- Réponses : 27
- Vues : 4261
Re: MPO n°117 : le problème du tourneur
NewRpl, force brute :
LDROP @ Supprimer un élement d'une liste
MPO117
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
LDROP @ Supprimer un élement d'une liste
Code : Tout sélectionner
«
→ L n
«
L 1 n 1 - SUB
L n 1 + 20 SUB
ADD
»
»
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" +
»
»
- 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