MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique

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

Répondre
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: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique

Message par Marge »

Félicitations, C.Ret, ton programme boucle parfaitement et aboutit aux résultats escomptés en 51 secondes.
Tu ne nous as pas déçus, bravo !

Il faudra juste que je puisse déterminer le nombre d'octets, car il n'est pas donné dans le livret Mondimat et je ne sais si les pas occupent 8 bits ou moins... Enfin, l'important est que ça fonctionne très bien. :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
Schraf
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 499
Enregistré le : 05 mars 2020 20:45
Contact :

Re: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique

Message par Schraf »

Sur la puissante CASIO fx-92+ Spéciale Collège en mode Algorithmique on trouve J = 40 et J.log(2) = 12,04

40 et 12,04
40 et 12,04
fx-92Plus.jpg (14.29 Kio) Vu 6875 fois

La CASIO fx-92+ a un Menu "Vérification" qui confirme le résultat précédent :

Menu vérification
Menu vérification
Verification.png (31.72 Kio) Vu 6850 fois
La balance est correcte...
La balance est correcte...
2Puissance39.png (17.29 Kio) Vu 6850 fois
puis se casse...
puis se casse...
2Puissance40.png (16.33 Kio) Vu 6850 fois
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique

Message par C.Ret »

Bon, avec le code suivant, on trouve une précision de 43. correspondant à 12.944 chiffres sur une TI-58c. j'imagine que c'est le même résultat sur les TI58 et Ti59 !
MPO 97 Ti58c (merged).gif
MPO 97 Ti58c (merged).gif (13.95 Kio) Vu 5640 fois
MPO 97_ Ti58c Précision 43.jpg
MPO 97_ Ti58c Précision 43.jpg (102.91 Kio) Vu 5640 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.
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: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique

Message par Marge »

Quel bel affichage que celui des TI à diodes électroluminescentes !
On ne le dit pas trop, mais il semble même plus élégant que celui des concurrentes qui, il est vrai, avaient d’autres atouts à faire valoir !
Merci d’avoir réveillé ce fil. :)
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
zpalm
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2918
Enregistré le : 03 mai 2008 15:33
Localisation : Grenoble

Re: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique

Message par zpalm »

J’ai relu ce MPO et je n’ai pas vu mention de la WP 34S.
En 14 pas et 28 octets:

Pendant le programme N est dans le registre X et J dans Y, à la fin J est dans Y et J*LOG(2) dans X

Code : Tout sélectionner

001 LBL A
002 c#001    // X=1, Y=0
003 DEC Y    // X=1, Y=-1
004♦INC Y    // Y=J+1
005 STO+ X   // X=2*N
006 STO Z    // X=2*N, Y=J, Z=2*N
007 INC Z    // X=2*N, Y=J, Z=2*N+1
008 x#? Z
009 BACK 005
010 <>YYXT   // X=J, Y=J, Z=2*N
011 2
012 LOG
013 x        // X=P, Y=J, Z=2*N
014 END
Avec DBLOFF on obtient 53 - 15.9545897702
Avec DBLON on obtient 112 - 33.7153595144

Ce qui correspond à la précision de 16 ou 34 chiffres en mode simple ou double précision de la 34S.
Avatar du membre
Over_score
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 167
Enregistré le : 26 mars 2019 14:55
Localisation : Pas loin de Smartville

Re: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique

Message par Over_score »

Il y avait un article intéressant à ce sujet dans « L'ordinateur de poche » numéro 9, des pages 66 à 68.
Page 66
Page 67
Page 68
Avatar du membre
zpalm
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2918
Enregistré le : 03 mai 2008 15:33
Localisation : Grenoble

Re: MPO 96 Spécial 10e Anniversaire : Précision arithmétique

Message par zpalm »

J’en ai aussi profité pour me familiariser avec ma récente 603p et voici le résultat en 22 pas:

Code : Tout sélectionner

     1 MinF 0 Min00                  0004
LBL1 MRF M+F MRF + 1 = x=F? GOTO 2   0013
     ISZ GOTO1                       0015
LBL2 MR00 HLT x 2 log =              0022
P0 affiche 39. EXE 11.74016983

C’est un peu plus long que le code de C.Ret pour la 602p mais il n’y a pas de remise à zéro de toutes les variables, de plus il me semble que ce code en 20 pas fait une boucle de trop car il part avec 0 dans F et donc à la première boucle on a M+F qui donne 1 au lieu de 2, il faudrait sans doute rajouter MinF après MAC 1:
C.Ret a écrit : 17 oct. 2020 14:26 j'ai une première version en 21 pas:

Code : Tout sélectionner

P0                              (491)
     MAC 1                       002
LBL0 M+F MRF + 1 = x=F? GOTO9    010    
     MRF ISZ GOTO0               013              
LBL9 MR00 HLT * 2 log =          020           
PO affiche 37. EXE 11.1381
La 603p semble donc un peu plus précise que la 602p.
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: MPO 96 Spécial 10e Anniversaire : Précision arithmétique

Message par C.Ret »

