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
1590 résultats trouvés
- 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
- 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
Taille : 144 octets
Temps : 0.0745 sec
RPL + ListExt library 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) :
Je ne mets mon prog fx602P de suite, vous laisse chercher ;D
Code : Tout sélectionner
«
{ 141 175 24675 863625 }
« REVLIST 3479175 DUP2 ADD LIST→ DROP SWAP - + SWAP / *
IF == THEN REVLIST ELSE DROP END
»
DOPERM
»
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
»
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
- 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.
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.
- 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.
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.
- 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
Ça risque d’être chaud avec cet algorithme sur les machines type 602p ou TI58 ;D
- 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+
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" ?
- 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
- 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
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
- 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
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).
- 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 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.
- 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.
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.
- 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 :
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 :
Mais alors il est évident que 's' ne peut être égal qu'à 9 donc :
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
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' } }
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
»
»
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
»
»
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
- 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
En effet... Tout dépend de l'usage. Par exemple sur ma machine préférée qui est la HP50g, quelques ratios interessants :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.
- 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
- 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
Si on décortique :
MPO116
Code : Tout sélectionner
« I→NL SORT LRPCT « IF DUP 3 < THEN DROP2 ELSE * END » DOLLST LMAX »
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)
- 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 :/