Rapidité des pockets ?

[Thierry Loiseau]

D'après la page actuelle des résultats , tu peux mieux faire, Charo

[Tipoucet]

regarde mon article un peu plus haut page 1 sur un protocole de test

Oui voilà, c'est ce que je voulais dire... en mieux dit... beau boulot en tous cas et bon courage pour ce projet vraiment très pro

A+

[badaze]

salut

la TI57 a LED
total : 292

1 STO 0
LBL 1
SUM 0
GTO 1

Et comme ça ?
1
+
RST

Allez je me sors les doigts du TDC et je fais le test.... Résultat : 310.

[charognard]

salut

la TI57 a LED
total : 292

1 STO 0
LBL 1
SUM 0
GTO 1

Et comme ça ?
1
+
RST

Allez je me sors les doigts du TDC et je fais le test.... Résultat : 310.

il y a de la gruge là !!!!

[badaze]

salut

la TI57 a LED
total : 292

1 STO 0
LBL 1
SUM 0
GTO 1

Et comme ça ?
1
+
RST

Allez je me sors les doigts du TDC et je fais le test.... Résultat : 310.

il y a de la gruge là !!!!

Ben non. C'est permis par la machine.

Par contre :

LBL 01
0
STO 01
LBL 02
1
ST+ 01
GTO 02

Avec l'émulateur HP 41 sur iPod Touch.... 362 !!! Tain c'est pas rapide !!!

[charognard]

essai

Code : Tout sélectionner

LBL 01 
1 
STO 01 
LBL 02  
ST+ 01 
GTO 02 

ça le sera un peu plus

[badaze]

essai

Code : Tout sélectionner

LBL 01 
1 
STO 01 
LBL 02  
ST+ 01 
GTO 02 

ça le sera un peu plus

519 !!!

[C.Ret]

TI-57 LCD Programmable

Je trouve 171 ave le programme suggéré par Charognard

Code : Tout sélectionner

  --          St
  01         00        1
  61.00      01       STO 0
  23.01      02       LBL 1   
  61.85.00   03       STO+0
  22.01      04       GTO 1

171 seulement !
et
286 avec

Code : Tout sélectionner

  --          St
  85         00        +
  01         01        1
  21         02       RST

Cette TI-57 LCD n'a rien à voir avec une TI-57 !


SHARP PC-1211 :
Un autre membre du club des moins de 400 itérations à la minute :

346 avec

Code : Tout sélectionner

10 A=0
20 A=A+1:GOTO 20

et
348 (soit un gain de 0.6%) avec

Code : Tout sélectionner

1 A=0
2 A=A+1:GOTO 2

HP-28S

Pour le HP-28S, plusieurs scores selon le type de boucle et aussi le type de l'objet incrémenté et surtout les modes CMD, UNDO et LAST qui "retarde" l'exécution à chaque pas pour faire des sauvegardes:

6238 (respectivement 7482 sans CMD UNDO LAST et ML) pour boucle identique au test des HP48

Code : Tout sélectionner

« 0 DO 1 + UNTIL 0 END »

Une HP-28 va donc environ 2x moins vite qu'un HP-48.

5401 (respectivement 5422 sans CMD UNDO LAST et ML) pour boucle identique au test des HP48

Code : Tout sélectionner

« 0 DO 1 + UNTIL KEY END »

Bon la fonction KEY est pratique mais on perd un peu d'efficacité.

5003 (resp. 5093) en fait #1001110001011b (rep. #1001111100101b) avec la boucle classique manipulant des nombres binaires

Code : Tout sélectionner

BIN 13 STWS « #0b DO #1b + UNTIL 0 END »

Donc pas de "fast interger processing" sur une HP-28S !

2440 (respc. 2476) avec les complexes (0,2440) respc. (0,2476)

Code : Tout sélectionner

« (0,0) DO (0,1) + UNTIL KEY END »

1913 (respc. 1954) avec une chaine "01111111111....1111111111"

Code : Tout sélectionner

« "0" DO "1" + UNTIL KEY END »

1631 (respc. 1650) avec STO+

Code : Tout sélectionner

« 0 'A' STO DO 'A' 1 STO+ UNTIL KEY END »

Comme la récurrence, la travail enmémoire en plus lent que les calculs dans la pile.

1575 (resp. 1623 ) pour appel récursif

Code : Tout sélectionner

« 1 + INC» 'INC' STO 0 INC

Bon ben les appels récursifs s'est pas un atout.

789 (respc. 1226) en fait [ 789 ] et [ 1226 ]

Code : Tout sélectionner

« [ 0] DO [1] + UNTIL KEY END »

363 (respc. 370) avec une liste { 1 1 1 1 1 ... 1 1 1 1}

Code : Tout sélectionner

« { } DO 1 + UNTIL KEY END »

