[FX-702P... etc] Fraction et réduction illimitées pour Noël

[Thierry Loiseau]

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 

Oups ! J'aurais bien besoin d'une explication de "texte" là

[Thierry Loiseau]

Je viens de comprendre ! Il double la valeur 1 - 2 - 4 - 8... Astucieux !

[zpalm]

Oui c'est ça, ça permet de tout faire dans les registres X et L.

[Thierry Loiseau]

Oui c'est ça, ça permet de tout faire dans les registres X et L.

C'est superbe au niveau optimisation ! Bravo. Et une solution pour éviter de stocker le résultat autrement que sur un STO XX ?

[zpalm]

Et une solution pour éviter de stocker le résultat autrement que sur un STO XX ?

Oui, il est possible de construire le résultat directement dans le registre final, du coup on gagne 2 pas :

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]

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.

Très intéressant !

[C.Ret]

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 :

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: 

On peut facilement retrouver les résultats précèdent en fonction de la précision:

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

[Thierry Loiseau]

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