Excellent ! À approfondir, et comment !tyann a écrit :... [S]ur Hp-41cx.
J'ai toujours pensé qu'il était dommage de n'avoir qu'un seul registre Alpha.
J'ai donc entrepris de remédier au moins en partie à ce manque grâce à la x-mémoire.
Mon programme offre donc :
SIZA qui créer un fichier de x registres Alpha
ASTOA qui stocke le contenu du registre Alpha dans le registre Alpha n° x
ARCLA qui met dans le registre Alpha le contenu du registre Alpha n° x
A<>A qui échange le contenu du registre Alpha avec celui du registre Alpha n° x
CLRGA supprime ces registres.
[...]
Dans mon idée de base, il y avait aussi des tests entre le registre Alpha et les autres registres Alpha créés,
mais je ne sais pas si cela est faisable, je n'ai pas approfondi la chose.
Voilà.
Vos_derniers_programmes_?
Modérateur : Politburo
- Marge
- Fonctionne à 14400 bauds
- Messages : 6192
- Enregistré le : 01 oct. 2008 14:39
- Localisation : En bas, tout au fond à gauche.
Re: Vos_derniers_programmes_?
3 hommes, 3 demis, un 3a... Magnéto, Serge !
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Re: Vos_derniers_programmes_?
Pour ma question sur les
jeux graphiques ?
...
...
jeux graphiques ?
...
...
Re: Vos_derniers_programmes_?
Bonsoir
A steste, désolé je n'ai pas regardé cela même de loin.
A Marge, avec une instruction qui permet de rechercher une chaîne
dans un fichier ASCII (POSFL je crois) et ALENG, il y peut-être moyen
de faire le test d'égalité et son inverse.
J'ai ça dans un petit coin de ma tête.
A steste, désolé je n'ai pas regardé cela même de loin.
A Marge, avec une instruction qui permet de rechercher une chaîne
dans un fichier ASCII (POSFL je crois) et ALENG, il y peut-être moyen
de faire le test d'égalité et son inverse.
J'ai ça dans un petit coin de ma tête.
Ti(s) 60, 62 Galaxy, 66, 67 Galaxy, 68, 74 Basical 80, 81, 82, 83+, 83 CE, 84+SE, 85, 86, 89, 89 titanium, 92, 95 Procalc, v200, nSpire cx
Hp(s) 35s, 41CX, 28S, 48g, 50g, 39gII, Prime G1 et G2,
Casio(s) fx 602P, 702P, 4000P, 4500P, 6000G, 6900G, 7700G, 8500g, PB-700, CG-20, Graph 95 sd
Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, E500, El 5120, 9200, 9600
Canon X-07
Hp(s) 35s, 41CX, 28S, 48g, 50g, 39gII, Prime G1 et G2,
Casio(s) fx 602P, 702P, 4000P, 4500P, 6000G, 6900G, 7700G, 8500g, PB-700, CG-20, Graph 95 sd
Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, E500, El 5120, 9200, 9600
Canon X-07
- Thierry Loiseau
- Fonctionne à 1200 bauds
- Messages : 823
- Enregistré le : 10 avr. 2004 22:23
- Localisation : Terrasson (Périgord)
- Contact :
Re: Vos_derniers_programmes_?
En cours de programmation... sur FX-602P, un truc qui permet de présenter une suite infinie définie de chiffres sous forme de fraction : Élémentaire mon cher Watson... pas si facile que cela
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
[***Apple //e, 7100, 8500, Atari Mega ST1 ***], PB-540c, PISMO, [***CPC-6128, MO5***]... et bien d'autres trucs
[--- plus ---]
http://astrophoto.free.fr/
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
[***Apple //e, 7100, 8500, Atari Mega ST1 ***], PB-540c, PISMO, [***CPC-6128, MO5***]... et bien d'autres trucs
[--- plus ---]
http://astrophoto.free.fr/
- spacemax
- Fonctionne à 300 bauds
- Messages : 86
- Enregistré le : 05 nov. 2011 12:45
- Localisation : Alpes de Haute Provence
Re: Vos_derniers_programmes_?
Don't forget the spirit of the game...
Canon X-07 / Casio fx-850P / TI74 / Casio fx-8500G / Psion 3 / Psion 3a / Psion II XP / Psion II Lz / Psion Revo / Fx-4000p / Dell Axim x50V / Spiga Sagem / Casio fx-3900p / Casio fc-200 / Sharp 1403
Canon X-07 / Casio fx-850P / TI74 / Casio fx-8500G / Psion 3 / Psion 3a / Psion II XP / Psion II Lz / Psion Revo / Fx-4000p / Dell Axim x50V / Spiga Sagem / Casio fx-3900p / Casio fc-200 / Sharp 1403
Re: Vos_derniers_programmes_?
Bonsoir
Voici donc la dernière version de mon programme de simulation
de plusieurs registres alpha pour 41cx avec un test d'égalité :
X#Y? -> X DIFFÉRENT DE Y
Le test renvoie dans X : 1 si alpha = registre n°X, sinon 0
Alpha est préservé.
A noter que X doit toujours être un entier pour toutes les fonctions.
214 octets.
Voici donc la dernière version de mon programme de simulation
de plusieurs registres alpha pour 41cx avec un test d'égalité :
Code : Tout sélectionner
01 LBL "SIZA"
02 "XALPHA"
03 1
04 +
05 STO Y
06 3,7
07 *
08 INT
09 1
10 +
11 CRFLAS
12 " "
13 LBL 00
14 APPREC
15 DSE Y
16 GTO 00
17 CLA
18 RTN
19 LBL "ASTOA"
20 SEEKPT
21 DELREC
22 INSREC
23 RTN
24 LBL "ARCLA"
25 SEEKPT
26 GETREC
27 RTN
28 LBL "A<>"
29 X<>L
30 CLX
31 SEEKPT
32 DELREC
33 INSREC
34 X<>L
35 SEEKPT
36 GETREC
37 DELREC
38 X<>L
39 SEEKPT
40 INSREC
41 X<>L
42 SIGN
43 SEEKPT
44 GETREC
45 DELREC
46 X<>L
47 SF 25
48 SEEKPT
49 FC?C 25
50 APPREC
51 INSREC
52 X<>L
53 CLX
54 SEEKPT
55 GETREC
56 X<>L
57 RTN
58 LBL "A=?"
59 STO L
60 SEEKPT
61 POSFL
62 X#Y?
63 GTO 02
64 ALENG
65 X<>Y
66 CLX
67 XEQ "ASTOA"
68 X<>L
69 XEQ "ARCLA"
70 X<>Y
71 ALENG
72 X<>L
73 XEQ "ARCLA"
74 X<>L
75 X#Y?
76 GTO 01
77 -
78 CLX
79 1
80 RTN
81 LBL 01
82 RDN
83 LBL 02
84 CLX
85 RTN
86 LBL "CLRA"
87 "XALPHA"
88 PURFL
89 CLA
90 END
Le test renvoie dans X : 1 si alpha = registre n°X, sinon 0
Alpha est préservé.
A noter que X doit toujours être un entier pour toutes les fonctions.
214 octets.
Ti(s) 60, 62 Galaxy, 66, 67 Galaxy, 68, 74 Basical 80, 81, 82, 83+, 83 CE, 84+SE, 85, 86, 89, 89 titanium, 92, 95 Procalc, v200, nSpire cx
Hp(s) 35s, 41CX, 28S, 48g, 50g, 39gII, Prime G1 et G2,
Casio(s) fx 602P, 702P, 4000P, 4500P, 6000G, 6900G, 7700G, 8500g, PB-700, CG-20, Graph 95 sd
Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, E500, El 5120, 9200, 9600
Canon X-07
Hp(s) 35s, 41CX, 28S, 48g, 50g, 39gII, Prime G1 et G2,
Casio(s) fx 602P, 702P, 4000P, 4500P, 6000G, 6900G, 7700G, 8500g, PB-700, CG-20, Graph 95 sd
Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, E500, El 5120, 9200, 9600
Canon X-07
- Marge
- Fonctionne à 14400 bauds
- Messages : 6192
- Enregistré le : 01 oct. 2008 14:39
- Localisation : En bas, tout au fond à gauche.
Re: Vos_derniers_programmes_?
Bon boulot, tyann, je regarderai ça, merci.tyann a écrit :Bonsoir
Voici donc la dernière version de mon programme de simulation
de plusieurs registres alpha pour 41cx avec un test d'égalité [...] 214 octets.
3 hommes, 3 demis, un 3a... Magnéto, Serge !
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
- gege
- Fonctionne à 14400 bauds
- Messages : 7148
- Enregistré le : 31 janv. 2008 14:24
- Localisation : Banlieue Paârisienne
- Contact :
Re: Vos_derniers_programmes_?
Bonjour,
Pour faire une seule fonction de comparaison qui fait tout et pour le même "prix", il faudrait renvoyer :
+1 si a>b
0 si a==b
-1 si a<b
On a l'impression que c'est faisable avec 3 ou 4 pas de plus...
A voir,
G.E.
Pour faire une seule fonction de comparaison qui fait tout et pour le même "prix", il faudrait renvoyer :
+1 si a>b
0 si a==b
-1 si a<b
On a l'impression que c'est faisable avec 3 ou 4 pas de plus...
A voir,
G.E.
Re: Vos_derniers_programmes_?
Bonsoir
La cx peut les faire en utilisant les tests x>NN? ou x<NN? qui est un test
indirect par Y donc utilisant un registre de données.
Après il y a ATOX qui envoie le code du premier caractère alpha dans x
il faudrait faire cela dans une boucle si les premiers caractères sont identiques.
A voir effectivement.
Hum! à la base, la 41 ne sait pas faire de test de > ou < sur les chaînes.Pour faire une seule fonction de comparaison qui fait tout et pour le même "prix", il faudrait renvoyer :
+1 si a>b
0 si a==b
-1 si a<b
On a l'impression que c'est faisable avec 3 ou 4 pas de plus...
La cx peut les faire en utilisant les tests x>NN? ou x<NN? qui est un test
indirect par Y donc utilisant un registre de données.
Après il y a ATOX qui envoie le code du premier caractère alpha dans x
il faudrait faire cela dans une boucle si les premiers caractères sont identiques.
A voir effectivement.
Ti(s) 60, 62 Galaxy, 66, 67 Galaxy, 68, 74 Basical 80, 81, 82, 83+, 83 CE, 84+SE, 85, 86, 89, 89 titanium, 92, 95 Procalc, v200, nSpire cx
Hp(s) 35s, 41CX, 28S, 48g, 50g, 39gII, Prime G1 et G2,
Casio(s) fx 602P, 702P, 4000P, 4500P, 6000G, 6900G, 7700G, 8500g, PB-700, CG-20, Graph 95 sd
Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, E500, El 5120, 9200, 9600
Canon X-07
Hp(s) 35s, 41CX, 28S, 48g, 50g, 39gII, Prime G1 et G2,
Casio(s) fx 602P, 702P, 4000P, 4500P, 6000G, 6900G, 7700G, 8500g, PB-700, CG-20, Graph 95 sd
Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, E500, El 5120, 9200, 9600
Canon X-07
Re: Vos_derniers_programmes_?
Salut Tyann,
...
J'insiste, pourrait tu m'expliquer rapidement si ton
algorithme s'adapte aussi a des jeux comme
l' (unique) jeux du Crocodile, parut dans
"l'Ordinateur de poche"
...
(une merveille a lire entre autre !)
...
a+
...
J'insiste, pourrait tu m'expliquer rapidement si ton
algorithme s'adapte aussi a des jeux comme
l' (unique) jeux du Crocodile, parut dans
"l'Ordinateur de poche"
...
(une merveille a lire entre autre !)
...
a+
-
- Fonctionne à 1200 bauds
- Messages : 949
- Enregistré le : 22 sept. 2010 13:48
- Localisation : France PdD
Re: Vos_derniers_programmes_?
En ce qui me concerne j'écris actuellement un petit prog en BASIC pour envoyer des messages a 2 Hertz et des bananes à une carte SD avec des PEEK et POKE avant le codage en LM dans le but de remplacer le magnéto de l'Oric par la microSD.
Re: Vos_derniers_programmes_?
OUCH !!!
Mais surement bien vu...
...
...
Mais surement bien vu...
...
...
- C.Ret
- Fonctionne à 9600 bauds
- Messages : 3422
- Enregistré le : 31 mai 2008 23:43
- Localisation : N 49°22 E 6°10
Re: Vos_derniers_programmes_?
gege a écrit :Bonjour,
Pour faire une seule fonction de comparaison qui fait tout et pour le même "prix", il faudrait renvoyer :
+1 si a>b
0 si a==b
-1 si a<b
On a l'impression que c'est faisable avec 3 ou 4 pas de plus...
Code : Tout sélectionner
SGN(a-b)
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Re: Vos_derniers_programmes_?
Bonjour
Pas sur hp-41 : SIGN 0 renvoie 1gege a écrit:
Bonjour,
Pour faire une seule fonction de comparaison qui fait tout et pour le même "prix", il faudrait renvoyer :
+1 si a>b
0 si a==b
-1 si a<b
On a l'impression que c'est faisable avec 3 ou 4 pas de plus...
Code:
SGN(a-b)
Ti(s) 60, 62 Galaxy, 66, 67 Galaxy, 68, 74 Basical 80, 81, 82, 83+, 83 CE, 84+SE, 85, 86, 89, 89 titanium, 92, 95 Procalc, v200, nSpire cx
Hp(s) 35s, 41CX, 28S, 48g, 50g, 39gII, Prime G1 et G2,
Casio(s) fx 602P, 702P, 4000P, 4500P, 6000G, 6900G, 7700G, 8500g, PB-700, CG-20, Graph 95 sd
Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, E500, El 5120, 9200, 9600
Canon X-07
Hp(s) 35s, 41CX, 28S, 48g, 50g, 39gII, Prime G1 et G2,
Casio(s) fx 602P, 702P, 4000P, 4500P, 6000G, 6900G, 7700G, 8500g, PB-700, CG-20, Graph 95 sd
Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, E500, El 5120, 9200, 9600
Canon X-07
- C.Ret
- Fonctionne à 9600 bauds
- Messages : 3422
- Enregistré le : 31 mai 2008 23:43
- Localisation : N 49°22 E 6°10
Re: Vos_derniers_programmes_?
Ah! Oui c'est vrai, j'oubliais cette spécificité.
Bon alors il reste :
Ah! Zut ça marche pas pour a=b
Il doit y avoir plus court !
Par exemple
Je suis donc en mesure de publier ici mon dernier programme et de le commenter :
Bon alors il reste :
Code : Tout sélectionner
b a - RCL X ABS /
Code : Tout sélectionner
b a - RCL X ABS x<>0? 1/x *
Par exemple
Code : Tout sélectionner
b a - x<>0? SIGN
Je suis donc en mesure de publier ici mon dernier programme et de le commenter :
Code : Tout sélectionner
01 LBL "SGN Programme pour HP-41 permettant le calcul de SGN comme sur d'autres Pockets
02 X≠0? Cette petite astuce permet de renvoyer 0 pour un argument nul.
03 SIGN L'instruction originale sur le HP-41 renvoie -1 pour les nombres négatifs, +1 pour les nombres positifs
04 END ou nuls et 0 pour les chaines de caractères.
Modifié en dernier par C.Ret le 06 mai 2017 08:51, modifié 1 fois.
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.