TI-62 Galaxy

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
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3405
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: TI-62 Galaxy

Message par C.Ret »

Andromede a écrit : 08 févr. 2022 10:42Sur la TI-62, à 64 pas de programme les registres R7 et R6 sont déjà consommés car transformés en 14 pas de programme. Donc, tout le code qui fait référence à ces registres va générer une erreur. :(
Oui, je me suis rendu compte que mon code était bien trop long au moment où je m'apprêtais à le publier. C'est dommage, on ne peut avoir les fonctions F et G présentes simultanément dans la mémoire de la TI-62 Galaxy.

Code : Tout sélectionner

00   LBL G          11     =            22    Dsz           
01   x◄►t           12   Intg           23 ◊ STO+4          
02 ● LBL 0          13   STO 0          24    Dsz           
03    PI            14     1            25 ◊ STO+5          
04    LN            15   STO+0          26    Dsz           
05   STO+7          16    Dsz           27 ◊ STO+6          
06   EXC 7          17 ◊ STO+1          28   RCL 1          
07   Frac           18    Dsz           29    x<t?          
08   STO 7          19 ◊ STO+2          30 ◊ GTO 0          
09     ×            20    Dsz           31   GTO F          
10     6            21 ◊ STO+3
Il faut donc envisager d'effacer le programme G après la générations des tirages et saisir le programme F pour calculer le Khi², ce qui est loin d'être très pratique ou efficace :(

Code : Tout sélectionner

00 ● LBL 1          09 ● LBL F                              
01   STO+0          10   RCL 1          21   SBR 1          
02     )            11     ÷            22   RCL 4          
03     x²           12     6            23   SBR 1          
04     +            13     =            24   RCL 3          
05     (            14   STO 0          25   SBR 1          
06   RCL 0          15    1/x           26   RCL 2          
07     -            16     ×            27   SBR 1          
08   inv SBR        17     (            28   RCL 1          
                    18   RCL 6          29   SBR 1          
                    19   SBR 1          30   RCL 0          
                    20   RCL 5          31     =            
Come je le disais précédemment, il est difficile de faire mieux que la solution proposée par Schraf.
Modifié en dernier par C.Ret le 12 févr. 2022 13:35, modifié 1 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.
Andromede
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 157
Enregistré le : 09 oct. 2021 15:15

Re: TI-62 Galaxy

Message par Andromede »

Bonsoir,
Ta solution reste tout de même très intéressante C.Ret. On l'exploitera par la suite quand on traitera de la TI-66 et également de la TI-95 Procalc :D
Casio FX-850P, FX-880P, FX-7000G, FX-7000GA, FX-3900P
Canon X-07
Sharp E500, EL-9000, PC 1500
Texas Instruments TI-57 II, TI-62 Galaxy, TI-66 Programmable, TI-74 Basicalc, TI-74S, TI-95 Procalc
" Les machines un jour pourront résoudre tous les problèmes, mais jamais aucune d'entre elles ne pourra en poser un !" Albert Einstein
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3405
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: TI-62 Galaxy

Message par C.Ret »

Andromede a écrit : 11 févr. 2022 21:15On l'exploitera par la suite quand on traitera de la TI-66 et également de la TI-95 Procalc :D
Mais non, point du tout ! Avec ces deux calculatrices, ma solution ne sert vraiment à rien, car il est bien plus malin d'utiliser l'adressage indirect qu'elles proposent.

Et alors, on peut faire un code presque aussi court que celui que j'ai posté plus haut pour HP-15C, surtout avec la TI-95 PROCALC qui a une instruction générant des nombres pseudo-aléatoires.
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.
Andromede
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 157
Enregistré le : 09 oct. 2021 15:15

Re: TI-62 Galaxy

Message par Andromede »

C.Ret a écrit : 12 févr. 2022 13:44 Et alors, on peut faire un code presque aussi court que celui que j'ai posté plus haut pour HP-15C, surtout avec la TI-95 PROCALC qui a une instruction générant des nombres pseudo-aléatoires.
Oui, parfaitement d'accord avec toi C.Ret :D
En attendant, je propose d'explorer le code suivant : 8O
Jeu du loup et des quatre agneaux
Adapté sur TI-62 Galaxy
L'Ordinateur de poche n° 9
Décembre 1982
Pages 47 à 49

Code : Tout sélectionner

00      LBL 6
01      STO 0
02      RCL 6
03      LBL 2
04      ST+ 1
05      SBR 0
06      ST - 1
07      ST+ 2
08      SBR 0
09      ST - 2
10      ST+ 3
11      SBR 0
12      ST - 3
13      ST+ 4
14      LBL 0
15      DSZ
16      RTN
17      R/S
18      LBL 4
19      STO 0
20      RCL 5
21      GTO 2
22      LBL 7
23      0
24      -
25      LBL 3
26      RCL 5
27      GTO 5
28      LBL 1
29      0
30      -
31      LBL 9
32      RCL 6
33      LBL 5
34      =
35      ST+ 7
36      RCL 1
37      x=t
38      GTO 8
39      RCL 2
40      x=t
41      GTO 8
42      RCL 3
43      x=t
44      GTO 8
45      RCL 4
46      x=t
47      GTO 8
48      RCL 7
49      R/S

Initialisation du programme
Position initiale du loup 4.8 STO 7
Position initiale du 1er agneau 1.1 STO 1
Position initiale du 2ème agneau 3.1 STO 2
Position initiale du 3ème agneau 5.1 STO 3
Position initiale du 4ème agneau 7.1 STO 4
1.1 STO 6
-0.9 STO 5
2nd Fix 1

Exemple de début de partie
SBR 1 (Le loup avance dans la direction 1 : 3.7 est sa nouvelle position)
1 SBR 6 (Le 1er agneau avance dans la direction 6)
RCL 1 (Pour connaître la nouvelle position du 1er agneau : R1 = 2.2)
...... etc

Le jeu m'a intéressé car il est à la fois très amusant et offre matière à réflexion en termes d'amélioration et d'optimisation :D

1ère amélioration : Comment afficher à la fois tout le déroulement du jeu c'est-à-dire les positions des agneaux et du loup au fur et à mesure que l'on avance dans la partie :?: 8O
Casio FX-850P, FX-880P, FX-7000G, FX-7000GA, FX-3900P
Canon X-07
Sharp E500, EL-9000, PC 1500
Texas Instruments TI-57 II, TI-62 Galaxy, TI-66 Programmable, TI-74 Basicalc, TI-74S, TI-95 Procalc
" Les machines un jour pourront résoudre tous les problèmes, mais jamais aucune d'entre elles ne pourra en poser un !" Albert Einstein
Andromede
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 157
Enregistré le : 09 oct. 2021 15:15

Re: TI-62 Galaxy

Message par Andromede »

Bonjour,
Je réfléchissais pour ma part à un sous programme qui serait appelé à la suite de chaque déplacement (loup ou agneau) en implémentant la formule suivante : :D
R1 x 10^9 + R2 x 10^7 + R3 x 10^5 + R4 x 10^3 + R7 x 10
J'aurai par exemple un affichage comme celui-ci :
2242517117
Que l'on peut lire :
Position Agneau 1 : Colonne 2, Ligne 2
Position Agneau 2 : Colonne 4, Ligne 2
Position Agneau 3 : Colonne 5, Ligne 1
Position Agneau 4 : Colonne 7, Ligne 1
Position du Loup : Colonne 1, Ligne 7

Mais cette première idée va nous consommer plusieurs pas de programme :(
Casio FX-850P, FX-880P, FX-7000G, FX-7000GA, FX-3900P
Canon X-07
Sharp E500, EL-9000, PC 1500
Texas Instruments TI-57 II, TI-62 Galaxy, TI-66 Programmable, TI-74 Basicalc, TI-74S, TI-95 Procalc
" Les machines un jour pourront résoudre tous les problèmes, mais jamais aucune d'entre elles ne pourra en poser un !" Albert Einstein
Andromede
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 157
Enregistré le : 09 oct. 2021 15:15

Re: TI-62 Galaxy

Message par Andromede »

Bonjour,
Ce que j'ai aimé dans le programme c'est l'idée d'associer les numéros de sous-programmes aux numéros des directions à prendre, que ça soit pour déplacer le loup ou les agneaux :D Par contre, le jeu se limite à déplacer le loup et les agneaux par deux joueurs utilisant la même machine, autrement dit ça remplace simplement le damier. :cry: Ce n'est pas un jeu contre la machine 8O
La capacité mémoire programme de la TI-62 GALAXY ne permet pas d'écrire un code plus élaboré :( pouvant à la fois, par exemple :
1. Effectuer des contrôles sur la disponibilité de la case ciblée avant le déplacement
2. Effectuer des contrôles sur les limites du terrain de jeu (à savoir 8x8 ou encore 10x10)
3. Afficher une erreur sans quitter le programme
4. Afficher toutes les positions occupées dans le même affichage sans passer à chaque fois par des rappels mémoires
Je ne sais pas, par la suite, si le programme a été réadapté ou non sur d'autres machines :?: 8O comme les TI-58C, TI-59, TI-66, TI-95 Procalc ou encore sur des HP (le monde merveilleux de C.Ret) :wink: histoire de voir comment il a été implémenté et quel est le principe qui a été retenu :idea: :?:
Casio FX-850P, FX-880P, FX-7000G, FX-7000GA, FX-3900P
Canon X-07
Sharp E500, EL-9000, PC 1500
Texas Instruments TI-57 II, TI-62 Galaxy, TI-66 Programmable, TI-74 Basicalc, TI-74S, TI-95 Procalc
" Les machines un jour pourront résoudre tous les problèmes, mais jamais aucune d'entre elles ne pourra en poser un !" Albert Einstein
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3405
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: TI-62 Galaxy

Message par C.Ret »

Quel drôle de jeu, il y a quatre agneaux et un loup qui doit passer dernière sans même en bouffer un au passage ??!
Image
Parait pas naturel tout ça :?
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.
Andromede
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 157
Enregistré le : 09 oct. 2021 15:15

Re: TI-62 Galaxy

Message par Andromede »

Bonsoir,
C.Ret a écrit : 18 févr. 2022 20:41 Quel drôle de jeu, il y a quatre agneaux et un loup qui doit passer dernière sans même en bouffer un au passage ??!
Vu les règles du jeu, on aurait pu l'appeler plutôt le jeu de l'agneau et des quatre loups :lol:
Casio FX-850P, FX-880P, FX-7000G, FX-7000GA, FX-3900P
Canon X-07
Sharp E500, EL-9000, PC 1500
Texas Instruments TI-57 II, TI-62 Galaxy, TI-66 Programmable, TI-74 Basicalc, TI-74S, TI-95 Procalc
" Les machines un jour pourront résoudre tous les problèmes, mais jamais aucune d'entre elles ne pourra en poser un !" Albert Einstein
Andromede
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 157
Enregistré le : 09 oct. 2021 15:15

Re: TI-62 Galaxy

Message par Andromede »

Bonsoir,
J'ai été étonné aujourd'hui de découvrir que la TI-62 GALAXY (1986) est extrêmement lente par rapport à la TI-57 (1977) pratiquement 09 ans d'écart en terme de technologie. Je le savais déjà vaguement mais sans aucune mesure comparative.

Dans le N° 6 Mai-Juin 82 de l'Ordinateur de poche en page 43, l'article parle d'un test basé sur une boucle + 1 = RST, la TI-57 atteint 280 en 1 minute alors que la TI-62 atteint le même nombre en 3min 48s.

De plus, il était possible de doubler la vitesse de la TI-57 en remplaçant la résistance de l'oscillateur (qui était en générale de 200 k-ohms) facilement réalisable pour un bidouilleur en électronique. Cela donnerait 30s pour le test de boucle. Ce qui envoie encore la TI-62 très loin derrière avec un résultat 8 x lent que celui obtenu sur la TI-57. 8O :(

Y-a-t-il possibilité de faire le même bidouillage sur une TI-62 :?:
Casio FX-850P, FX-880P, FX-7000G, FX-7000GA, FX-3900P
Canon X-07
Sharp E500, EL-9000, PC 1500
Texas Instruments TI-57 II, TI-62 Galaxy, TI-66 Programmable, TI-74 Basicalc, TI-74S, TI-95 Procalc
" Les machines un jour pourront résoudre tous les problèmes, mais jamais aucune d'entre elles ne pourra en poser un !" Albert Einstein
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: TI-62 Galaxy

Message par badaze »

Déjà. Démonter une TI 62 Galaxy sans rien casser …. c’est pas facile et le jeu n’en vaut pas la chandelle.
http://www.emmella.fr/page1921-3457-638 ... -9697.html
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.
Andromede
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 157
Enregistré le : 09 oct. 2021 15:15

Re: TI-62 Galaxy

Message par Andromede »

badaze a écrit : 25 févr. 2022 21:35 Déjà. Démonter une TI 62 Galaxy sans rien casser …. c’est pas facile et le jeu n’en vaut pas la chandelle
Merci badaze.
Je viens de voir la démonstration. Tu as raison
Casio FX-850P, FX-880P, FX-7000G, FX-7000GA, FX-3900P
Canon X-07
Sharp E500, EL-9000, PC 1500
Texas Instruments TI-57 II, TI-62 Galaxy, TI-66 Programmable, TI-74 Basicalc, TI-74S, TI-95 Procalc
" Les machines un jour pourront résoudre tous les problèmes, mais jamais aucune d'entre elles ne pourra en poser un !" Albert Einstein
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3405
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: TI-62 Galaxy

Message par C.Ret »

Andromede a écrit : 25 févr. 2022 21:22 Dans le N° 6 Mai-Juin 82 de l'Ordinateur de poche en page 43, l'article parle d'un test basé sur une boucle + 1 = RST, la TI-57 atteint 280 en 1 minute alors que la TI-62 atteint le même nombre en 3min 48s.
Ce n'est pas possible, même une TI-57 LCD va plus vite ! J'obtiens 200 au bout d'une minute sur ma TI-57 LCD.

Comment as-tu fait pour arriver à 3'48" ? Tu n'as pas ajouté un PSE j'espère, ni enclanché le mode TRACE qui affiche chaque instruction pendant 0.5" ?
Ou alors c'est justement ce mode TRACE permanent qui ruine cette machine ?

Le code doit être exactement

Code : Tout sélectionner

000 +
001 1
002 =
003 RST
Pour info, une TI-58c atteint 381 en une minute.
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.
Andromede
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 157
Enregistré le : 09 oct. 2021 15:15

Re: TI-62 Galaxy

Message par Andromede »

Bonjour,
C.Ret a écrit : 27 févr. 2022 09:34 Ce n'est pas possible, même une TI-57 LCD va plus vite ! J'obtiens 200 au bout d'une minute sur ma TI-57 LCD.
Eh bien, j'ai refais encore le test ce matin et avec le même code bien sûr
C.Ret a écrit : 27 févr. 2022 09:34 Le code doit être exactement
000 +
001 1
002 =
003 RST
Le résultat est pratiquement le même : 3 minutes et 48 secondes pour atteindre 280
J'ai été également étonné tout autant que toi C.Ret 8O
Casio FX-850P, FX-880P, FX-7000G, FX-7000GA, FX-3900P
Canon X-07
Sharp E500, EL-9000, PC 1500
Texas Instruments TI-57 II, TI-62 Galaxy, TI-66 Programmable, TI-74 Basicalc, TI-74S, TI-95 Procalc
" Les machines un jour pourront résoudre tous les problèmes, mais jamais aucune d'entre elles ne pourra en poser un !" Albert Einstein
Andromede
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 157
Enregistré le : 09 oct. 2021 15:15

Re: TI-62 Galaxy

Message par Andromede »

Bonjour,
Je suis tombé sur un article intéressant, du moins pour moi, traitant de la Conjecture Tchèque dans le n°06 Mai - Juin 82 de l'Ordnateur de poche en page 76. Je ne connaissais pas ce problème mathématique auparavant. Par curiosité, j'ai jeté un coup d’œil sur Internet et j'ai trouvé un article plutôt bien fait sur Wikipédia https://fr.wikipedia.org/wiki/Conjecture_de_Syracuse. D'après cet article, la conjecture tchèque s'appelle aussi Conjecture de Syracuse, ou Conjecture de Collatz ou Conjecture d'Ulam, ou encore Problème 3x + 1
Il s'agit en fait d'une hypothèse mathématique selon laquelle la suite de Syracuse de n'importe quel nombre entier strictement positif atteint 1. Et jusqu'à présent, cette hypothèse n'a jamais été remise en question.
Voici le Code pour un petit programme qui affiche la suite de Syracuse jusqu'à atteindre 1.

L'algorithme est le suivant :
1. Si l'entier a est pair, on le divise par 2 : a prend alors la valeur a/2 ;
2. Si l'entier a est impair, on calcule (3a + 1) / 2 et a prend cette nouvelle valeur.
3. On recommence ce traitement jusqu'à ce que a prenne la valeur 1

Code : Tout sélectionner

--------------------------------------------
Ordinateur de poche
N°6 Mai-Juin 82
Page 76
Conjecture Tchèque
TI-57 réadapté sur TI-62 GALAXY
Version 1.0
--------------------------------------------
00	STO 0
01	STO 1
02	0
03	STO 2
04	LBL 1
05	1
06	ST+ 2
07	0
08	x <> t
09	RCL 0
10	/
11	2
12	=
13	FRAC
14	x différent t
15	GTO 2
16	1
17	x <> t
18	RCL 0
19	/
20	2
21	=
22	STO 0
23	PAUSE
24	x = t
25	GTO 3
26 	GTO 1
27 	LBL 2
28	RCL 0
29	*
30	1
31	.
32	5
33	=
34	+
35	.
36	5
37	=
38	STO 0
39	PAUSE
40	GTO 1
41	LBL 3
42	RCL 1
43	R/S
44	RCL 2
45	R/S
Utilisation du programme :
1. On introduit l'entier strictement positif de départ puis on tape RST et R/S. La suite de Syracuse s'affiche un temps de pause à chaque fois, pour pouvoir les noter au besoin, et ce jusqu'à atteindre le chiffre 1
2. L'entier de départ est affiché pour mémoire à la fin de l'exécution du programme
3. On tape R/S pour connaitre le nombre d'itérations ayant été effectuées pour atteindre 1
En lisant bien l'article, on découvre aussi les notions suivantes :
1. Le temps de vol
2. Le temps de vol en altitude
3. L'altitude maximale
Donc, le programme pourrait être éventuellement amélioré pour prendre en charge ces variable. Cependant, je me pose une question 8O Existe-t-il des domaines d'application pour cette suite :?:
Casio FX-850P, FX-880P, FX-7000G, FX-7000GA, FX-3900P
Canon X-07
Sharp E500, EL-9000, PC 1500
Texas Instruments TI-57 II, TI-62 Galaxy, TI-66 Programmable, TI-74 Basicalc, TI-74S, TI-95 Procalc
" Les machines un jour pourront résoudre tous les problèmes, mais jamais aucune d'entre elles ne pourra en poser un !" Albert Einstein
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3405
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: TI-62 Galaxy

Message par C.Ret »

Tu trouveras d'autres façon de programmer tout cela dans ce fils: Misez p'tit Optimisez n°53 : la suite de Syracuse
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.
Répondre

Retourner vers « Tous les Pockets »