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

Ben
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1724
Inscription : 21 août 2016 19:04

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

Message par Ben » 18 oct. 2020 12:43

Il ne faut pas oublier le PC-E500, il a une double précision, on trouve 66 - 19.86

Avatar de l’utilisateur
Marge
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 5200
Inscription : 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 » 18 oct. 2020 12:46

Ben a écrit :
18 oct. 2020 12:43
Il ne faut pas oublier le PC-E500, il a une double précision, on trouve 66 - 19.86
C'est bien si tu peux donner le programme et le poids, sinon je ne pourrai rien classer.
3 hommes, 3 demis, un 3a... Magnéto, Serge !

« Boris », c'est juste Maurice enrhumé.

Avatar de l’utilisateur
C.Ret
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2279
Inscription : 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 » 18 oct. 2020 13:46

Gilles59 a écrit :
18 oct. 2020 10:05
... le newRPL sur HP50g écrase la concurrence pour ce qui est de la précision :mrgreen: ...
La concurrence est peut-être écrasée, mais il y a des rivalités internes à cause d'engins plus puissants et qui ont déjà en plus tout ce qui faut pour les graphismes 2D et 3D, les animations, les statistiques, les examens ou le Wifi :
MPO 97 HP Prime PRESCision tests codes.png
MPO 97 HP Prime PRESCision tests codes.png (8.68 Kio) Consulté 131 fois
En mode CAS, comme le NewRPL ou les Ti 92, Ti NSpire, CASIO , ... on atteint des sommets ! Ici, je suis dans l'Himalaya avec une bonne altitude de 8598 soit 2588.25 avec la configuration par défaut et sans optimisation.

Y a juste que contrairement à l'HP-50g, elle est complétement schizophrène avec ces deux modes de fonctionnement !
MPO 97 HP Prime PRESCision tests.png
MPO 97 HP Prime PRESCision tests.png (9.96 Kio) Consulté 131 fois
En mode approché, je trouve 47 ce qui correspond à 14.1484 chiffres significatifs.
SHARP PC-1211 + CE-121 + CE-122. | VIC 20 Commodore 128D + Printer P-803 + SD2iec. | TI-57 LCD | TI-74 BasiCalc | TI-92 II | HP-28S + HP82240A | HP-41C + (2 memory + stat + IR) modules. | HP Prime Wireless Graphing Calculator | HP-15C | CASIO fx-602p + FA-1. .Sommaire des M.P.O.. . Sommaire du P.C.T.M. .

Ben
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1724
Inscription : 21 août 2016 19:04

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

Message par Ben » 18 oct. 2020 14:44

Marge a écrit :
18 oct. 2020 12:46
Ben a écrit :
18 oct. 2020 12:43
Il ne faut pas oublier le PC-E500, il a une double précision, on trouve 66 - 19.86
C'est bien si tu peux donner le programme et le poids, sinon je ne pourrai rien classer.
Le E500, c'est du BASIC Sharp classique, il a juste la possibilité d'avoir du double précision, soit avec le DEFDBL, soit avec le '#'.

Code : Tout sélectionner

10 X#=1:J=0
30 X#=X#*2
40 IF X#+1=X# THEN 80
60 J=J+1:GOTO 30
80 PRINT J,J*LOG 2
Programme classique, 113 Octets de programme, plus 17 octets de variable X#

Gilles59
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1346
Inscription : 27 oct. 2010 20:46

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

Message par Gilles59 » 18 oct. 2020 22:49

Marge a écrit :
16 oct. 2020 02:05
Bon, pour montrer l'exemple, voici mon premier programme pour Turbo Pascal 5.5 sur le HP 200-LX. On ne rit pas !

Code : Tout sélectionner

Program PrecArit;
Label
	1,2,3;
Var
	X,J	: real;
Begin
	X := 1;
	J := 0;
1
  :	X := X * 2;
	If (X+1) <> X Then Goto 2;
	Goto 3;
2  
  :	J := J + 1;
  	Goto 1;
3
  :	Write('J= ',J);
  	Write('   Précision décimale : ',J * 0.30103)
End.  	
J= 3.9000000000E+01 Précision décimale : 1.1740170000E+01
PRECARIT.PAS 292 octets
Sans surprise je trouve exactement le même résultat en TurboPascal3 sur CPC6128.

Code : Tout sélectionner

Program Précision;
Var x:Real; j:Integer;
Begin
 x:=2; j:=0;
 Repeat x:=x+x; j:=j+1 Until x=x+1;
 Write (j,j*0.30103);
End.
Le code compilé (hors bibliothèque) fait 181 octets. (pour le voir, compiler en mémoire).
Je ne sais plus dans quelle version ça apparait, mais Inc(j) est équivalant à j:=j+1 dans les dernières version de TP.
Dernière édition par Gilles59 le 18 oct. 2020 23:01, édité 1 fois.
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49G+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+

Avatar de l’utilisateur
Marge
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 5200
Inscription : 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 » 18 oct. 2020 22:57

Ah oui, bien, maintenant je peux rire de mon programme ! Le tien est bien mieux ficelé, j'avais bien songé à cette boucle sans encore savoir la mettre en œuvre.
Blague à part, je suis surpris qu'on puisse donner un nom long à ce type de programme...
3 hommes, 3 demis, un 3a... Magnéto, Serge !

« Boris », c'est juste Maurice enrhumé.

Gilles59
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1346
Inscription : 27 oct. 2010 20:46

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

Message par Gilles59 » 18 oct. 2020 23:06

Marge a écrit :
18 oct. 2020 22:57
Ah oui, bien, maintenant je peux rire de mon programme ! Le tien est bien mieux ficelé, j'avais bien songé à cette boucle sans encore savoir la mettre en œuvre.
Blague à part, je suis surpris qu'on puisse donner un nom long à ce type de programme...
A dire vrai, j'ai longtemps pensé que les GOTO n'existaient pas en Pascal ;D Je continue mon exploration du Pascal sur CPC6128. Prochaine vidéo à venir sur les graphismes...
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49G+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+

Avatar de l’utilisateur
Danny
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 271
Inscription : 28 déc. 2013 17:34

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

Message par Danny » 19 oct. 2020 19:59

Sur HP-42S, même résultat que sur HP-48 : 39 - 11,74017
Sur Casio Graph 100+, un résultat inédit a priori : 49 - 14,75

Pour le fun, la HP-33 pour qui le résultat est... 33 - 9.934 :) comme ses sœurs HP classiques.

IMG_8106.jpg
IMG_8106.jpg (71.06 Kio) Consulté 36 fois
Casio fx-3900p, 7000G, 6000G, 6800G, 8500G, 9900GC, Graph 100+ USB
HP 35, 45, 65, 21, 25, 33E, 41CX, 42S, 28S, 32SII, 48SX, 48GX, 50g, Prime

Répondre

Revenir vers « Tous les Pockets »