| Voir le sujet précédent :: Voir le sujet suivant |
| Auteur |
Message |
jackseg
Grand Expert
Genre: 
Statut: Absent
Age: 45
Inscrit le: 14 Nov 2003
Messages: 5607
Localisation: Suisse ou bien...
|
|
et un truc du genre :
| Code: | dim nombre, avant, somme
nombre = 2
while nombre <= 100000
somme = 0
for avant = 1 to nombre - 1 step 1
if nombre mod avant = 0 then
somme = somme + avant
end if
next
if nombre = somme then
wscript.echo nombre
end if
nombre = nombre + 2
wend |
en VBS. Putain après le 5ème il cherche depuis 2min et toujours rien 
EDIT Avec la HP laisse tomber, il y a que la recherche de nombre 1er et avec le temps que ca prends... |
|
| Revenir en haut de page |
|
 |
jackseg
Grand Expert
Genre:
Statut: Absent
Age: 45
Inscrit le: 14 Nov 2003
Messages: 5607
Localisation: Suisse ou bien...
|
|
| Revenir en haut de page |
|
|
BuBu
Grand Expert
Genre:
Statut: Absent
Age: 44
Inscrit le: 14 Nov 2003
Messages: 3786
Localisation: Morges - Suisse
|
|
Oui ça fonctionne mais c'est pas très très rapide 
| jackseg a écrit: | Arg, dois y avoir un bug. Il me donne 2 fois "8128".
C'est quoi ce boardel ? |
VBS powa
_________________
322'000 km
Est-ce le record du monde pour une 306 GTi ? |
|
| Revenir en haut de page |
|
|
jackseg
Grand Expert
Genre:
Statut: Absent
Age: 45
Inscrit le: 14 Nov 2003
Messages: 5607
Localisation: Suisse ou bien...
|
|
J'ai rien d'autre ici 
J'veux bien essayer avec Delphi, mais après le 6ème nombre je pense que l'on peut aller se coucher avec nos PC 
T'as un algo plus rapide ?
_________________
prout
Les Italiennes ? Et non, y a pas plus beau...
 |
