MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique
Modérateur : Politburo
- Marge
- Fonctionne à 14400 bauds
- Messages : 6189
- 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
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.
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.
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: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique
Sur la puissante CASIO fx-92+ Spéciale Collège en mode Algorithmique on trouve J = 40 et J.log(2) = 12,04
La CASIO fx-92+ a un Menu "Vérification" qui confirme le résultat précédent :
La CASIO fx-92+ a un Menu "Vérification" qui confirme le résultat précédent :
- C.Ret
- Fonctionne à 9600 bauds
- Messages : 3422
- 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
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 !
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.
- Marge
- Fonctionne à 14400 bauds
- Messages : 6189
- 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
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.
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é. ♥ ♠
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é. ♥ ♠
- zpalm
- Fonctionne à 9600 bauds
- Messages : 2936
- Enregistré le : 03 mai 2008 15:33
- Localisation : Grenoble
Re: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique
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
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.
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 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.
- Over_score
- Fonctionne à 300 bauds
- Messages : 171
- Enregistré le : 26 mars 2019 14:55
- Localisation : Pas loin de Smartville
- zpalm
- Fonctionne à 9600 bauds
- Messages : 2936
- Enregistré le : 03 mai 2008 15:33
- Localisation : Grenoble
Re: MPO 96 Spécial 10e Anniversaire : Précision arithmétique
J’en ai aussi profité pour me familiariser avec ma récente 603p et voici le résultat en 22 pas:
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:
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
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:
La 603p semble donc un peu plus précise que la 602p.C.Ret a écrit : ↑17 oct. 2020 14:26 j'ai une première version en 21 pas:PO affiche 37. EXE 11.1381Code : 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
- C.Ret
- Fonctionne à 9600 bauds
- Messages : 3422
- 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
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
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.
- badaze
- Fonctionne à 14400 bauds
- Messages : 8411
- 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
Avec une TI 95 j’obtiens 43 - 12,94429
Edit. J’avais oublié un =.
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
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.
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.
- zpalm
- Fonctionne à 9600 bauds
- Messages : 2936
- Enregistré le : 03 mai 2008 15:33
- Localisation : Grenoble
Re: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique
Sur ma Sharp PC-1300S j'obtient 33 - 9.93399 (comme la 41C) avec le programme suivant:
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).
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
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.
- badaze
- Fonctionne à 14400 bauds
- Messages : 8411
- 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
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.
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.
- Marge
- Fonctionne à 14400 bauds
- Messages : 6189
- 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
À un euro ?
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é. ♥ ♠
- badaze
- Fonctionne à 14400 bauds
- Messages : 8411
- 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
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.
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.
- Marge
- Fonctionne à 14400 bauds
- Messages : 6189
- 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
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 !
Ou bien ? En voyez-vous d'autres qui manquent ?
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é. ♥ ♠
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é. ♥ ♠
-
- Fonctionne à 1200 bauds
- Messages : 484
- 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
Et pas un petit test avec une Casio fx-180P ?
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 :
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 =
- fx-180P Plus : 2''
- fx-180PV : 5''
- fx-180P : 16''
- fx-180PA : 23''