Oups ! J'aurais bien besoin d'une explication de "texte" làzpalm a écrit :Voici une version qui marche sur une 41C de base et qui conserve les registres X,Y et Z d’origine en Y, Z et T.
Code : Tout sélectionner
01 LBL"NFIX 02 1 03 STO L 04 FC? 39 05 ST- L 06 ST+ X 07 FS? 38 08 ST+ L 09 ST+ X 10 FS? 37 11 ST+ L 12 ST+ X 13 FS? 36 14 ST+ L 15 X<>L 16 STO 16 17 RTN
[FX-702P... etc] Fraction et réduction illimitées pour Noël
Modérateur : Politburo
- Thierry Loiseau
- Fonctionne à 1200 bauds
- Messages : 823
- Enregistré le : 10 avr. 2004 22:23
- Localisation : Terrasson (Périgord)
- Contact :
Re: [FX-702P... etc] Fraction et réduction illimitées pour N
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/
- Thierry Loiseau
- Fonctionne à 1200 bauds
- Messages : 823
- Enregistré le : 10 avr. 2004 22:23
- Localisation : Terrasson (Périgord)
- Contact :
Re: [FX-702P... etc] Fraction et réduction illimitées pour N
Je viens de comprendre ! Il double la valeur 1 - 2 - 4 - 8... Astucieux !
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/
- zpalm
- Fonctionne à 9600 bauds
- Messages : 2935
- Enregistré le : 03 mai 2008 15:33
- Localisation : Grenoble
Re: [FX-702P... etc] Fraction et réduction illimitées pour N
Oui c'est ça, ça permet de tout faire dans les registres X et L.
- Thierry Loiseau
- Fonctionne à 1200 bauds
- Messages : 823
- Enregistré le : 10 avr. 2004 22:23
- Localisation : Terrasson (Périgord)
- Contact :
Re: [FX-702P... etc] Fraction et réduction illimitées pour N
C'est superbe au niveau optimisation ! Bravo. Et une solution pour éviter de stocker le résultat autrement que sur un STO XX ?zpalm a écrit :Oui c'est ça, ça permet de tout faire dans les registres X et L.
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/
- zpalm
- Fonctionne à 9600 bauds
- Messages : 2935
- Enregistré le : 03 mai 2008 15:33
- Localisation : Grenoble
Re: [FX-702P... etc] Fraction et réduction illimitées pour N
Oui, il est possible de construire le résultat directement dans le registre final, du coup on gagne 2 pas :Thierry Loiseau a écrit :Et une solution pour éviter de stocker le résultat autrement que sur un STO XX ?
Code : Tout sélectionner
01 LBL"NFIX
02 1
03 STO 16
04 FC? 39
05 ST- 16
06 ST+ X
07 FS? 38
08 ST+ 16
09 ST+ X
10 FS? 37
11 ST+ 16
12 ST+ X
13 FS? 36
14 ST+ 16
15 RTN
- Thierry Loiseau
- Fonctionne à 1200 bauds
- Messages : 823
- Enregistré le : 10 avr. 2004 22:23
- Localisation : Terrasson (Périgord)
- Contact :
Re: [FX-702P... etc] Fraction et réduction illimitées pour N
Très intéressant !zpalm a écrit :Pour sauvegarder/restaurer le mode d'affichage on peut aussi utiliser les commandes SD et RD de la PPC-ROM à base de programmation synthétique.
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/
- C.Ret
- Fonctionne à 9600 bauds
- Messages : 3422
- Enregistré le : 31 mai 2008 23:43
- Localisation : N 49°22 E 6°10
Re: [FX-702P... etc] Fraction et réduction illimitées pour N
Je n'ai pas pu poster le week-end dernier le fruit de quelques cogitations sur le sujet:
J'utilise sur HP-41C un programme légèrement différent de celui de Thierry, il utilise la fonction RND pour arrondir la différence et arrêter la décomposition en fonction de la précision d'affichage. c'est une adaptation du programme de Franck pour SHARP PC-1360 :
On peut facilement retrouver les résultats précèdent en fonction de la précision:
J'utilise sur HP-41C un programme légèrement différent de celui de Thierry, il utilise la fonction RND pour arrondir la différence et arrêter la décomposition en fonction de la précision d'affichage. c'est une adaptation du programme de Franck pour SHARP PC-1360 :
Code : Tout sélectionner
10 " " AREAD X: Y= ABS X , A=1,B=0,C=0,D=1 , E=1E-9
20 Z= INT Y , T=C+A*Z,C=A,A=T , T=D+B*Z,D=B,B=T : IF ABS ( ABS X-A/B)>E LET Y=1/(Y-Z):GOTO 20
30 PRINT X;"="; STR$ A;"/"; STR$ B : END
Code : Tout sélectionner
001 LBL"FRC // Le nombre est pris en x:
002 ABS STO 00 STO 05 // Je ne tiens compte que de la valeur absolue
005 1 STO 01 STO 04 LOG STO 02 STO 03 // a b c d sont respectivement initialisés à 1 0 0 1
011 * LBL 00 // BOUCLE PRINCIPALE
012 RCL 03 RCL 01 STO 03 RCL 05 INT * + STO 01 // Echange de a et c puis calcul du nouveau a
020 RCL 04 RCL 02 STO 04 RCL 05 INT * + STO 02 // Echange de b et d puis calcul du nouveau b
028 / RCL 00 - RND x=0? GTO 01 // Sort si a/b suffisamment proche du x initial
034 RCL 05 ENTER^ INT - 1/x STO 05 GTO 00 // Calcule fraction continue y suivante et boucle
041 * LBL 01
042 FIX 0 CLA ARCL 01 "~/ ARCL 02 // Affiche la fraction simple dans registre alpha
047 FIX 9 AVIEW
049 .END.
Code : Tout sélectionner
REGISTRES:
00: x.xxxx 01:a 02:b 03:c 04:d 05:y
UTILISATION
Choisir la précision à l'aide de la commande FIX n
Saisir le nombre décimal
XEQ "FRC
La fraction s'affiche. Elle est en mémoire dans R01: et R02:
Code : Tout sélectionner
FIX 0 2.555 "FRC 3/1
FIX 1 2.555 "FRC 23/9
FIX 2 2.555 "FRC 23/9
FIX 3 2.555 "FRC 488/191
FIX 4 2.555 "FRC 488/191
FIX 5 2.555 "FRC 511/200
FIX 6 2.555 "FRC 511/200
...
FIX 9 2.555 "FRC 511/200
Modifié en dernier par C.Ret le 31 oct. 2017 08:27, modifié 5 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.
- Thierry Loiseau
- Fonctionne à 1200 bauds
- Messages : 823
- Enregistré le : 10 avr. 2004 22:23
- Localisation : Terrasson (Périgord)
- Contact :
Re: [FX-702P... etc] Fraction et réduction illimitées pour N
Merci C.Ret !
Et voilà que ma 41C merdoie
Je tente de la mettre en marche, et elle "plante" : "MEMORY LOST" en boucle et d'autres trucs bizares... je suis obligé de dégager le bloc que je venais de fournir de piles LR-1 fraichement achetées
Et voilà que ma 41C merdoie
Je tente de la mettre en marche, et elle "plante" : "MEMORY LOST" en boucle et d'autres trucs bizares... je suis obligé de dégager le bloc que je venais de fournir de piles LR-1 fraichement achetées
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/