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

[remy]

J'ai un peu optimisé sur le JR-800 et je passe de 123 à 60octets

Code : Tout sélectionner

10 DEFDBLX:X=1:J=0
20 X=X*2:IFX=X+1THENPRINTJ,J*LOG(2):END
30 J=J+1:GOTO20

[Gilles59]

Sympa ce mpo d’anniversaire qui s’adapte à toutes les machines !

[Gilles59]

Bon, pour montrer l'exemple, voici mon premier programme pour Turbo Pascal 5.5 sur le HP 200-LX. On ne rit pas !

Cool le TP5.5. De mémoire il a les surcouches objet etc! Il a combien de ram le 500lx?
Je me demande si la 5.5 ne gérerait pas les réels double précision (remplacer ‘Real ´ par ´double ‘)

[C.Ret]

EDIT : j'ai une version 23 pas (sans compter le pas du programme P0 ou autre), mais je vous laisse chercher ;D

Il va falloir chercher encore un peu, 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

EDIT 12/03/2022: Suite à la remarque faite par zpalm dans son post du 12 mars 2022, je me vois contraint de corriger ce code erroné qui ne donne pas la bonne valeur.

Le code correct est :

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           

PO affiche 36. EXE 10.83707984

[Gilles59]

Bravo c.ret! Le MAC est un peu violent mais gagne 2 pas. Je suis quasi sûr qu’on est au mini là. Mais Je n’y mettrai pas ma main à couper car avec les mpo on ne sait jamais! Mais même sans ça mon prg est un peu plus long car je n’avais pas ton astuce pour supprimer le *2 ;D

[Danny]

Sur HP-65: 33 / 9.934

Il lui faut environ 50 secondes.

IMG_8056.jpg (89.25 Kio) Vu 5995 fois

IMG_8057.jpg (87.36 Kio) Vu 5995 fois

En fait on peut remplacer ça :

Code : Tout sélectionner

IF (X+1) <> X THEN GOTO 2
GOTO 3
LBL 2

Par simplement :

Code : Tout sélectionner

IF (X+1) = X THEN GOTO 3

Mon code :

Code : Tout sélectionner

23
11		LBL A
21
83
08		DSP .8
01		1
33 01		STO 1
00		0
33 02		STO 2
23
01		LBL 1
34 01		RCL 1
02		2
71		x
33 01		STO 1
34 01		RCL 1
41		ENTER
01		1
61		+
35 23		X=Y?
22
03		GTO 3
34 02		RCL 2
01		1
61		+
33 02		STO 2
22
01		GTO 1
23
03		LBL 3
34 02		RCL 2
34 02		RCL 2
02		2
31
08		LOG
71		x
24		RTN

[Marge]

Bon, pour montrer l'exemple, voici mon premier programme pour Turbo Pascal 5.5 sur le HP 200-LX. On ne rit pas !

Cool le TP5.5. De mémoire il a les surcouches objet etc! Il a combien de ram le 500lx?
Je me demande si la 5.5 ne gérerait pas les réels double précision (remplacer ‘Real ´ par ´double ‘)

Je suis complètement novice en pascal, mais en effet la 5.5 gère la double-précision (voir mon deuxième programme, ou plutôt ma dernière tambouille).
En revanche je ne sais pas mesurer le code 8086 compilé en mémoire vive, si tu as une idée...
Le 200LX possède 2 méga-octets de mémoire vive.

[C.Ret]

Pour SHARP PC-1211 :

Code : Tout sélectionner

 1:CLEAR :X=1                      ( 8)
 2:X=2X:IF X<>X+1 LET J=J+1:GOTO 2 (23)
 3:PRINT J,J*LOG 2                 (10)
                                    41 octets 

Il lui faut alors 19"41 pour réaliser que sa précision est 39. soit 11.7402 chiffres significatifs !

Je comprends pas pourquoi marge met les Commodore au début de la liste des machines qui ont du mal avec ce test !

Sur un Commodore C128D à 2 MHz

Code : Tout sélectionner

list

1 x=2:do:j=j+1:x=2*x:loop while x+1<>x:print j,j*log(2)/log(10)

ready.
run
 32        9.63295986

ready.
REM   Program size 47 bytes   Variables and run cost 14 bytes

Il ne lui faut qu'un quart de seconde pour se rendre compte qu'il ne sait calculer que sur ses 9 doigts ! C'est bien pour un 8 bits !


Je suis inquiet, j'ai donné le même programme à ma TI-92 II et je n'ai toujours pas de résultat.