zpalm a écrit : 12 mars 2022 15:26 [...] de plus il me semble que ce code en 20 pas fait une boucle de trop car il part avec 0 dans F et donc à la première boucle on a M+F qui donne 1 au lieu de 2, il faudrait sans doute rajouter MinF après MAC 1:
Très juste, mon code ne donne pas le bon résultat. Le code original proposé par marge renvoi J=0 lorsque 2+1 = 3 est confondu avec 2. Mon code, renvoi J=0 (en fait MR00 ) lorsque 1+1=2 est confondu avec 1.

Le code correct est donc :

Code : Tout sélectionner

P0                              (491)
     MAC 2                       002
LBL0 M+F MRF + 1 = x=F? GOTO9    010    
     MRF ISZ GOTO0               013              
LBL9 MR00 HLT * 2 log =          020        
Qui donne J = 36. et donc environ 10.837 chiffres significatifs ce qui semble être la bonne valeur confirmée en premier lieu par Gilles59 et à l'instant en utilisant le code de zpalm.
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
badaze
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 8384
Enregistré le : 12 févr. 2007 18:36
Localisation : Pas très loin de Lyon
Contact :

Re: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique

Message par badaze »

Avec une TI 95 j’obtiens 43 - 12,94429

Code : Tout sélectionner

1 STO 001 0 STO 002 LBL 30 RCL 001 * 2 = STO 001 (RCL 001 +1) INV IF= 001 GTL 60 GTL 80 
LBL 60 RCL 002 +1 = STO 002 GTL 30 LBL 80 RCL 002 BRK RCL 002 * 0.30103 = HLT
Edit. J’avais oublié un =.
Tout est bon dans le pocket.
Moi j'aime tout.... Casio, HP, Sharp, TI et les autres sauf que les TI semblent ne pas m'aimer :(
http://www.emmella.fr
Mes Casio - HP - Sharp - TI
Homme invisible.
Avatar du membre
zpalm
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2918
Enregistré le : 03 mai 2008 15:33
Localisation : Grenoble

Re: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique

Message par zpalm »

Sur ma Sharp PC-1300S j'obtient 33 - 9.93399 (comme la 41C) avec le programme suivant:

Code : Tout sélectionner

00; "A",PRT "MPO97"
01; 1=>X,0=>J
02; 2*X=>X
03; IF X+1=X,GTO 5
04; J+1=>J,GTO 2
05; PRT J,PRT J*LOG(2) 
06; END
Image Image Image Image

A la fin du listing on a le nombre de pas utilisés (59) et le nombre de pas restant (581) sur les 640 pas du PC-1300S (256 pour le PC-1300 original).
Modifié en dernier par zpalm le 16 mars 2022 16:06, modifié 2 fois.
Avatar du membre
badaze
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 8384
Enregistré le : 12 févr. 2007 18:36
Localisation : Pas très loin de Lyon
Contact :

Re: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique

Message par badaze »

zpalm a écrit : 16 mars 2022 13:36 Sur ma Sharp PC-1300S j'obtient 33 - 9.93399 avec le programme suivant:
Un jour, j’en aurai une !
Tout est bon dans le pocket.
Moi j'aime tout.... Casio, HP, Sharp, TI et les autres sauf que les TI semblent ne pas m'aimer :(
http://www.emmella.fr
Mes Casio - HP - Sharp - TI
Homme invisible.
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: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique

Message par Marge »

badaze a écrit : 16 mars 2022 13:43
zpalm a écrit : 16 mars 2022 13:36 Sur ma Sharp PC-1300S j'obtient 33 - 9.93399 avec le programme suivant:
Un jour, j’en aurai une !
À un euro ? :wink:
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
badaze
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 8384
Enregistré le : 12 févr. 2007 18:36
Localisation : Pas très loin de Lyon
Contact :

Re: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique

Message par badaze »

Marge a écrit : 16 mars 2022 17:09
badaze a écrit : 16 mars 2022 13:43
zpalm a écrit : 16 mars 2022 13:36 Sur ma Sharp PC-1300S j'obtient 33 - 9.93399 avec le programme suivant:
Un jour, j’en aurai une !
À un euro ? :wink:
Sur un malentendu !
Tout est bon dans le pocket.
Moi j'aime tout.... Casio, HP, Sharp, TI et les autres sauf que les TI semblent ne pas m'aimer :(
http://www.emmella.fr
Mes Casio - HP - Sharp - TI
Homme invisible.
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: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique

Message par Marge »

Bon, on commence à avoir fait le tour des machines, là. Il ne manque plus que la Canola de gege et je pourrai sortir un super-tableau des performances... comme promis, avant le vingtième anniversaire ! :D

Ou bien ? En voyez-vous d'autres qui manquent ?
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é.
JCH
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 482
Enregistré le : 28 oct. 2018 17:28
Localisation : Entre Lyon et St Etienne
Contact :

Re: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique

Message par JCH »

Et pas un petit test avec une Casio fx-180P ?

Code : Tout sélectionner

Initialisation :
1 +/- Min
1 Kin 1

Code : Tout sélectionner

Programme :
1 M+
Kout 1 * 2 = Kin 1
+ 1 - Kout 1 =
X>0
Mr * 0.30103 =
Et le résultat est identique pour toute les variantes : 36 itérations, soit 10.83708 digits, avec quelques variations dans les temps de calcul :
  1. fx-180P Plus : 2''
  2. fx-180PV : 5''
  3. fx-180P : 16''
  4. fx-180PA : 23''
Répondre

Retourner vers « Tous les Pockets »