119 résultats trouvés
Re: Mac DIY
Balaise le gars
- 14 mars 2024 11:22
- Forum : Je donne, j'échange, j'achète et je vends [réservé aux membres actifs]
- Sujet : [DON] MàJ: Vide grenier du Fabrico (Valence) : PC, écrans, antiquités…
- Réponses : 37
- Vues : 7260
Re: [DON] MàJ: Vide grenier du Fabrico (Valence) : PC, écrans, antiquités…
J'ai utilisé des CharlyRobot en 1993 pour graver les puissances de correction sur des verres de lunettes progressifs en verre chez Pilkington optique qui est devenu SOLA optical par la suite ! C'était intéressant d'écrire le programme en C avec interface série et tout et tout.
- 13 mars 2024 21:07
- Forum : Recherche informations / technique / etc ... [pas de petites annonces ici]
- Sujet : Sin pi ?
- Réponses : 11
- Vues : 318
Re: Sin pi ?
Il faut juste se souvenir que l'on ne calcule pas sin(π) mais sin(3.141592654), si sa valeur est représentée avec 10 chiffres significatifs.
Donc sin(3.141592654) ≠ 0 et sin(3.141592654) < 0 car 3.141592654 > π
Si π est représenté avec 16 chiffres significatifs donc 3.141592653589793 dans ce cas 3.141592653589793 < π
donc sin(3.141592653589793) > 0
Donc sin(3.141592654) ≠ 0 et sin(3.141592654) < 0 car 3.141592654 > π
Si π est représenté avec 16 chiffres significatifs donc 3.141592653589793 dans ce cas 3.141592653589793 < π
donc sin(3.141592653589793) > 0
- 28 févr. 2024 09:07
- Forum : Tous les Pockets
- Sujet : Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées
- Réponses : 28
- Vues : 789
Re: Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées
Mon aventure pour arriver au résultat est la suivante : j'ai trituré les chiffres de la suite (série ?) sur un tableur pour les n de 1 à 2000.
J'ai fini par y découvrir une relation bizarre en 2r²+1, r étant l'entier le plus proche de 4√n.
La 1ère partie de mon calcul est : cette partie donne les 2 polynômes.
la 2ème partie est : u(k) est ici une constante.
m est ici le de dernier élément avant le dernier changement de valeur de u(k). Je suis presque sûr que je ne suis pas très clair ici
Le lendemain, c'est ma TI Voyage 200 qui a transformée ces 2 sommes en polynômes.
Bien entendu, je n'ai absolument rien vérifié et j'ai supposé, très content de moi, que c'était vrai pour tout n !
- 27 févr. 2024 13:25
- Forum : Tous les Pockets
- Sujet : Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées
- Réponses : 28
- Vues : 789
- 26 févr. 2024 10:50
- Forum : Tous les Pockets
- Sujet : Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées
- Réponses : 28
- Vues : 789
Re: Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées
Après une nuit de reflex… euh sommeil, j'ai trouvé que :
et
Donc mon programme n'a plus de boucle et devient en C :
Et pour le 15C :
Un peu plus long, 45 pas mais plus que 2 registres.
Je ne peux plus chronométrer le temps, c'est instantané quel que soit n en entrée.
De plus ça fonctionne à partir de n = 1
et
Donc mon programme n'a plus de boucle et devient en C :
Code : Tout sélectionner
int64_t n, r, s, np;
double sum;
n = 10000000000LL;
r = floor(sqrt(sqrt(n)) - 0.5);
s = (4*r*r*r + 6*r*r + 5*r) / 3;
np = r * (r+1) * (2*r*r + 2*r + 1) / 2;
sum = s + (double)(n-np)/(r+1);
printf("s + (n-np)/(r+1) = %ld + (%ld-%ld)/(%ld+1)\n", s, n, np, r);
printf("sum = %.10f\n", sum);
Code : Tout sélectionner
001 42.21.11 LBL A
002 44 0 STO 0 # n
003 11 √x
004 11 √x
005 48 .
006 5 5
007 30 -
008 43 44 INT
009 36 ENTER
010 36 ENTER
011 36 ENTER # toute la pile contient r
012 4 4
013 20 ×
014 6 6
015 40 +
016 20 ×
017 5 5
018 40 +
019 20 ×
020 3 3
021 10 ÷ # X = (4r³+6r²+5r)/3
022 44 1 STO 1 # s
023 43 35 CLx
024 2 2
025 20 ×
026 4 4
027 40 +
028 20 ×
029 3 3
030 40 +
031 20 ×
032 1 1
033 40 +
034 20 ×
035 2 2
036 10 ÷ # X = r(r+1)(2r²+2r+1)/2
037 45 0 RCL 0 # n
038 30 -
039 16 CHS
040 34 x⇄y
041 1 1
042 40 +
043 10 ÷
044 45 1 RCL 1 # s
045 40 +
Je ne peux plus chronométrer le temps, c'est instantané quel que soit n en entrée.
De plus ça fonctionne à partir de n = 1
- 25 févr. 2024 20:34
- Forum : Tous les Pockets
- Sujet : Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées
- Réponses : 28
- Vues : 789
Re: Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées
Ce programme est la traduction de
Code : Tout sélectionner
int64_t n, r, s, i, p, np;
double sum;
n = 10000000000LL;
r = floor(sqrt(sqrt(n)) - 0.5);
s = 0;
np = 0;
for(i=r; i>=1; i--) {
p = i*i*4 + 1;
s += p;
np += i*p;
}
sum = s + (double)(n-np)/(r+1);
printf("s + (n-np)/(r+1) = %ld + (%ld-%ld)/(%ld+1)\n", s, n, np, r);
printf("sum = %.10f\n", sum);
- 25 févr. 2024 20:29
- Forum : Tous les Pockets
- Sujet : Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées
- Réponses : 28
- Vues : 789
Re: Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées
Pourquoi pas de DSE 4 ? Ben parce que parfois je suis c*n !
Ça fait 3 pas de moins et un chouia plus rapide (2.8" pour 10¹⁰)Mon programme ne fonctionne pas pour les valeurs de n de 1 à 5…
Ça fait 3 pas de moins et un chouia plus rapide (2.8" pour 10¹⁰)
Code : Tout sélectionner
001 42.21.11 LBL A
002 44 0 STO 0
003 11 √x
004 11 √x
005 48 .
006 5 5
007 30 -
008 43 44 INT
009 44 1 STO 1
010 44 4 STO 4
011 0 0
012 44 2 STO 2
013 44 3 STO 3
014 42.21. 0 LBL 0
015 45 4 RCL 4
016 36 ENTER
017 43 11 x²
018 4 4
019 20 ×
020 1 1
021 40 +
022 44.40. 2 STO+ 2
023 20 ×
024 44.40. 3 STO+ 3
025 43.30. 0 DSE 4
026 22 0 GTO 0
027 45 0 RCL 0
028 45 3 RCL 3
029 30 -
030 45 1 RCL 1
031 1 1
032 40 +
033 10 ÷
034 45.40. 2 RCL+ 2
- 25 févr. 2024 20:09
- Forum : Tous les Pockets
- Sujet : Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées
- Réponses : 28
- Vues : 789
Re: Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées
Mon 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.
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.
- 25 févr. 2024 20:02
- Forum : Tous les Pockets
- Sujet : Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées
- Réponses : 28
- Vues : 789
Re: Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées
pour 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
pour n=1e9 c'est 7497924 + 5/178
pour n=1e10 c'est 42163787 + 19/158
- 25 févr. 2024 17:01
- Forum : Tous les Pockets
- Sujet : Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées
- Réponses : 28
- Vues : 789
Re: Misez p'tit Optimisez n°126 : Remplir un tableau de valeurs calculées
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"
J'obtiens le résultat 3931581.552 pour n = 422825625 en 1.3"
et 7497924.028 pour n = 1000000000 en 1.7"
Code : Tout sélectionner
001 42.21.11 LBL A
002 44 0 STO 0
003 11 √x
004 11 √x
005 48 .
006 5 5
007 30 -
008 43 44 INT
009 44 1 STO 1
010 44 4 STO 4
011 0 0
012 44 2 STO 2
013 44 3 STO 3
014 45 4 RCL 4
015 42.21. 0 LBL 0
016 36 ENTER
017 43 11 x²
018 4 4
019 20 ×
020 1 1
021 40 +
022 44.40. 2 STO+ 2
023 20 ×
024 44.40. 3 STO+ 3
025 1 1
026 44.30. 4 STO- 4
027 45 4 RCL 4
028 43.30. 0 TEST 0 (x ≠ 0)
029 22 0 GTO 0
030 45 0 RCL 0
031 45 3 RCL 3
032 30 -
033 45 1 RCL 1
034 1 1
035 40 +
036 10 ÷
037 45.40. 2 RCL+ 2
- 17 févr. 2024 09:16
- Forum : Je donne, j'échange, j'achète et je vends [réservé aux membres actifs]
- Sujet : [CLOSED] SHARP PC-1600 USB-Stick Interface Module
- Réponses : 132
- Vues : 19168
Re: [CLOSED] SHARP PC-1600 USB-Stick Interface Module
Gestern angekommen, noch nicht getestet.
Vielen Dank!
Vielen Dank!
- 10 janv. 2024 20:18
- Forum : Je donne, j'échange, j'achète et je vends [réservé aux membres actifs]
- Sujet : [CLOSED] SHARP PC-1600 USB-Stick Interface Module
- Réponses : 132
- Vues : 19168
Re: [ORDER NOW] SHARP PC-1600 USB-Stick Interface Module
I also confirm my order
- 05 janv. 2024 14:05
- Forum : Général
- Sujet : L'annonce la plus drôle
- Réponses : 4311
- Vues : 1670593
Re: L'annonce la plus drôle
Une calculatrice primé(e), je ne sais pas par qui !
https://www.leboncoin.fr/equipements_fo ... 992793.htm
https://www.leboncoin.fr/equipements_fo ... 992793.htm
- 24 déc. 2023 09:51
- Forum : Tous les Pockets
- Sujet : Misez p'tit, Optimisez ! n° 123 : Le défi de Numérobis
- Réponses : 58
- Vues : 2684