1590 résultats trouvés

par Gilles59
17 août 2023 18:17
Forum : Tous les Pockets
Sujet : HP-41: Nouveau bloc de piles rechargeables bientôt disponible.
Réponses : 24
Vues : 3165

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

Impressionnant! C’est une autonomie quasi illimité pour une utilisation « normale » non?

Mais à la base ce ne sont pas des piles dans la HP41 d’orgine, tu parles de batteries rechargeables?

Je craquerai absolument pour ce genre de chose pour la HP50g si ca sort un jour ;D
par Gilles59
16 août 2023 17:02
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°120 : Les 4 opérations
Réponses : 20
Vues : 2789

Re: Les 4 opérations.

NewRPL + LstX library

Code : Tout sélectionner

«
 { 141 175 24675 863625 } 
 « REVLIST 3479175 DUP2 ADD LIST→ DROP SWAP - + SWAP / * 
   IF == THEN REVLIST ELSE DROP END
 »
 DOPERM 
»
Taille : 144 octets
Temps : 0.0745 sec

RPL + ListExt library

Code : Tout sélectionner

«
 { 141 175 24675 863625 } 4
 « REVLIST 3479175 DUP2 + EVAL SWAP - + SWAP / * 
   IF == THEN REVLIST ELSE DROP END
 »
 DOPERM 
»
Taille : 126 octets
Temps : 3,4 sec

Nota :
- le newRPL a remis de la logique dans le fonctionnement de ADD et + sur les listes, mais il faut donc adapter le pgm
- En newRPL, EVAL sur une liste ne met pas tous les éléments sur la pile comme en RPL (ce qui est plus logique aussi voir point précédent).
- J'ai simplifié la syntaxe de DOPERM (do permutation) en LstX versus ListExt
- Les programmes sont toujours plus gros en newRPL qu'en RPL, mais sur 50g on dispose de ~410kB newRPL de RAM versus ~230kB RPL

Si on veut un affichage clair (newRPL) :

Code : Tout sélectionner

«
 { 141 175 24675 863625 } 
 « REVLIST 3479175 DUP2 ADD LIST→ DROP SWAP - + SWAP / * 
   IF == THEN REVLIST ELSE DROP END
 »
 DOPERM 
 LXIL REVLIST LIST→ DROP '0' 3479175 + EVAL SWAP - SWAP + SWAP / SWAP *
»

donne :   '(3479175-24675+863625)/175*141'
Remarquez que les parenthèses se mettent toutes seules
Je ne mets mon prog fx602P de suite, vous laisse chercher ;D
par Gilles59
16 août 2023 09:27
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°120 : Les 4 opérations
Réponses : 20
Vues : 2789

Re: Les 4 opérations.

Pyjam a écrit : 16 août 2023 08:36 Bonjour

Voici ma solution en RPN, ici un programme pour HP‑15C.

Mettre 3479175 dans R0, et les 4 autres nombres dans R1 à R4.
Lancer A.
Joli ! Avec la même ergonomie (saisie et solution en mémoire) , mais un algorithme différent je tiens en 37 pas sur fx-602p.
Faudrait que je sorte ma 15LE qui dort au fond du placard. J'ai bien essayé au début, mais je bloque sur l'affichage des programme en codes.
par Gilles59
15 août 2023 20:12
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°120 : Les 4 opérations
Réponses : 20
Vues : 2789

Re: Les 4 opérations.

FLISZT a écrit : 15 août 2023 19:54 Bonsoir aux MPOïstes et aux "non-pratiquants" et néanmoins lecteurs, :mrgreen:


EXSUB est une commande qui existe uniquement dans les hp-28.
Elle a été remplacée par ↑MATCH et ↓MATCH dès la sortie de la hp-48SX.
Ah Ok! Les commandes MATCH sont très puissantes (et moins ésotériques 🤔) et je les ai pas mal utilisées sur 48 avant le CAS des 50. Mais même avec le CAS elles gardent parfois un interêt.
par Gilles59
15 août 2023 19:05
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°120 : Les 4 opérations
Réponses : 20
Vues : 2789

