452 résultats trouvés

par dprtl
15 mars 2024 09:08
Forum : Recherche informations / technique / etc ... [pas de petites annonces ici]
Sujet : Sin pi ?
Réponses : 11
Vues : 290

Re: Sin pi ?

Un peu hors sujet, j'ai essayé de faire le même calcul avec 'GNU bc' (en ligne de commande). Je n'ai pas trouvé de variable 'pi' en built-in, mais on peut aisément la recalculer avec une astuce bien connue. La fonction a() c'est arc tangente et s() c'est sinus :

Code : Tout sélectionner

$ bc -l
scale=1000
pi=4*a(1)
pi
3.141592653589793238462643383279502884197169399375105820974944592307\
81640628620899862803482534211706798214808651328230664709384460955058\
22317253594081284811174502841027019385211055596446229489549303819644\
28810975665933446128475648233786783165271201909145648566923460348610\
45432664821339360726024914127372458700660631558817488152092096282925\
40917153643678925903600113305305488204665213841469519415116094330572\
70365759591953092186117381932611793105118548074462379962749567351885\
75272489122793818301194912983367336244065664308602139494639522473719\
07021798609437027705392171762931767523846748184676694051320005681271\
45263560827785771342757789609173637178721468440901224953430146549585\
37105079227968925892354201995611212902196086403441815981362977477130\
99605187072113499999983729780499510597317328160963185950244594553469\
08302642522308253344685035261931188171010003137838752886587533208381\
42061717766914730359825349042875546873115956286388235378759375195778\
18577805321712268066130019278766111959092164201988
s(pi)
.0000000000000000000000000000000000000000000000000000000000000000000\
00000000000000000000000000000000000000000000000000000000000000000000\
00000000000000000000000000000000000000000000000000000000000000000000\
00000000000000000000000000000000000000000000000000000000000000000000\
00000000000000000000000000000000000000000000000000000000000000000000\
00000000000000000000000000000000000000000000000000000000000000000000\
00000000000000000000000000000000000000000000000000000000000000000000\
00000000000000000000000000000000000000000000000000000000000000000000\
00000000000000000000000000000000000000000000000000000000000000000000\
00000000000000000000000000000000000000000000000000000000000000000000\
00000000000000000000000000000000000000000000000000000000000000000000\
00000000000000000000000000000000000000000000000000000000000000000000\
00000000000000000000000000000000000000000000000000000000000000000000\
00000000000000000000000000000000000000000000000000000000000000000000\
0000000000000000000000000000000000000000000000001
par dprtl
19 janv. 2024 17:08
Forum : Tous les Pockets
Sujet : Misez P'tit, Optimisez - N°121 : Retournez à vos places !
Réponses : 28
Vues : 1846

Re: Misez P'tit, Optimisez - N°121 : Retournez à vos places !

En voici une version pour les Casio FX-4000P, FX-7000G, etc. qu'on voit rarement dans les MPO :

Image

D'accord, ça prend ici 82 pas. Mais, en contre-partie, la FX-4000P était bien plus rapide que ses concurrentes directes comme la TI-66 ou la HP-15C !
par dprtl
11 janv. 2024 00:12
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez ! n° 124 : Distance entre les entiers
Réponses : 65
Vues : 2667

Re: Misez p'tit, Optimisez ! n° 124 : Distance entre les entiers

Comme ça fait un bout de temps que je n'avais pas participé à un MPO et comme personne n'a encore posté une version en Basic pour Casio (PB1000, FX-850P, Z1, etc.) en voici une ci-dessous, assez naïve :

Code : Tout sélectionner

10 INPUT"N";N$:INPUT"P";P$
20 LN=LEN(N$):LP=LEN(P$):Z=ABS(LN-LP)
30 D$="0.":IF LN<LP THEN 50
40 FOR I=1 TO Z:P$="0"+P$:NEXT:GOTO 60
50 FOR I=1 TO Z:N$="0"+N$:NEXT:LN=LP
60 PRINT"0.";:FOR I=LN TO 1 STEP-1
70 S$=MID$(N$,I,1):T$=MID$(P$,I,1)
80 PRINT MID$(STR$(ABS(VAL(S$)-VAL(T$))),2,1);
90 NEXT
L'avantage de manipuler les chaînes de caractères, c'est que ça fonctionne avec des grands nombres :

Image
par dprtl
03 oct. 2022 13:17
Forum : Tous les Pockets
Sujet : MPO n°113 - Nombre d'abonnés
Réponses : 52
Vues : 10658

Re: MPO n°113 - Nombre d'abonnés