Code : Tout sélectionner

:mpo()                    Code: 84 bytes     
:Prgm
:Local x,j
:1▸x
:-1▸j
:While x+1>x
:  x+x▸x
:  1+j▸j
:EndWhile
:Disp j,approx(j*log(2))
:EndPrgm

EDIT:
Il lui a fallu le temps de poster tout cela, mais le résultat est arrivé 2039 soit 613.8 chiffres significatifs. Bien. Pas surprenant la TI-92 II et forte en calcul sur les entiers très longs.
En mode approché, je trouve 46 soit 13.8473 chiffres significatifs.

C'est exactement ce que je trouve sur la TI-74 BASICALC

Code : Tout sélectionner

10 X=1
20 X=2*X: IF X+1<>X THEN J=J+1: GOTO 20
30 PRINT J;J*LOG(10): PAUSE

FRE(1) donne 84 bytes

[Gilles59]

J’ai bien fait de ne pas mettre ma main à couper

Code : Tout sélectionner

MAC 1 
LBL0
 XD 1 MinF MR08 M+F x=f GOTO9
ISZ GOTO0
LBL9
 MR00 HLT x 2 log = 

Édit : 19 pas.
L’astuce est d’utiliser les fonctions statistiques. On pourrait presque gagner 1 pas encore car MR09 est égal à MR00+1 à la fin.

Par contre c’est moins précis car les mémoires n’ont que 10 chiffres significatifs...

34 - 10,23

Édit : il y a peut être un bug ici. Ou pas. Je verrai ce soir :/

[bernouilli92]

Il ne lui faut qu'un quart de seconde pour se rendre compte qu'il ne sait calculer que sur ses 9 doigts ! C'est bien pour un 8 bits !

Un 8 bits qui calcule sur 9 doigts ! C’est effectivement bien

[Gilles59]

Bon, pour montrer l'exemple, voici mon premier programme pour Turbo Pascal 5.5 sur le HP 200-LX. On ne rit pas !

Cool le TP5.5. De mémoire il a les surcouches objet etc! Il a combien de ram le 500lx?
Je me demande si la 5.5 ne gérerait pas les réels double précision (remplacer ‘Real ´ par ´double ‘)

Je suis complètement novice en pascal, mais en effet la 5.5 gère la double-précision (voir mon deuxième programme, ou plutôt ma dernière tambouille).
En revanche je ne sais pas mesurer le code 8086 compilé en mémoire vive, si tu as une idée...
Le 200LX possède 2 méga-octets de mémoire vive.

Tu peux compiler en .com ou .exe et voir la taille sur disque. Mais pas d’illusion ce sera un bonne dizaine de ko minimum puisque le programme doit embarquer les bibliothèques de calcul et autres (pas de rom).

[C.Ret]

Hp48 :

Code : Tout sélectionner

« -1 1
  DO 
    2 * SWAP 1 + SWAP
  UNTIL 
    DUP DUP 1 + ==
  END 
  DROP DUP 2 LOG *
»

Taille : 62,5 octets

Résultat : 39 - 11,74017

Dans un style très semblable, sur HP-28S en utilisant la rémanence de la pile de taille infinie afin de gagner quelques octets :

Code : Tout sélectionner

« CLEAR 1
  WHILE DUP + DUP 1 + OVER ≠
     REPEAT DUP END 
  DROP DEPTH 2 LOG OVER * »

Taille 60,5 octets.

Je trouve aussi 39 et donc 11.74017 chiffres significatifs

[Hobiecat]

Sur HP-41, en version pas très optimisée.

Code : Tout sélectionner

LBL PREC
0
STO 00
1
LBL 00
2
*
ENTER
ENTER
1
+
X=Y?
GTO 01
1
ST+ 00
RDN
RDN
GTO 00
LBL 01
RCL 00
2
LOG
*
RCL 00
RTN

Le résultat : 33 - 9.933989858

[tyann]

Bonsoir

Voici une version pour Ti 95 :

Code : Tout sélectionner

000 1 STO X +/- STOJ 
006 LBL 00 INC J 2 ST* X RCL X +1= IF> X GTL 00
024 COL 03 MRG J 2 LOG ST* J OLD COL 15 MRG J HLT
038

RUN
43. 12.94428981

[Marge]

Bravo pour tous vos programmes !

On compte bien sur gege pour nous donner un résultat sur sa Canola, sur TiPoucet avec une Bowmar et sur badaze pour une ch'tite TI !

Désolé tyann, mais merci, nos messages se sont croisés...