Re: Les 4 opérations.

Bonsoir c.ret. A quoi correspond EXSUB dans ton programme?

Ça risque d’être chaud avec cet algorithme sur les machines type 602p ou TI58 ;D
par Gilles59
15 août 2023 11:31
Forum : Amstrad
Sujet : CPC 6128 sur Ecran CPC+
Réponses : 8
Vues : 4135

Re: CPC 6128 sur Ecran CPC+

JayBLOOD a écrit : 09 août 2023 23:15 Bravo! C'est très propre! Pour le fun, tu pourrai ajouter un jack qui part de l'UC du 6128 vers la din8 de l'écran du Plus, pour le son stéréo plus propre qu'avec la petite enceinte intégrée. :)
En effet ! Au passage sur mon CPC+, l'écran (ou la sortie son ?) a tendance à un peu "gresiller" suivant ce qui est affiché. C'est léger et pas génant mais je me demande si c'est "normal" ?
par Gilles59
15 août 2023 11:27
Forum : Amstrad
Sujet : PCW 9256 à sauver.
Réponses : 11
Vues : 5074

Re: PCW 9256 à sauver.

Bravo ! Va falloir que je m'intéresse à cette gamme PCW ;D
par Gilles59
15 août 2023 11:17
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°120 : Les 4 opérations
Réponses : 20
Vues : 2789

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

Bonjour à tous,

je vous propose ce MPO tiré de Jeux & Stratégie n°9. Facile sur les calculatrices modernes mais faisable (avec un peu d’astuce ;D ) sur de plus anciennes :

Soit le nombre de départ 3479175.
- En utilisant, une fois et une seule, les nombres 141 , 175 , 24675 et 863625
- En utilisant une fois et une seule et dans l'ordre les opérations suivantes : - , + , / , *
Il faut retrouver le nombre de départ, soit 3479175

On peut évidemment le résoudre à la main, mais ici il s'agit de faire travailler nos machines ;D
Sur les machines dotés de capacités alpha, on peut afficher le détail du calcul avec les opérations en clair, sur les autres la suite des nombres suffira.

PS : pas de priorité des opérateurs, chaque calcul sert d'entrée au suivant. Résolu en rpl et casio fx501 -> 603P
par Gilles59
09 août 2023 18:59
Forum : Tous les Pockets
Sujet : HP RPL - intégrales numériques avec fonction+programme-48G KO, 28S OK
Réponses : 74
Vues : 12057

Re: HP RPL - intégrales numériques avec fonction+programme-48G KO, 28S OK

FLISZT a écrit : 09 août 2023 16:51
- La fonction DEFINE est apparue avec la 48SX.
- Je remarque (notamment) sur la photo le signe "multiplier par" : ' x ' au lieu du traditionnel ' * ' … j'imagine que c'est du newRPL.

Hello, non c'est bien du bon vieux RPL HP ;D
Le X versus * est du à la police "minifont". A noter que les newRPL utilise des polices proportionnelles et UTF8 ( ce qui est bien pratique pour les caractère spéciaux compatible avec les ordis et internet en général).
par Gilles59
08 août 2023 12:45
Forum : Tous les Pockets
Sujet : Bibliothèque de gestion des listes en newRPL
Réponses : 6
Vues : 2325

Re: Bibliothèque de gestion des listes en newRPL

Overlay NewRPL HP50g. J’ai posé aussi celui sur ma 39gs (insdispensable sur ce modèle car toutes les touches changent dans ce cas). On peut aussi avoir des Wp34s etc. C’est franchement très qualitatif. Voir sur le forum HP Museum.