Si j'avais reçu ma calculette Pyra neuve et déjà rétro, j'aurais pu taper une ligne de commande shell du style :

$ numfmt --to=si --round=down --format="%.2f" 1 123 1200 1234 12345 123456 1200000 1234567 12345678 123456789 | sed 's/,00//g' | sed -r 's/^([1-9])([0-9],|[0-9])([0-9]).*(K|M)$/\1\2\3\4/g'
1
123
1,20K
1,23K
12,3K
123K
1,20M
1,23M
12,3M
123M

La sortie est bricolée à grands coups de 'sed' pour coller précisément à l'énoncé :oops:
par dprtl
02 oct. 2022 22:05
Forum : Atari ST et compagnie
Sujet : Site de telechargement ATARI
Réponses : 13
Vues : 11376

Re: Site de telechargement ATARI

J'ai encore cette archive ultra complète nommée "Hang Loose" que j'ai déplacée après la fermeture récente de Hubic ; chez qui j'avais stocké 10 To de bazar. Ça pèse 140 Go en 7zip, et je suis loin d'avoir tout exploré. On y trouve bien sûr tous les jeux ST/STE/Falcon/Jaguar, parfois en plusieurs versions, les démos, les applications, les kits de dév, les docs, les schémas, etc. Bref... Il ne manque pas grand chose.

Si quelqu'un est intéressé, faites-moi signe en MP !
par dprtl
22 mai 2022 21:07
Forum : Atari ST et compagnie
Sujet : Milan, Hades, Medusa et autres compatibles Atari
Réponses : 17
Vues : 21327

Re: Milan, Hades, Medusa et autres compatibles Atari

Eh bien moi je joue à Magic Pockets sur FPGA Mist. Cette version ST, par les Bitmap Brothers, est surprenante par sa qualité :geek:
par dprtl
18 mai 2022 18:23
Forum : Atari ST et compagnie
Sujet : Milan, Hades, Medusa et autres compatibles Atari
Réponses : 17
Vues : 21327

Re: Milan, Hades, Medusa et autres compatibles Atari

N'hésite pas à nous faire une vidéo du Milan 040 de 1998 qui boote et qui fait tourner quelques logiciels ! La machine est rare ; je n'en ai jamais vu physiquement. Même le TOS 4.08 me parait impossible à télécharger sur internet. Et, si ce TOS est compatible avec un émulateur existant, peut-être qu'on ne perçoit pas de différence avec le 4.04 ?
par dprtl
22 mars 2022 14:57
Forum : Tous les Pockets
Sujet : Ma... dov'è il sapone? : le tournoi, c'est terminé ! Vivement le prochain !
Réponses : 492
Vues : 163307

Re: Ma... dov'è il sapone? : le tournoi, c'est terminé ! Vivement le prochain !

Je suis moi aussi d'accord avec la remise en jeu. Encourageons la motivation de tous les candidats potentiels pour le prochain défi ! :)
par dprtl
15 mars 2022 09:14
Forum : Tous les Pockets
Sujet : Ma... dov'è il sapone? : le tournoi, c'est terminé ! Vivement le prochain !
Réponses : 492
Vues : 163307

Re: Ma... dov'è il sapone? : le tournoi, c'est terminé ! Vivement le prochain !

Mon deuxième choix sera le livre de Pierrick Moigneau : "Le PC 1251 à l'écran".
par dprtl
11 mars 2022 10:17
Forum : Atari ST et compagnie
Sujet : Kit adaptateur laser pour souris STM1
Réponses : 5
Vues : 4057

Re: Kit adaptateur laser pour souris STM1

Personnellement, j'utilise un adaptateur USB Tom v2 (sur STF, STE et Falcon) vendu par les polonais de "Electronika4you". Ça fonctionne impeccable avec toutes mes souris USB. C'est très simple à configurer par séquence de clics, fiable et la précision est au rendez-vous. Par contre, il y a deux inconvénients pour l'esthétique rétro : une souris PC n'a pas le look d'une STM1 et il faut ajouter obligatoirement une rallonge DE9 de 20 ou 25 cm avec de préférence une prise plastique moulé (difficile à trouver). Car l'adaptateur ne rentre pas sous le clavier.
par dprtl
09 mars 2022 20:55
Forum : Tous les Pockets
Sujet : MPO 106 - Distribution de bonbons
Réponses : 81
Vues : 23056

Re: MPO 106 - Distribution de bonbons

C.Ret a écrit : 06 mars 2022 21:12 En attendant, je modifie le code de mon SHARP PC-1211 afin de pouvoir gérer plus de 100 élèves (au lieu des 20 actuels) !

