Forum

C.Ret

Ah! Super !
Je savais que les CASIO avaient du caractère! mais ce n'est pas un drame ?! Alors pourquoi avez-vous appelé la police ?

C.Ret

Over_score a écrit : ↑25 févr. 2024 20:02pour n=422825625 le résultat exact est 3931581 + 79/143
pour n=1e9 c'est 7497924 + 5/178
pour n=1e10 c'est 42163787 + 19/158

Je te remercie pour ces précisions, cela me rassure, il semblerai donc que la formule que j'utilise soit la bonne. J'avais un doute, on a vite fait de faire des erreurs d'arrondi !

Over_score a écrit : ↑25 févr. 2024 20:09Mon programme ne fait pas 10⁹ boucles pour n=10⁹ mais 177 pour n=10¹⁰ il fait 315 boucles en 2.9". Je retrouve d'ailleurs ce nombre de boucles dans une photo d'écran un peu plus haut.

Oui, pardon, dimanche soir j'avais lu un peu trop vite ton code et j'avais confondu les variables; je viens de prendre le temps de l'étudier plus en détail et il est basé sur le même fait spécifique de cette série S_n que le mien. Effectivement les changements de valeur des ∜x permettent de simplifier le calcul de S_n. Et nous arrivons exactement aux mêmes résultats mais par des calculs forts différents.

Ma première version sur HP-15C effectuait le calcul de la série S_n pas à pas en additionnant chaque terme de la somme. C'est tellement lent sur une HP-15C antédiluvienne, j'ai du mal à remplir le TABLEAU 1 en une seule après-midi. La boucle de ce premier programme utilisait justement un DSE, d'où ma remarque concernant son absence.

Over_score a écrit : ↑26 févr. 2024 10:50Donc mon programme n'a plus de boucle […] Un peu plus long, 45 pas mais plus que 2 registres.