Par contre la 39gs a moins de ram. 145kB versus 410kB en environ pour la 50g, un écran plus petit et pas de port SD. La gestion des cartes SD sur la 50g est épatante. Ça se gère un peu comme un disque dur, avec des fichiers séquentiel indexés etc. En plus le backup et restauration de la calc se fait en 1 seconde avec les commandes SDARCHIVE et SDRESTAURE sur carte SD. Tellement rapide que je pensais que ça ne marchait pas lol.
par Gilles59
08 août 2023 10:59
Forum : Tous les Pockets
Sujet : Overlay NewRPL et autre
Réponses : 3
Vues : 2124

Overlay NewRPL et autre

J’ai posé un Overlay NewRPL sur HP50 et HP39gs.
Je trouve le résultat très qualitatif et au delà de mes espérance. Les commandes se font via hpmuseum. C’est pas difficile à poser mais il faut être soigneux. J’ai du réduire la qualité de la photo pour que ça passe sur le forum

Il propose des overlays sur plusieurs modèles HP. Très bon résultats mais à voir comment ça resiste dans le temps.
image1.jpeg
image1.jpeg (87.22 Kio) Vu 2124 fois
par Gilles59
08 août 2023 01:46
Forum : Tous les Pockets
Sujet : Bibliothèque de gestion des listes en newRPL
Réponses : 6
Vues : 2325

Re: Bibliothèque de gestion des listes en newRPL

J'ai essayé de résoudre des cryptarithmes avec cette bib. Par exemple le célébre :

Code : Tout sélectionner

    send
+   more
=  money

Code : Tout sélectionner

« 0 0 0 0 0 0 0 0 → s e n d m o r y
  «
    0 9 LSEQR
    8
    « { s e n d m o r y } STO
      IF s THEN
        IF m THEN
          IF s m + 9 > THEN
            IF  { s e n d } RCL NL→I 
                { m o r e } RCL NL→I + 
              { m o n e y } RCL NL→I == THEN
              { s e n d m o r y } DUP RCL - BREAK
            END
          END
        END
      END
    » 
    DOCOPE
  »	
»

=> { { 's-9' 'e-5' 'n-6' 'd-7' 'm-1' 'o-0' 'r-8' 'y-2' } }
Temps en newRPL PC : 32 sec

Mais on remarque facilement que 'm' ne peut être égal qu'à 1
On passe alors à 6,3 sec sur PC :

Code : Tout sélectionner

« 1 0 0 0 0 0 0 0 → m s e n d o r y
  «
    0 9 LSEQR
    7
    « { s e n d o r y } STO
      IF s 8 > THEN
        IF   { s e n d } RCL NL→I 
             { m o r e } RCL NL→I + 
           { m o n e y } RCL NL→I == THEN
           { s e n d m o r y } DUP RCL - BREAK
        END
      END
    » 
    DOCOPE
  »	
»
Mais alors il est évident que 's' ne peut être égal qu'à 9 donc :

Code : Tout sélectionner

« 1 9 0 0 0 0 0 0 → m s e n d o r y
  «
    0 9 LSEQR
    6
    « {  e n d o r y } STO
      IF   { s e n d } RCL NL→I 
           { m o r e } RCL NL→I + 
         { m o n e y } RCL NL→I == THEN
         { s e n d m o r y } DUP RCL - BREAK
      END
    » 
    DOCOPE
  »	
»
On passe alors à 0.187 sec sur PC, à 25 secondes sur HP50g et à ... 18 sec sur HP39gs (processeur plus rapide?)

PS : les overlays proposés par Spiff72 sur HP museum sont magnifiques ! Le newRPL pour la 50g en vinyl noir mat rend la machine encore plus belle :O. Reste à voir comment ça veillit ... Il en propose pour C47 (DM42), WP31S, WP34S, newRPL.
c'est là : https://www.hpmuseum.org/forum/thread-20113.html
par Gilles59
06 août 2023 21:13
Forum : Tous les Pockets
Sujet : HP-15C - Saison 3
Réponses : 156
Vues : 104773

Re: HP-15C - Saison 3

