Vos_derniers_programmes_?

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

Avatar du membre
Marge
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 6172
Enregistré le : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: Vos_derniers_programmes_?

Message par Marge »

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à.
Excellent ! À approfondir, et comment ! :D
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é.
Avatar du membre
steste
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 551
Enregistré le : 18 sept. 2015 18:59

Re: Vos_derniers_programmes_?

Message par steste »

Pour ma question sur les
jeux graphiques ?
...
...
Avatar du membre
tyann
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 845
Enregistré le : 06 oct. 2012 14:37

Re: Vos_derniers_programmes_?

Message par tyann »

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.
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
Avatar du membre
Thierry Loiseau
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 823
Enregistré le : 10 avr. 2004 22:23
Localisation : Terrasson (Périgord)
Contact :

Re: Vos_derniers_programmes_?

Message par Thierry Loiseau »

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/
Avatar du membre
spacemax
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 86
Enregistré le : 05 nov. 2011 12:45
Localisation : Alpes de Haute Provence

Re: Vos_derniers_programmes_?

Message par spacemax »

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
Avatar du membre
tyann
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 845
Enregistré le : 06 oct. 2012 14:37

Re: Vos_derniers_programmes_?

Message par tyann »

Bonsoir
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
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.
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
Avatar du membre
Marge
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 6172
Enregistré le : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: Vos_derniers_programmes_?

Message par Marge »

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.
Bon boulot, tyann, je regarderai ça, merci.
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é.
Avatar du membre
gege
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 7141
Enregistré le : 31 janv. 2008 14:24
Localisation : Banlieue Paârisienne
Contact :

Re: Vos_derniers_programmes_?

Message par gege »

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.
Avatar du membre
tyann
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 845
Enregistré le : 06 oct. 2012 14:37

Re: Vos_derniers_programmes_?

Message par tyann »

Bonsoir
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...
Hum! à la base, la 41 ne sait pas faire de test de > ou < sur les chaînes.
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
Avatar du membre
steste
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 551
Enregistré le : 18 sept. 2015 18:59

Re: Vos_derniers_programmes_?

Message par steste »

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+
kenneth
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 948
Enregistré le : 22 sept. 2010 13:48
Localisation : France PdD

Re: Vos_derniers_programmes_?

Message par kenneth »

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.
Avatar du membre
steste
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 551
Enregistré le : 18 sept. 2015 18:59

Re: Vos_derniers_programmes_?

Message par steste »

OUCH !!!

Mais surement bien vu...
...
...
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3405
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: Vos_derniers_programmes_?

Message par C.Ret »

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.
Avatar du membre
tyann
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 845
Enregistré le : 06 oct. 2012 14:37

Re: Vos_derniers_programmes_?

Message par tyann »

Bonjour
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:
SGN(a-b)
Pas sur hp-41 : SIGN 0 renvoie 1
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
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3405
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: Vos_derniers_programmes_?

Message par C.Ret »

Ah! Oui c'est vrai, j'oubliais cette spécificité.

Bon alors il reste :

Code : Tout sélectionner

 b   a  - RCL X  ABS  / 
Ah! Zut ça marche pas pour a=b :(

Code : Tout sélectionner

 b   a   -   RCL X   ABS   x<>0? 1/x   *    
Il doit y avoir plus court !

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.
Répondre

Retourner vers « Tous les Pockets »