|
| Revenir en haut de page |
|
|
BuBu
Grand Expert
Genre:
Statut: Absent
Age: 44
Inscrit le: 14 Nov 2003
Messages: 3786
Localisation: Morges - Suisse
|
|
Oui, je l'ai donné à la page 1
Tu peux utiliser le gcc de CygWin, très très bon compilateur... ou simplement Java, ça va très bien aussi (très rapide pour calculer tout de même... comparaison à l'appui)
_________________
322'000 km
Est-ce le record du monde pour une 306 GTi ? |
|
| Revenir en haut de page |
|
|
jackseg
Grand Expert
Genre:
Statut: Absent
Age: 45
Inscrit le: 14 Nov 2003
Messages: 5607
Localisation: Suisse ou bien...
|
|
| Revenir en haut de page |
|
|
BuBu
Grand Expert
Genre:
Statut: Absent
Age: 44
Inscrit le: 14 Nov 2003
Messages: 3786
Localisation: Morges - Suisse
|
|
| jackseg a écrit: | J'avais pas vu ton algo 
Je viens de regarder un peu pour la HP49 et effectivement il utilisent aussi le théorème d'Euclide pour calculer par exemple le PGDC ou l'Identité de Bézout. Ca à l'air d'être le plus rapide 
http://www-fourier.ujf-grenoble.fr/~degraeve/grouge.pdf |
Ca m'aurait semblé plus logique qu'ils utilisent des tables.
Ceci dit, je suis convaincu que ça ne va pas très loin, car on a arrive vite à des centaines ou des milliers de décimales, donc soit:
1) ça ne les affiche pas car l'écran est trop petit
2) ça les affiche, mais faut scroller 10 minutes
3) ça indique en notation scientifique ou d'ingénieur, auquel cas le nombre est pas complètement défini, et donc refusé dans ce topic
_________________
322'000 km
Est-ce le record du monde pour une 306 GTi ? |
|
| Revenir en haut de page |
|
|
jackseg
Grand Expert
Genre:
Statut: Absent
Age: 45
Inscrit le: 14 Nov 2003
Messages: 5607
Localisation: Suisse ou bien...
|
|
| BuBu a écrit: | | 1) ça ne les affiche pas car l'écran est trop petit |
Faux
| BuBu a écrit: | | 2) ça les affiche, mais faut scroller 10 minutes |
Exact 
| BuBu a écrit: | | 3) ça indique en notation scientifique ou d'ingénieur, auquel cas le nombre est pas complètement défini, et donc refusé dans ce topic |
En fait t'as le choix entre les deux ce qu'il n'y avait pas sur la 48.
Mais si tu veux utiliser une de ces fonctions, la calculatrice demande de passer automatiquement en mode "Numeric off".
Par exemple si tu fais 69! (nombre pris au hasard ) en numéric, la réponse est 1.711E98 et en réel elle donne : 1711224524281............... et tu scrolles.
Cool, non ?
_________________
prout
Les Italiennes ? Et non, y a pas plus beau...
|
|
| Revenir en haut de page |
|
|
BuBu
Grand Expert
Genre:
Statut: Absent
Age: 44
Inscrit le: 14 Nov 2003
Messages: 3786
Localisation: Morges - Suisse
|
|
Génial, et si je te dis que le 15ème nombre parfait fait environ 1'300 décimales ? tu vas bien t'amuser à scroller et tout noter ici
nb: j'en suis au 16ème si jamais 
_________________
322'000 km
Est-ce le record du monde pour une 306 GTi ? |
|
| Revenir en haut de page |
|
|
jackseg
Grand Expert
Genre:
Statut: Absent
Age: 45
Inscrit le: 14 Nov 2003
Messages: 5607
Localisation: Suisse ou bien...
|
|
| Revenir en haut de page |
|
|
Guil
Amateur
Genre:
Statut: Absent
Age: 44
Inscrit le: 17 Jan 2004
Messages: 446
Localisation: Valence
|
|
| BuBu a écrit: | Oui vas-y donne la réponse, je veux voir jusqu'où ils vont :-)
nb: si vous trouvez avec un algorithme, je veux voir le code pour être certain |
Bon alors c'est un simple copier/coller hein !
"LISTE DE NOMBRES PARFAITS PAIRS *
--------------------------------------------------------------------------------
6
28
496
8128
33550336
8589869056
137438691328
2305843008139952128
2658455991569831744654692615953842176
191561942608236107294793378084303638130997321548169216
13164036458569648337239753460458722910223472318386943117783728128 "
Un sites traitant du sujet :
http://membres.lycos.fr/villemingerard/Decompos/SixNbPf.htm
Un forum ! http://espacemath.com/fornbpar.htm
_________________
Un 7CD8A la semaine, et un 20CD62 le week-end, c'est cool... |
|
| Revenir en haut de page |
|
|
jackseg
Grand Expert
Genre:
Statut: Absent
Age: 45
Inscrit le: 14 Nov 2003
Messages: 5607
Localisation: Suisse ou bien...
|
|
| Revenir en haut de page |
|
|
olive34
Grand Maitre
Genre:
Statut: Absent
Age: 40
Inscrit le: 14 Nov 2003
Messages: 12650
Localisation: Montpellier Voiture: Audi A3 TDi 140
|
|
| Guil a écrit: | | BuBu a écrit: | Oui vas-y donne la réponse, je veux voir jusqu'où ils vont :-)
nb: si vous trouvez avec un algorithme, je veux voir le code pour être certain |
Bon alors c'est un simple copier/coller hein !
"LISTE DE NOMBRES PARFAITS PAIRS *
--------------------------------------------------------------------------------
6
28
496
8128
33550336
8589869056
137438691328
2305843008139952128
2658455991569831744654692615953842176
191561942608236107294793378084303638130997321548169216
13164036458569648337239753460458722910223472318386943117783728128 "
Un sites traitant du sujet :
http://membres.lycos.fr/villemingerard/Decompos/SixNbPf.htm
Un forum ! http://espacemath.com/fornbpar.htm |
Ptiiin t'es baleze en maths Guil! 
Pas comme moi
_________________
Team pu d'306 |
|
| Revenir en haut de page |
|
|
jackseg
Grand Expert
Genre:
Statut: Absent
Age: 45
Inscrit le: 14 Nov 2003
Messages: 5607
Localisation: Suisse ou bien...
|
|
| Revenir en haut de page |
|
|
BuBu
Grand Expert
Genre:
Statut: Absent
Age: 44
Inscrit le: 14 Nov 2003
Messages: 3786
Localisation: Morges - Suisse
|
|
| Guil a écrit: | | BuBu a écrit: | Oui vas-y donne la réponse, je veux voir jusqu'où ils vont :-)
nb: si vous trouvez avec un algorithme, je veux voir le code pour être certain |
Bon alors c'est un simple copier/coller hein !
"LISTE DE NOMBRES PARFAITS PAIRS *
--------------------------------------------------------------------------------
6
28
496
8128
33550336
8589869056
137438691328
2305843008139952128
2658455991569831744654692615953842176
191561942608236107294793378084303638130997321548169216
13164036458569648337239753460458722910223472318386943117783728128 "
Un sites traitant du sujet :
http://membres.lycos.fr/villemingerard/Decompos/SixNbPf.htm
Un forum ! http://espacemath.com/fornbpar.htm |
C'est tout, t'en as que 11 ? c'est nul
Je suis arrivé jusqu'au 16ème, et là je vais optimiser un peu mon code
nb: je demande des définissions complètes de nombres. Aucune décimale ne doit manquer, donc pas de notation scientifique comme on trouve souvent sur des sites de nombres parfaits.
_________________
322'000 km
Est-ce le record du monde pour une 306 GTi ? |
|
| Revenir en haut de page |
|
|
jackseg
Grand Expert
Genre:
Statut: Absent
Age: 45
Inscrit le: 14 Nov 2003
Messages: 5607
Localisation: Suisse ou bien...
|
|
Avec un processeur quantique j'suis sûr que je te pète
A part ca avec Euler on arrive à trouver tous les nombres parfaits paires.
Pour les impaires si tu as quelque chose, je prends.
_________________
prout
Les Italiennes ? Et non, y a pas plus beau...
|
|
| Revenir en haut de page |
|
|
Guil
Amateur
Genre:
Statut: Absent
Age: 44
Inscrit le: 17 Jan 2004
Messages: 446
Localisation: Valence
|
|
| Mafia34 a écrit: | | Guil a écrit: | | BuBu a écrit: | Oui vas-y donne la réponse, je veux voir jusqu'où ils vont :-)
nb: si vous trouvez avec un algorithme, je veux voir le code pour être certain |
Bon alors c'est un simple copier/coller hein !
"LISTE DE NOMBRES PARFAITS PAIRS *
--------------------------------------------------------------------------------
6
28
496
8128
33550336
8589869056
137438691328
2305843008139952128
2658455991569831744654692615953842176
191561942608236107294793378084303638130997321548169216
13164036458569648337239753460458722910223472318386943117783728128 "
Un sites traitant du sujet :
http://membres.lycos.fr/villemingerard/Decompos/SixNbPf.htm
Un forum ! http://espacemath.com/fornbpar.htm |
Ptiiin t'es baleze en maths Guil!
Pas comme moi |
Non, je suis un cancre en math ! Je ne fais que du copier/coller d'après ce que je trouve sur le net.
Google powaaa !
_________________
Un 7CD8A la semaine, et un 20CD62 le week-end, c'est cool... |
|
| Revenir en haut de page |
|
|
jackseg
Grand Expert
Genre:
Statut: Absent
Age: 45
Inscrit le: 14 Nov 2003
Messages: 5607
Localisation: Suisse ou bien...
|
|
J'suis en train de remarqer que j'ai passer des heures pour chercher un super algo qui va servir à rien du tout sauf à afficher des nombres qui vont servir à personne sauf à bruler un CPU.
C'est bien un ingénieur notre ami Bubu 
A quand le concours pour un moteur physique pour Doom7 ?
_________________
prout
Les Italiennes ? Et non, y a pas plus beau...
|
|
| Revenir en haut de page |
|
|
BuBu
Grand Expert
Genre:
Statut: Absent
Age: 44
Inscrit le: 14 Nov 2003
Messages: 3786
Localisation: Morges - Suisse
|
|
Héhé mais c'est un challenge, voyons :) rhaaa
Au fait, quelqu'un aurait un petit cluster à disposition là ?
Si vous voulez je veux bien faire une application répartie qui utilise les ordis de ceux qui veulent pour aller plus loin dans la recherche !
_________________
322'000 km
Est-ce le record du monde pour une 306 GTi ? |
|
| Revenir en haut de page |
|
|
jackseg
Grand Expert
Genre:
Statut: Absent
Age: 45
Inscrit le: 14 Nov 2003
Messages: 5607
Localisation: Suisse ou bien...
|
|
| BuBu a écrit: | | Si vous voulez je veux bien faire une application répartie qui utilise les ordis de ceux qui veulent pour aller plus loin dans la recherche ! |
Genre Seti ?
Je pense quand même que si tu nous proposais ca pour le décodage du génome humain ce serait plus interessant que de chercher des nombres parfaits, non ?
J'ai rien contre ton idée mais je vois pas l'utilité 
_________________
prout
Les Italiennes ? Et non, y a pas plus beau...
|
|
| Revenir en haut de page |
|
|
|
Mes Messages
Mon Profil
Rechercher
Liste des Membres
Groupes
S'enregistrer
(Dé)Connexion
Site 306Inside
Règlement