Zebulon a écrit : 06 août 2023 18:33 Je suis d'accord qu'on peut établir un classement sur le temps d'exécution/nombre d'itérations de cette série de calculs mais pour autant cela reflète-t-il la véritable puissance de chaque machine ?

Bon les benchmarks depuis qu'ils existent ont toujours été matière à discussion.
En effet... Tout dépend de l'usage. Par exemple sur ma machine préférée qui est la HP50g, quelques ratios interessants :

- Entre la même HP50 RPL et newRPL, le ratio de vitesse est autour de 100 avec le même processeur, même langage. Mais çà dépend de ce qu'on fait, par exemple c'est moins pour les fonctions trigo et autres (mais la précision est de 32 chiffres par défaut en newRPL et peut même monter à ... 2000)
- Le ratio entre newRPL sur HP50g et newRPL PC le ratio est de 100 encore (ordre de grandeur). Ca s'explique car ce n'est pas une émulation mais une recompilation pour les processeurs PC (d'ailleurs le ration de vitesse n'est pas toujours le même, le compilateur optimise sans doute en fonction des capacités du processeur). Autrement dit le ratio etre une HP50g RPL standard et newRPL PC est de ... 10 000. J'imagine qu'avec ma vieille HP48SX ca doit être de 100.000. Par exemple la recherche en force brute (tout tester par permutation) la solution du cryptarithme SEND+MORE=MONEY est faisable en newRPL sur PC, long sur HP50g et infaisable en RPL)
- sur le Hardware HP50g newRPL, 10.000 boucles prennent 0,26 sec, en RPL c'est 12,5 sec (ratio 47 )
- par contre sur les traitement des listes et appels récursifs, le ratio est probablement de 200 ou même beaucoup plus. Par exemple trier 1000 nombres aléatoires en newRPL prends 1,16s. En RPL c'est 170 fois plus long... Les appels récursifs sont très très lent en RPL mais très rapide en newRPL

Pour revenir à la HP15C, je ne sais pas si la CE utilise une couche d'émulation (probablement ?) , mais si c'est le cas ca pourrait être encore bien plus rapide. Mais est ce que ça a encore un sens ? Mon autre calculatrice préférée étant la 602P, ça me fait penser à la mémoire énorme de la 603P qui ne sert pas à grand chose à cause d'autres limitations : en fait la machine n'est plus homogène, comme si on avait une TI57 avec 1000 pas de programme.

En plus le pb aujourd'hui est souvent plus la consommation électrique et l'autonomie avec les processeurs moderne dont la vitesse d'horloge est programmable. Un mode SLOW m'irait très bien en newRPL 50g pour économiser les piles ;D
par Gilles59
06 août 2023 01:32
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°116 : Jeu "RamiSum"
Réponses : 57
Vues : 12557

Re: Misez p'tit, Optimisez - N°116 : Jeu "RamiSum"

L'occasion de tester ma library "LstX" (listes étendues) pour new RPL

MPO116

Code : Tout sélectionner

« I→NL SORT LRPCT « IF DUP 3 < THEN DROP2 ELSE * END » DOLLST LMAX »
Si on décortique :

Code : Tout sélectionner

84884284 
I→NL =>  { 8 4 8 8 4 2 8 4 }
SORT =>  { 2 4 4 4 8 8 8 8 }
LRPCT => {  { 2 4 8 }  { 1 3 4 } }  (List RePeat CounT)
« IF DUP 3 < THEN DROP2 ELSE * END » DOLLST => { 12 32 }  ( Do List of List, comme DOLIST mais avec des listes de listes ) 
LMAX => 32 (maxi d'une liste)
par Gilles59
05 août 2023 00:15
Forum : Tous les Pockets
Sujet : HP-48/49/50G : Quand le RPL rencontre APL
Réponses : 44
Vues : 15277

Re: HP-48/49/50G : Quand le RPL rencontre APL

Merci Schraf pour tes articles APL ! J'en ai vu un autre où tu traite du dernier MPO mais je ne retrouve pas la rubrique :/

Aller à la recherche avancée