Mon programme lui aussi utilise deux registres (ce n'est pas indispensable mais bien pratique). Par contre, sur HP-15C, il ne fait que 20 pas (n'ayant qu'un seul code en mémoire, je n'ai pas utilisé de LBL ni de RTN. Par contre, il contient un FIX 0 et un FIX 4 dont on peut se passer, mais j'ai trouvé plus pratique de les programmer. Surtout cela m'évite d'oublier de changer le mode d'affichage avant de lancer un calcul et d'avoir toutes les décimales une fois celui-ci réalisé par la machine.

Je ne donnerai pas le listing tout de suite et je vous laisse un peu chercher. Ce qui me laissera le temps de mieux comprendre le code d'Over_Score et de trouver la relation qui existe entre sa formule et la mienne. Je suis peut-être passé à coté de quelque chose; mon explication sera plus claire.
Car je dois vous l'avouer, mon cheminement pour arriver au code optimisé actuel n'est pas une ballade facile mais une vraie aventure…

Zebulon a écrit : ↑27 févr. 2024 10:14
FLISZT a écrit : ↑27 févr. 2024 03:51C'est très différent de ce que je trouve : 1 + 1/u(2) + 1/u(3) + … + 1/u(177) + 1/u(178) soit environ 65,9999999963.
Sauf erreur de ma part tu te trompes, n n'est pas l'entier préalablement déterminé, n est n...
Donc ta somme doit être 1 + 1/u(2) + 1/u(3) + … + 1/u(10⁹-1) + 1/u(10⁹)

Merci Zebulon, à lire FLIST, j'ai eu peur de m'être mal exprimé et d'avoir laissé une ambiguïté dans l'énoncé. Je vois que j'ai été suffisamment clair.

FLISZT a écrit : ↑27 févr. 2024 03:51[...]Pour cela, il faut x ≥ 0, sinon on n'obtient pas un entier mais un nbr complexe.
Corrigez-moi, si je me trompe.

Très cher FLISZT, tu ne te trompes pas, effectivement il faut x≥0 sinon, on ne peut calculer ∜x la racine quatrième de x.
Il faut de plus que x>0 car sinon, on ne peut utiliser son inverse dans le calcul de la somme S_n.
Mais ce n'est pas un problème car cette somme n'est définie qu'à partir de 1, ce qui évite tous types de problèmes et l'on peut s'attaquer sans souci aux calculs sans aucun problème…

FLISZT a écrit : ↑27 févr. 2024 03:51Ensuite, je lis que : $S_n=\sum_{k=1}^{n}\frac{1}{u(k)}$ Autrement dit, S_n est la somme des n-premiers termes 1/u(k), pour k variant de 1 à n

OUI.

FLISZT a écrit : ↑27 févr. 2024 03:51n étant selon ce que je comprends, l'entier préalablement déterminé. Là encore, corrigez-moi, si je me trompe.

OUI, c'est là que ce trouve la méprise, n est juste la limite supérieure de la somme S_n. Il faut faire la somme des inverses de tous les u(k) pour k allant de 1 à n. Tout simplement.
Ce qui fait, comme tu le faisais très justement remarquer, pour n=10⁹ beaucoup beaucoup de petits rapports tous inférieurs à l'unité. Tous les termes de la somme sont inférieurs ou égaux à 1, mais leur nombre fait que leur somme atteint presque 7,5 millions.

C'est un peu de ma faute, je n'ai donné aucun exemple du calcul de la somme S_n. Je corrige cette étourderie immédiatement.

Je vais prendre comme exemple le calcul de S₆:

$S_6=\sum_{k=1}^{6}\frac{1}{u(k)}$ où u(k) est l'entier le plus proche de ∜k.

$S_6=\frac{1}{u(1)}+\frac{1}{u(2)}+\frac{1}{u(3)}+\frac{1}{u(4)}+\frac{1}{u(5)}+\frac{1}{u(6)}$

$S_6=\frac{1}{\left\lceil\sqrt[4]{1}\right\rfloor}+\frac{1}{\left\lceil\sqrt[4]{2}\right\rfloor}+\frac{1}{\left\lceil\sqrt[4]{3}\right\rfloor}+\frac{1}{\left\lceil\sqrt[4]{4}\right\rfloor}+\frac{1}{\left\lceil\sqrt[4]{5}\right\rfloor}+\frac{1}{\left\lceil\sqrt[4]{6}\right\rfloor}$ en notant par ${\left\lceil x\right\rfloor}$ l'entier le plus proche de x.

$S_6=\frac{1}{\left\lceil 1.\right\rfloor}+\frac{1}{\left\lceil 1.18921\right\rfloor}+\frac{1}{\left\lceil 1.31607\right\rfloor}+\frac{1}{\left\lceil 1.41421\right\rfloor}+\frac{1}{\left\lceil 1.49535\right\rfloor}+\frac{1}{\left\lceil 1.56508\right\rfloor}$ en arrondissant les racines à cinq décimales.

$S_6=\frac{1}{1}+\frac{1}{1}+\frac{1}{1}+\frac{1}{1}+\frac{1}{1}+\frac{1}{2}=\frac{11}{2}=5.5$

Une partition pour un orchestre symphonique qui représente la somme S(n)=SUM(1/round(∜x)) par des portées de notes de plus en plus courtes et nombreuses

Voilà, s'il y a d'autres questions (et il y en a au moins une à laquelle je n'est pas encore répondu et qui est importante), faites tous comme FLISZT, n'hésitez pas à les poser.

Surtout, n'oubliez pas de poser la question triviale, mais fondamentale qui peut out changer… ou pas car c'est norme très courante et que nous avons tous appris au collège.

C.Ret

Over_score a écrit : ↑25 févr. 2024 17:01 Bon, je vais tenter une réponse avec un programme en 37 pas et 5 registres certainement pas optimal que j'ai fait sur mon HP-15C Collector Edition.
J'obtiens le résultat 3931581.552 pour n = 422825625 en 1.3"
et 7497924.028 pour n = 1000000000 en 1.7"

Ah! Bien, je viens de rechronométrer, mon HP-15C me donne le même résultat S(1.10⁹)=S(1'000'000'000.) = 7'4979'24.028 en 2.92" et S(422'825'625.)=3'931'581.522 en 2"69. Nous sommes donc d'accord sur les résultats de ces deux sommes. Je le mettrait dans le tableau lorsqu'un troisième opérateur nous aura confirmé qu'ils sont les bons.

Mais heureusement que je n'utilise pas le code d'Over_score, car sinon il lui aurait fallu plus d'une heure ! C'est incroyable cette nouvelle HP-15C va plus vite à faire 10⁹ boucles d'un code de 39 instructions que mon HP-15C à parcourir les 20 instructions de son code en ligne directe.

Concernant le code d'Over_Score, je le scrute afin de découvrir quelques astuces pour améliorer les miens. Je n'avais pas pensé à utiliser √x√x pour calculer ∜x, j'utilisais une méthode qui prend un pas de plus 4 1/x x^y.
Par contre, je suis surpris de trouver une séquence 1 STO-4 RCL4 x ≠ 0 GTO 0 là où je m'attendais à un simple DSE 4 GTO 0. Il doit y avoir une raison. Il y a aussi un calcul très compliqué dans la boucle et pour afficher le résultat final. Je n'ai pas tout compris. Je vais quémander quelques explications. En tous cas, les résultats sont les bons et cette nouvelle version file comme l'éclair. 1.7" pour une 10⁹ boucles chapeau ! Ou alors, j'ai pas vue l'astuce !?

Sinon, j'ai calculé S(1.10¹⁰) et j'obtiens 42'163'787.12 en moins de 3 secondes.

n	422'825'625.	1'000'000'000.	10¹⁰
Sn	3'931'581.552	7'497'924.028	42'163'787.12
Machine	HP-15C CE	HP-15C CE	HP-15C
Opérateur	Over_Score	Over_Score

Sur Ti-30X PRO MathPrint^tm, j'obtiens quelques décimales de plus:

: MPO126 - Texas Instrument Ti-30X PRO MathPrint.gif (98.67 Kio) Vu 358 fois

Si quelqu'un pouvait nous donner la valeur exacte, ce serait très chouette.

C.Ret

Je vois je dois être sur la bonne voie. Mais je n'est pas réussit encore à mettre un nom sur tous les modules, certaines bibliothèques manque à mon catalogue deux.

La machine à laquelle je pense ne sonne pas à l'allumage (tout au moins il me semble) et ne peut afficher Welcome ainsi.

De plus, il me semble avoir vu quelque part des versions modernes de cette machine (ou alors c'était un émulateur) où l'affichage n'est pas limité à quatorze segments. Ce qui permet d'avoir le nom de module ou bibliothèques en lettres minuscules et caractères superscripts.

De même, la petite cérémonie de fin et le message rassurant; je scrute mes documents et mes sources afin de trouver un indice...

C.Ret

Les images comme la composition d'une bonne partie de ce MPO ont été réalisées par mes soins à l'aide, entre-autre de mes assistants numériques sur la table de mon bureau et en ligne. Dont en particulier mon HP-15C, mon HP Prime, et Mon Assistant IA quotidien Copilot et Dall-E supervisé par Chat-GPT 4.

En réalité, ces images sont des métaphores. Pour rendre leur robots conversationnels, les ingénieurs informaticiens leur ont appris à comprendre nos languages et donc ce qu'est une métaphore. Quant une machine utilise les variables factorielles d'un espace vectoriel de dimension 1023 pour nous répondre, cela signifie que cette machine est tout aussi capable de parler anglais, français, ou allemand. Mais aussi de créer des images. Il suffit pour cela de dialoguer avec elle afin de créer dans son imaginaire numérique et télématique des corrélations qu'elle sait restituer. Le rôle de Dall-E est de lisser ces métaphores numériques oniriques afin qu'elles nous paraissent plus cohérentes. Chat-GPT est là pour charger et structurer le contenu de l'espace factoriel et Copilot me permet d'avoir access gratuitement à cette technologie grace aux revenus économiques que mon activité sur Internet crée au sein de Bing.

C.Ret

Ah!Ah!

Voilà une heure que je cherche, mais ne trouve point !

Diantre, je ne cherche peut-être pas au bon endroit, ou tout au moins au bon moment. La documentation que je fouille concerne une machine trop ancienne pour afficher ⁺, elle ne peut qu'affichée +. A son époque, c'était déjà prodige que d'afficher son nom ou le nom des modules en lettres capitales bien alignées. Alors, faire des exponentiations c'est peut-être un indice important.

Je passe à table, mais après la sieste, je m'y remets.

C.Ret

Bonjour,

Voici pour agrémenter cette fin du mois de Février 2024 un petit exercice à soumettre à votre calculateur de poche préféré (ou à vos calculateurs de poches préférés si vous en avez plusieurs encore en état de marche).

Comme à notre habitude, il nous faut chercher à effectuer le plus efficacement les calculs suivants. Nous avons bien entendu le droit d'utiliser toutes les astuces et toutes les espiègleries que permettent nos délicieuses machines. A vous de trouver où se cache la difficulté.

N'oublions pas de miser petit et d'optimiser, mais sans que cela nuise à l'exactitude de nos calculs. Nous nous expliquerons mutuellement comment s'obtiennent les résultats les plus précis avec notre équipement. Certains d'entre nous trouverons des machines capables de présenter des résultats exacts. Faisons courts, mais évitons que les calculs durent une éternité…

Soit u(x) l'entier le plus proche de ⁴√x, déterminons $S_n=\sum_{k=1}^{n}\frac{1}{u(k)}$ afin de compléter les tableaux suivants:

TABLEAU 1:
n	1	5	37	60	123	139	163	275
S_n

N'hésitez pas à essayer d'autres valeurs. Utilisez vos doigts pour tapoter votre machine et vous gratter la tête.

TABLEAU 2:
n	397	521	625	843	933	998	1027	1995
S_n

Avec un peu de pratique, vous aurez peut-être la chance d'avoir de l'entrainement A moins que le hasard n'ai rien à voir avec tout cela !?

TABLEAU 3:
n	2024	2097	3614	3999	442413	9078631	422825625	10⁹
S_n

Ce dernier tableau peut être calculé sans difficulté avec une HP-21 ou une Ti-30 X PRO Mathprint^tm; c'est dire…

TABLEAU 4:
n
S_n	6.5	50	¹⁶⁶⁹/₆	396	1567_+3/11	3796.5	8786_+13/19	42177

Là c'est surtout pour la notation des polonaises inversées. Mais les autres devrons elles aussi s'y coller.

Cet MPO est particulièrement facile. Je donne donc le feu vert. N'hésitez pas à publier vos codes et résultats sauf si vous voulez préserver un peu de mystère ou garder vos astuces secrètes.

En cas de questions ou de remarques, n'hésitez pas à les poser directement.

Sommaire des MPO

Mon HP-15C (originale de 1985) met exactement 2.67 pour calculer sans arrondi l'avant dernière valeur du TABLEAU 3. J'ai hâte de savoir combien de temps mettent les nouvelles HP-15C Collector Edition !!

C.Ret

Des Macintosh Classic SE , coïncidence !

Justement, ce W.E. je visionnais deux vidéo d'Andrian BLACK qui restaure en ce moment trois Mac de ce type.

Le premier a été très facile à ouvrir : https://youtu.be/lHvGc4LWR0g?t=552

Par contre, pour les deux autres, on le voit utiliser la technique "brute force" : https://youtu.be/lHvGc4LWR0g?t=3080

Il montre l'interrupteur de RESET sur le coté, qu'il ne faut pas oublier de démonter (sur l'exemplaire d'Andrian, c'est trop tard, le bouton a déjà été cassé.) : https://youtu.be/lHvGc4LWR0g?t=2922

C.Ret

ledudu a écrit : ↑11 févr. 2024 22:56Oui, chaque nombre hexa représente 8 points du dessin.
Chaque ligne comporte 72 points et donc 9 nombres.
Il y a 94 lignes.

Effectivement:

Code : Tout sélectionner

--111-------------------------------5----------------------------------- 1000 DATA 38,00,00,00,08,00,00,00,00
-----111----------------------------5----------------------------------- 1010 DATA 07,00,00,00,08,00,00,00,00
--------222-------------------------5----------------------------------- 1020 DATA 00,E0,00,00,08,00,00,00,00
-----------222----------------------5----------------------------------- 1030 DATA 00,1C,00,00,08,00,00,00,00
--------------223-------------------5----------------------------------- 1040 DATA 00,03,80,00,08,00,00,00,00
-----------------333----------------5----------------------------------- 1050 DATA 00,00,70,00,08,00,00,00,00
--------------------333-----------55555--------------------------------- 1060 DATA 00,00,0E,00,3E,00,00,00,00
-----------------------344-------5-----5-------------------------------- 1070 DATA 00,00,01,C0,41,00,00,00,00
--------------------------444----5555555-------------------------------- 1080 DATA 00,00,00,38,7F,00,00,00,00
-----------------------------4445-------6------------------------------- 1090 DATA 00,00,00,07,80,80,00,00,00
--------------------------------5-------6------------------------------- 1100 DATA 00,00,00,00,80,80,00,00,00
---------------------------------5555555-------------------------------- 1110 DATA 00,00,00,00,7F,00,00,00,00
----------------------------------5---5---------------------------9----- 1120 DATA 00,00,00,00,22,00,00,00,20
----------------------------------55-55-----------------------88-99----- 1130 DATA 00,00,00,00,36,00,00,03,60
----------------------------------5-5-5------------------------899------ 1140 DATA 00,00,00,00,2A,00,00,01,C0
----------------------------------55-55-------------------------99------ 1150 DATA 00,00,00,00,36,00,00,00,C0
---------------------------------55---55-------------------------------- 1160 DATA 00,00,00,00,63,00,00,00,00
---------------------------------5-5-5-5-------------------------------- 1170 DATA 00,00,00,00,55,00,00,00,00
---------------------------------5--5-55-------------------------------- 1180 DATA 00,00,00,00,4B,00,00,00,00
---------------------------------5-555-5-------------------------------- 1190 DATA 00,00,00,00,5D,00,00,00,00
-----------2---------------------55---55-------------------------------- 1200 DATA 00,10,00,00,63,00,00,00,00
-------12-22---------------------55---55-------------------------------- 1210 DATA 01,B0,00,00,63,00,00,00,00
--------222----------------------5-5-5-5-------------------------------- 1220 DATA 00,E0,00,00,55,00,00,00,00
---------22----------------------5--5--5-------------------------------- 1230 DATA 00,60,00,00,49,00,00,00,00
--------------------------------55-555-56--------------7---------------- 1240 DATA 00,00,00,00,DD,80,01,00,00
--------------------------------555---556----------77-77---------------- 1250 DATA 00,00,00,00,E3,80,1B,00,00
--------------------------------5--5--5-6-----------777----------------- 1260 DATA 00,00,00,00,92,80,0E,00,00
--------------------------------5---5---6------------77----------------- 1270 DATA 00,00,00,00,88,80,06,00,00
--------------------------------5--5-5--6------------------------------- 1280 DATA 00,00,00,00,94,80,00,00,00
--------------------------------555555556------------------------------- 1290 DATA 00,00,00,00,FF,80,00,00,00
----------------3--------------45--------6------------------------------ 1300 DATA 00,00,80,01,80,40,00,00,00
------------22-23--------------4-5-----5-6------------------------------ 1310 DATA 00,0D,80,01,41,40,00,00,00
-------------222---------------4--5---5--6------------------------------ 1320 DATA 00,07,00,01,22,40,00,00,00
--------------22---------------4---555---6------------------------------ 1330 DATA 00,03,00,01,1C,40,00,00,00
-------------------------------4--5---5--6------------------------------ 1340 DATA 00,00,00,01,22,40,00,00,00
-------------------------------4-5-----5-6------------------------------ 1350 DATA 00,00,00,01,41,40,00,00,00
-------------------------------45555555566------------------------------ 1360 DATA 00,00,00,01,FF,C0,00,00,00
-------------------------------4-5--5--5-6------------------------------ 1370 DATA 00,00,00,01,49,40,00,00,00
------------------------------4---5-5-5---6----------------------------- 1380 DATA 00,00,00,02,2A,20,00,00,00
------------------------------4----555----6----------------------------- 1390 DATA 00,00,00,02,1C,20,00,00,00
------------------------------4----555----6----------------------------- 1400 DATA 00,00,00,02,1C,20,00,00,00
-----------------------------4---55---55---6---------------------------- 1410 DATA 00,00,00,04,63,10,00,00,00
-----------------------------4--5-5---5-6--6---------------------------- 1420 DATA 00,00,00,04,A2,90,00,00,00
----------------------------44-4-5-----5-6-66--------------------------- 1430 DATA 00,00,00,0D,41,58,00,00,00
----------------------------444--5-----5--666--------------------------- 1440 DATA 00,00,00,0E,41,38,00,00,00
-------------------------44444445555555566666666------------------------ 1450 DATA 00,00,00,7F,FF,FF,00,00,00
-------------------------4--4--4--5---5--6--6--6------------------------ 1460 DATA 00,00,00,49,22,49,00,00,00
-------------------------44444445555555566666666-------788-------------- 1470 DATA 00,00,00,7F,FF,FF,01,C0,00
-----------22222----------444444555555556666666--------7-8-------------- 1480 DATA 00,1F,00,3F,FF,FE,01,40,00
-----------2---2----------4---4-5-------6-6---6--------7-8-------------- 1490 DATA 00,11,00,22,80,A2,01,40,00
-----------2---2----------44-4--5-------6--6-66--------7-8-------------- 1500 DATA 00,11,00,34,80,96,01,40,00
-----111---2---2---------4--4--4---------6--6--6-------7-8------9999---- 1510 DATA 07,11,00,49,00,49,01,40,F0
-----1-1---2---2---3333--4-4-4-4---------6-6-6-6--7777-7-8------9--9---- 1520 DATA 05,11,1E,55,00,55,3D,40,90
-----1-1--2222223333----4-4---4-----------6---6-7----7778888888-9------- 1530 DATA 05,3F,F0,A2,00,22,87,FE,80
-----111222-------------4444444-----------6666667-------------889999---- 1540 DATA 07,E0,00,FE,00,3F,80,03,F0
111111------------------4---4-4-----------6-6---7--------888-------99999 1550 DATA FC,00,00,8A,00,28,80,70,1F
-------------222--------44-4--4-----------6--6-67------78---88---------- 1560 DATA 00,07,00,D2,00,25,81,8C,00
-----------22---33-----3--4--4-------------6--6--7-----7----8----------- 1570 DATA 00,18,C1,24,00,12,41,08,00
-----------2----3------3-4-4-4-------------6-6-6-7------8--8------------ 1580 DATA 00,10,81,54,00,15,40,90,00
---111------2--2------3-4---4---------------6---7-7------88------------- 1590 DATA 1C,09,02,88,00,08,A0,60,00
-11---11-----22------3334444-----------------6667777-----88------------- 1600 DATA 63,06,07,F0,00,07,F0,60,00
-1----1------22------3---4-4-----------------6-6---7-----88------------- 1610 DATA 42,06,04,50,00,05,10,60,00
--1--1-------22------33-4--4-----------------6--7-77-----88------------- 1620 DATA 24,06,06,90,00,04,B0,60,00
---11--------22-----3--3--4-------------------6--7--7------------999---- 1630 DATA 18,06,09,20,00,02,48,00,70
---11---------------3-3-4-4-------------------6-7-7-7----------89---99-- 1640 DATA 18,00,0A,A0,00,02,A8,01,8C
---11--------------3-3---4---------------------6---7-7---------8----9--- 1650 DATA 18,00,14,40,00,01,14,01,08
---11------------333333344444444555555556666666677777777--------9--9---- 1660 DATA 18,00,7F,FF,FF,FF,FF,00,90
---------222------3---3---4---4---5---5---6---6---7---7----------99----- 1670 DATA 00,70,22,22,22,22,22,00,60
-------12---22----3---3---4---4---5---5---6---6---7---7----------99----- 1680 DATA 01,8C,22,22,22,22,22,00,60
-------1----2----333333344444444555555556666666677777777---------99----- 1690 DATA 01,08,7F,FF,FF,FF,FF,00,60
--------2--2------3-3---4--4---4--5---5--6---6--7---7-7----------99----- 1700 DATA 00,90,28,91,22,44,8A,00,60
---------22-------3--333-44-444-55-555-56-666-66-777--7----------------- 1710 DATA 00,60,27,6E,DD,BB,72,00,00
---------22-------3-3---4--4---4--5---5--6---6--7---7-7----------------- 1720 DATA 00,60,28,91,22,44,8A,00,00
---------22-------3333334444444455555555666666667777777------------999-- 1730 DATA 00,60,3F,FF,FF,FF,FE,00,1C
---------22------3--3----444-4-4-5-555-5-6-6-666----7--7---------99---99 1740 DATA 00,60,48,75,5D,57,09,00,63
----------------3----3334---4-4---5---5---6-6---7777----8--------9----9- 1750 DATA 00,00,87,8A,22,28,F0,80,42
---------------2--333--34--4-4-4-5-5-5-5-6-6-6--77--777--8--------9--9-- 1760 DATA 00,01,39,95,55,54,CE,40,24
--------------2-33-------44--4--5---5---6--6--66-------78-8--------99--- 1770 DATA 00,02,C0,64,88,93,01,A0,18
-------------22233333333444444445555555566666666777777778888-------99--- 1780 DATA 00,07,FF,FF,FF,FF,FF,F0,18
------------2--2----333-4--------5555555--------7-777----8--8------99--- 1790 DATA 00,09,0E,80,7F,00,B8,48,18
-----------2----3333---3-----4445-------6666-----7---7778----8-----99--- 1800 DATA 00,10,F1,07,80,F0,47,84,18
----------2--222--33--3---444---------------666---7--77--888--8--------- 1810 DATA 00,27,32,38,00,0E,26,72,00
---------2-22-------33--44---------------------67--77-------88-8-------- 1820 DATA 00,58,0C,C0,00,01,98,0D,00
--------2222222233333-33-------------------------77-7777888888889------- 1830 DATA 00,FF,FB,00,00,00,6F,FF,80
-------1-2-------33-33-----------------------------77-77-------8-9------ 1840 DATA 01,40,6C,00,00,00,1B,01,40
------1---22--223--33-------------------------------77--888--88---9----- 1850 DATA 02,33,98,00,00,00,0C,E6,20
-----1------22-----3---------------------------------7-----88------9---- 1860 DATA 04,0C,10,00,00,00,04,18,10
----1----222--22--3-----------------------------------7--88--888----9--- 1870 DATA 08,73,20,00,00,00,02,67,08
---1--112-------3-3-----------------------------------7-8-------999--9-- 1880 DATA 13,80,A0,00,00,00,02,80,E4
---1111122222222333-----------------------------------7788888888999999-- 1890 DATA 1F,FF,E0,00,00,00,03,FF,FC
---1--------------3-----------------------------------7--------------9-- 1900 DATA 10,00,20,00,00,00,02,00,04
---1--------------3-----------------------------------7--------------9-- 1910 DATA 10,00,20,00,00,00,02,00,04
---1111122222222333-----------------------------------7788888888999999-- 1920 DATA 1F,FF,E0,00,00,00,03,FF,FC
111111112222222233333333444444445555555566666666777777778888888899999999 1930 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF

C.Ret

OUI, réponse en préparation...

Mais au lieu de juste donner le résultat, j'avais préparé toutes une série d'explications très savantes, pédagogiques, un peu pénibles et parfois navrantes pour les plus aguerris d'entre vous.

J'ai alors eut l'idée de rendre cela plus ludique, mais surtout plus facile pour moi, je fini actuellement de préparer une explication plus rationnelle qui va vous mettre à contribution.

C.Ret

Andromede a écrit : ↑15 févr. 2024 22:42Peux-tu m'expliquer la ligne 9 C.Ret ?

Oui bien sûr, cette ligne est le cœur du programme. Elle est assez cryptique car provient de corrections d'une idée qui au départ me paraissait simple. Mais qui une fois réalisée ne fonctionnait pas !

L'idée était de regrouper la succession des tests en une seule équation et faire une sorte de ON L GOSUB avec le résultat L des tests combinés.

La variable L contient donc le résultat des tests combinés. Sur le SHARP PC-1211 un test faux renvoi 0 et un test valide renvoi 1.
Le calcul de L réalisé sur la ligne 9: contient trois parties:

Incrément : 1+ car en fait j'utilise le code prévu incrémenté d'une unité. Ainsi la première ligne sera la ligne 10. L'idée originale était d'avoir 0 pour une saisie invalide puis les codes 1 , 2, 3 ou 4 en fonction de la situation.
Test de la saisie: zéro est renvoyé si la saisie du range [ A, B ] est incorrecte, c'est à dire si (A<0) OU (B>1E+4) OU (A>B). J'utilise un produit et donc la contraposée qui vérifie que (A>0) ET (B≤1E+4) ET (A≤B). Ce produit est facteur de la dernière partie et donc en annule le résultat dès que la saisie n'est pas valide
Codage des trois cas "avion in range" c'est à dire A≤X≤B, 'avion trop bas' X<A≤B ou 'avion trop haut' A≤B<X. Le codage n'est pas compliqué c'est même assez binaire

Les valeurs que prend L sont résumées dans le tableau suivant :

Code : Tout sélectionner

┌───┬────────────┬─────┬───────┬──────┬─────────┬─────┬─────┬────────────────────────────┬──────────────┐
│ L │   A     B  │(0<A)│(B<=E4)│(A<=B)│    X    │(X<A)│(B<X)│  Situation                 │   GOTO       │
├───┼────────────┼─────┼───────┼──────┼─────────┼─────┼─────┼────────────────────────────┼──────────────┤
│   │  A<0    ~  │  0  │   ~   │   ~  │    ~    │  ~  │  ~  │                            │              │
│ 1 │   ~  1E4<B │  ~  │   0   │   ~  │    ~    │  ~  │  ~  │    Saisie incorrecte       │  10:         │
│   │  A>B   B<A │  ~  │   ~   │   0  │    ~    │  ~  │  ~  │                            │              │
├───┼────────────┼─────┼───────┼──────┼─────────┼─────┼─────┼────────────────────────────┼──────────────┤
│ 2 │ 0≤A≤B≤1E+4 │  1  │   1   │   1  │  A≤X≤B  │  0  │  0  │ Avion in Range             │  20:         │
│   │            │     │       │      │         │     │     │(ou Avion Localisé si A=B)  │              │
├───┼────────────┼─────┼───────┼──────┼─────────┼─────┼─────┼────────────────────────────┼──────────────┤
│ 3 │ 0≤A≤B≤1E+4 │  1  │   1   │   1  │  A≤B<X  │  0  │  1  │ Avion trop haut            │  30:         │
├───┼────────────┼─────┼───────┼──────┼─────────┼─────┼─────┼────────────────────────────┼──────────────┤
│ 4 │ 0≤A≤B≤1E+4 │  1  │   1   │   1  │  X<A≤B  │  1  │  0  │ Avion trop bas             │  40:         │
├───┼────────────┼─────┼───────┼──────┼─────────┼─────┼─────┼────────────────────────────┼──────────────┤
│ 5 │ 0≤A≤B≤1E+4 │  1  │   1   │   1  │ X<A≤B<X │  1  │  1  │ Avion trop haut et trop bas│cas impossible│
└───┴────────────┴─────┴───────┴──────┴─────────┴─────┴─────┴────────────────────────────┴──────────────┘

La variable E compte les coups (les écho radars), et E n'est incrémentée que si L indique une saisie valide (c'est à dire si L>1).

Tout cela conduit à un code un peu cryptique, mais ce n'est pas grave en soi pour un jeu: si le listing est compliqué, le joueur qui vient de le saisir aura d'autant plus de chance d'être surpris par son fonctionnement.

IL y a tout de même de petit problème à l'usage, je trouve que les temps de réponse et affichage peuvent être améliorés, voici une version corrigée à peine plus longue à taper et qui rend les phases de jeu plus claires en figeant l'affichage en fin de jeu pour indiquer clairement que l'altitude est trouvée. La variable D$ est utilisée pour indiquer l'état du radar :
ER0. Système radar en 'error' (Début de partie)
ECHO Compte des écho radar lors de la phase de recherche
HIT ou REC lorsque l'avion est localisé avec un nombre de tentative banal ou rocambolesque.

: RADAR CONTROL PC-1211 ver2.gif (9.43 Kio) Vu 711 fois

Dans cette version, je n'utilise plus la variable L et j'ai réorganisé l'ordre des sous-parties afin de limiter la répétition des GOTO et des PRINT.
Les variables D$ P$ M$ S$ servent aux affichages
Les variables A B et X contiennent respectivement les altitudes basses et hautes du radar ainsi que l'altitude inconnue de l'avion.
Les variables E, R et W comptent respectivement les échos radar, le nombre record de tentatives et indique une localisation correcte.
La variable Z sert de semence pour le générateur pseudo-aléatoire.

Lignes:
1: Nouvelle partie.
2: Nouvel avion perdu.
3: Affichage stable (PRINT) initial et final, joueur rejoue.
4-5: Boucle saisie fenêtre radar et affichage des résultats intermédiaires.
10-15: Sous-programme avec retour en fin de ligne suivant la situation :

: Mauvaise saisie des altitudes 10:
: Avion trop haut 11:
: Avion trop bas 12:
: Avion dans la fenêtre radar mais non localisé 13:
: Nouveau record (pas de retour)
: Avion localisé (partie gagnée) 15:

Mais cette façon de faire m'est très personnelle et correspond à mes préférences d'affichage et de saisie lors du jeu ainsi qu'un un style très personnel de programmation du PC-1211 qui a bien évolué (en bien ?? pas sûr

) depuis 1981.

Je vous invite à composer vos propres programmes sur votre PC-1500 et à défaut sur une de vos machines qui lui ressemble (ou pas !) et surtout à partager avec nous vos productions.
Je suis très curieux par nature et adore toujours découvrir chaque jour de nouveaux truc et astuces, ou simplement comment fonctionne d'autres systèmes.

C.Ret

seb#5 a écrit : ↑16 févr. 2024 12:11
C.Ret a écrit : ↑15 févr. 2024 21:58 Il y a aussi certaines images insérées dans les message qui ne s'affichent pas; on peut lire la taille de l'image et le nombre de consultations, mais l'image ne s'affiche pas.
Oui il y a un problème avec les images en remote surtout quand elles sont sur des sites non SSL. La solution c'est un proxy PHP mais c'est long à mettre en place, les extensions pour phpBB ne sont pas officielles. Enfin voilà j'étudie encore...

Oui, je parlais surtout des images attachées aux messages avec l'outil FICHIERS JOINTS.

La plupart du temps les images sont visibles comme dans ces messages :
viewtopic.php?p=548141#p548141
viewtopic.php?p=555806#p555806
...

Et dans certains messages (surtout des messages récents) les images ne sont pas visibles (mais leur nom de fichier et stat sont affichées):
viewtopic.php?p=586762#p586762
viewtopic.php?p=586744#p586744
...

Et les liens internes avec .../viewtopic.php? fonctionnent maintenant. Merci. Super efficace !!

J'ai par contre trouvé un lien .../viewforum.php? qui ne fonctionne pas tout seul :
http://www.silicium.org/forum/viewforum.php?f=49
dans le message
viewtopic.php?p=585835#p585835

Désolé, encore du taff

C.Ret

Marge a écrit : ↑11 févr. 2024 22:49Une victoire d’Éric Schraf !

J'espère qu'il nous fera une petit vidéo pour nous montrer et nous expliquer comment il a fait.

Marge a écrit : ↑12 févr. 2024 18:13Il devrait être possible pour une 15C CE de participer… mais quelle machine HP de moindre envergure le pourrait ? Sans doute une 67, la 29C me semble trop limitée - mais la 29E pourrait relever le gant...

Je ne connais même pas les règles du jeu puissance 4 (taille de la grille, etc) et je suis très mauvais à ce jeu et je ne sais pas quelle est la complexité d'un bon algorithme gagnant. J'imagine que contrairement aux jeux de savonnettes il faut un bon niveau de profondeur minimax, élagage alpha-beta, des tables de transpositions, etc...
Sur ces vieilles HP, c'est un vrai challenge. Surtout si l'on veut voir s'afficher le coup à jouer avant que tout le monde ai quitté la salle et que le concierge soit déjà en train éteindre la lumière de la salle.
Ce qui fait que les HP dopées comme les HP-15C LE, HP-15C CE ou HP- 29E CE auront l'avantage, malgré la profondeur de recherche, d'avoir une petite chance de rester dans la course.

C.Ret

Bonsoir,

C'est avec plaisir que je découvre que la bascule a pu s'effectuée.
Je suis agréablement surpris de voir que le forum n'a pas changé d'aspect.
Et j'imagine facilement le travail que cela représente. Mes félicitations à tous les acteurs, c'est du bon boulot !

Il y a cependant encore un peu de travail.

Effectivement, comme le signale Oliv!er en haut de chaque page, le bandeau de navigation ne suit pas.

Il y a aussi certaines images insérées dans les message qui ne s'affichent pas; on peut lire la taille de l'image et le nombre de consultations, mais l'image ne s'affiche pas. Curieusement, cela semble concerner surtout des images insérées récemment (dans les 10-15 jours avant la bascule) , les plus anciennes apparaissent bel et bien.

Il y a aussi les liens insérés dans certains messages vers d'autres posts du forum qui ne fonctionnent plus. Ce serait bien si ces liens pouvaient être rétablis. Par exemple dans le Sommaire des MPO plus aucun lien ne fonctionne. Mais le problème est le même dans les messages ou réponses dès que l'on fait référence à un autre post du forum ou à un autre message du même threat. Ainsi que les liens vers des messages du forum que certains ont mis dans leur signature (comme par exemple dans le mienne).

Voilà.
Si je vois d'autres anomalies, je ne manquerai pas de le signaler.

Bon courage

C.Ret

Super impression !

Du coup ma réalisation ressemble à un timbre post.

: Tour Eiffel Ledudu.gif (10.54 Kio) Vu 677 fois

Je donne ci-dessous le code utilisable par les collectionneurs pour afficher ce timbre de collection:

Code : Tout sélectionner

10 color 0,14:color 1,2:graphic 1,1:color 0,1
12 for y=49 to 142:x=115
14 :  for k=0 to 8
16 : : read b$ : b=dec(b) : x=x+8
19 : : for i=0 to 7
22 : : : if b and 2↑i then draw 1,x-i,y : else draw 0,x-i,y
23 next i,k,y

Idéalement, ce code marche le mieux sur un CBM 8-Bits ayant un BASIC Microsoft v7.0

Forum

3342 résultats trouvés

Re: Enfin! Une police de caractères pour les CASIO

Re: Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées

Re: Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées

Re: Mais qu'est-ce que c'est ? KEZAKO n° 5

Re: Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées

Re: Mais qu'est-ce que c'est ? KEZAKO n° 5

Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées

Re: Mac SE : démontage impossible

Re: Enigme du dimanche en Basic

Re: Question AER du dimanche 14 Janvier 2024.

Re: Sharp PC 1500

Re: Migration

Re: Tournoi Puissance 4 sur FB

Re: Migration

Re: Enigme du dimanche en Basic