261 (resp. 269) en fait 'A+1+1+1+1+1+...+1+1+1+1' en mode algébrique , mais il faut presque encore deux minutes supplèmentaires pour que le résultat s'affiche et encore deux heures pour obtenir le résultat 'A+261' par la commande COLCT:

Code : Tout sélectionner

« 'A' DO 1 + UNTIL 0 END »

Bon la calcul formel n'est pas le plus rapide des calculs, ce qui était attendu.


TI-74 BASICALC

Mon TI74 fait mieux que mon HP28;
6985 avec le programme BASIC suivant

Code : Tout sélectionner

10 A=0
20 A=A+1:GOTO 20

.



Commodore VIC-20 et C128D

Pour un VIC-20 (qui a eut pas du mal à ce remettre en route - un fusible était mort et le canal vidéo difficile à retrouvé à cause d'un téléviseur LCD avec une recherche manuelle fastidieuse)

17068 avec

Code : Tout sélectionner

10 A%=0
20 A%=A%+1:GOTO 20

et
19092 avec

Code : Tout sélectionner

10 A=0
20 A=A+1:GOTO 20

Surprenant, le BASIC perd plus de temps à interpréter les '%' qu'il n'en gagne à faire une addition sur un nombre entier.

Pour un C128D en mode FAST :
22564 avec

Code : Tout sélectionner

10 A%=0
20 A%=A%+1:GOTO 20

et
24582 avec

Code : Tout sélectionner

10 A=0
20 A=A+1:GOTO 20

Bon d'accors, c'est pas des pockets, mais ils se trainent bien et le C128D est à peine 2x plus rapide que son frère ainé.

[zpalm]

HP 12C:
523 avec le code suivant:

Code : Tout sélectionner

01 1
02 STO 0
03 STO + 0
04 GTO 03

HP 16C:
290 avec le code suivant:

Code : Tout sélectionner

01 1
02 STO I
03 LBL 0
04 ISZ
05 GTO 0
06 GTO 0

Sharp PC 1403:
2028 avec le code suivant:

Code : Tout sélectionner

10:A=0
20:A=A+1
30:GOTO 20

[Marcus von Cube]

J'ai trouve une autre solution pour le 32S : viewtopic.php?p=278960#278960

Résultat : 5479.

Le PB-770 :

10 A=1
20 A=A+1:GOTO 10

==> 1274

TI-66 :

000 +
001 1
002 RST
003 LBL A
004 CLR
005 RST

==> 283

Cette machine n'est pas trop vite !

HP 17bII (+) :

B=A+SIGMA(N:1:1E99:1:L(A:N))

Solvez pour B et pressez RCL A après stop.
==>1604 (1431)

HP-20S :

Code : Tout sélectionner

01  61 41 b     LBL B
02  75          +
03  1           1
04  51 41 b     GTO B
05  61 41 A     LBL A
06  71          C
07  51 41 b     GTO B

==> 3815

Bonne nuit !

[zpalm]

HP 17bII (+) :

B=A+SIGMA(N:1:1E99:1:L(A:N))

Solvez pour B et pressez RCL A après stop.
==>1604 (1431)

Bonne nuit !

Sur mon 17BII datecode 3249S j'obtient 1450 avec la même formule.
Ne pas oublier d'initialiser A avant de résoudre pour B:

Code : Tout sélectionner

1 [A]
[B] en même temps qu'on lance le chronomètre
EXIT au bout d'une minute
RCL A

[Marcus von Cube]

zpalm, Il n'est pas nécessaire de initialiser A parce A est modifié dans le boucle par L(A:N).

[Tipoucet]

C'est le printemps, tous les pockets sont de sortie on dirait. Ca fait plaisir à voir !



Bonne nuit à tous

[zpalm]

zpalm, Il n'est pas nécessaire de initialiser A parce A est modifié dans le boucle par L(A:N).

Exact ... sauf après un CLEAR DATA, dans ce cas on obtient B=0,00 tout de suite. C'est ce que j'ai eu la première fois après avoir rentré l'équation.

Pour la HP-20S j'obtient 6104 avec le programme donné sur la page de Paul Tergeist:

Code : Tout sélectionner

01-  1        1
02- 21 0      STO 0
03- 61 41 0   LBL 0
04- 21 75 0   STO + 0
05- 51 41 0   GTO 0

[Xerxes]

One of the slowest: TI-62 with 110 loops/s

Code : Tout sélectionner

00  1
01  STO 0
02  LBL 1
03  ST+ 0
04  GTO 1

J'ai peur que le problème des tests de rapidité, c'est qu'ils donnent des résultats trop différents selon la façon dont le programme est écrit ou selon le type de tâche qu'il exécute...

This was the reason why I choosed the n-queens problem to compare the speed. I know that this
test alone cannot be an overall benchmark, but I think it gives a more accurate estimation of the
basic elements of the programming language than a simple count test.