Quel est la ronde la plus importante que vous puissiez calculer ?
Sur ma Casio, j'ai un peu plus de RAM, donc pas trop de mérite pour calculer une ronde à 300 élèves avec le programme précédent et 30 lignes de 10 données chacune :

Code : Tout sélectionner

160 DATA 0,1,2,3,4,5,6,7,8,9
170 DATA 0,1,2,3,4,5,6,7,8,9
180 DATA 0,1,2,3,4,5,6,7,8,9
190 DATA 0,1,2,3,4,5,6,7,8,9
...
Résultat (non vérifé) : [13,10] en 12 minutes environ (sans afficher les calculs intermédiaires).
par dprtl
07 mars 2022 21:29
Forum : Tous les Pockets
Sujet : Ma... dov'è il sapone? : le tournoi, c'est terminé ! Vivement le prochain !
Réponses : 492
Vues : 163307

Re: Ma... dov'è il sapone? : le tournoi, c'est terminé ! Vivement le prochain !

À mon tour, je choisis la dernière Casio qui reste : la fameuse FX-6800G que je n'ai pas ! Est-elle apparue en 1992 ? Ou bien en 1995 ? Mystère :D
par dprtl
06 mars 2022 13:52
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°16 (Fibonacci)
Réponses : 100
Vues : 39126

Re: Misez p'tit, Optimisez - N°16 (Fibonacci)

Merci @Schraf pour la correction de bug ! J'en ai aussi un autre sur le calcul du nombre de chiffres du résultat (2 de trop).

Une question hors sujet : la Numworks est une calculette moderne très intéressante pédagogiquement parlant, mais est-ce que ses spécifications sur la mémoire RAM ne sont pas un peu justes pour Python ? Les modèles 2017 et 2019, basés respectivement sur les microcontrôleurs STM32F412 et STM32F730 (si j'en crois certains forums) n'embarquent en effet que 256 Ko de RAM, dont seulement 32 Ko affecté au heap Python par le firmware officiel. Cette dernière valeur ne bride-t-elle pas un peu trop les utilisateurs ?
par dprtl
06 mars 2022 00:44
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°16 (Fibonacci)
Réponses : 100
Vues : 39126

Re: Misez p'tit, Optimisez - N°16 (Fibonacci)

Voici une petite version en Basic 1000D (1990) triviale et économe en ressources ; mais capable d'écrire rapidement dans un fichier sur disquette les 4182 chiffres de f(20001) :

Code : Tout sélectionner

input "Fibo?";n
a=0
b=1
for i=1,n-1
  vadd a,b
  exg a,b
next
open "o",#1,"mpo16res.txt"
print #1,b
print #1,"f(";n;")";len(b);" chiffres"
close
Le résultat : mpo16res.txt

Le plus grand nombre que l'on peut calculer avec ce programme (Basic interprété) se situe autour de f(94360) avec 19720 chiffres calculés en 25 minutes environ (1040 ST à 8 MHz).
par dprtl
05 mars 2022 11:00
Forum : Tous les Pockets
Sujet : MPO 106 - Distribution de bonbons
Réponses : 81
Vues : 23056

Re: MPO 106 - Distribution de bonbons

Voici ma première version en C61-Basic (pour Casio PB1000, FX850P, etc.). Il suffit d'éditer la première ligne pour donner le vecteur en entrée :

Code : Tout sélectionner

10 DATA 6011,0,1759,0,2,0,789
20 CLEAR
30 READ T:ON ERROR GOTO 50
40 L=L+1:GOTO 30
50 L=L-1:DIM A(L):DIM B(L):RESTORE
60 FOR I=0 TO L:READ A(I):NEXT
70 FOR I=0 TO L:PRINT A(I);:NEXT: PRINT
80 FOR I=1 TO L:IF A(I)<>A(0) THEN 100
90 NEXT: PRINT N;A(0):END
100 N=N+1:FOR I=0 TO L
110 J=I-1:IF J<0 THEN J=L
120 T=A(J):T=T+T MOD 2:B(J)=T/2:NEXT
130 FOR I=0 TO L:J=I-1:IF J<0 THEN J=L
140 A(I)=B(J)+B(I):NEXT
150 GOTO 70
Cette version affiche les résultats intermédiaires. Il n'y a rien de très original, mais c'est un programme relativement lisible et rapide à mettre en œuvre. La difficulté et le temps de programmation sont réduits (contexte calculette des années 80-90).

Aller à la recherche avancée