Ca s'ouvre avec Delphi (a peu près toutes les versions je pense, ça a été fait avec Delphi 5). Ce code est très vieux et très mal fait (code fait à mes débuts...). Il y a surement moyen de trouver beaucoup mieux sur Codes-Sources.

certes, mais c'est pas le but du code, qui est de montrer les étapes de l'algo de compression jpeg!
@+

salut,
je pense que tu n'a pas compris a quoi servais mon programme: il sert a decomposer 1 nombre en puissances de facteurs premiers et non a dire si 1 nombre est premier; donc mon programme marche parfaitement: 9 est bien egal a 3 x 3 et 3 est bien premier.
@+

Salut,
code interessant, mais j'ai 2 petites remarques à faire:
tout d'abord, pour tester si un nombre est premier on le teste pas jusqu'a sa moitie mais jusqu'a sa racine carré; et pis, pour racourcir le test vaut mieux mettre 1 Break dans la boucle, comme ca quand il a vu qu'il etait pas premier il s'arrete:
par exemple:
  Npremier := False;
  for i := 2 to Trunc(Sqrt(nombre)) + 1 do
  begin
    if nombre mod i = 0 then
    begin
      Npremier := True;
      Break;
    end;
  end;
tu verras ca va beaucoup plus vite!
@+ et bonne prog

salut,
bravo, ce code est vraiment excellent et il marche très bien.
en plus la présentation est impeccable.
par contre il me manque 1 composant TXPmanifest.
sinon encore bravo.
@+

salut,
j'ai remarqué 1 probleme dans ton code (qui marche sinon, bravo):
dans la fonction Verifier, lorsque tu verifie si le premier élément est bien 1 opérateur, il faut mettre des and et non des or, sinon ca ne marche pas (car le premier élément est forcement différent d'1 des 4 opérateur).
@+

salut, merci de tes remarques, mais j'ai moi aussi quelques commentaires à faire:
je ne vois pas comment dans un algo de ce type (avec les permutations), on peut garder les parties de chaque parent. mais à mon avis ca doit bcp compliquer le code.

pour la selection, j'utilise la méthode de la roulette mais en classant les chromosomes, car la méthode de la roulette (si on parle bien de la meme) a tendance, dans les cas extremes, à eliminer les moins bons. mais peut etre parlait-tu d'1 equiprobabilite.
la methode que j'utilise est la suivante:
sur 4 chromosomes, la probabilité que le meilleur soit selectionné est de 4/10, le 2e de 3/10, le 3e de 2/10 et le dernier 1/10 (10 étant la somme 1 + 2 + 3 + 4).
maid c'est sur il y a des ameliorations a faire.
@+

salut,
j'ai regardé les possibilites de la théorie des graphes (qui sont vraiment énormes) et on peut résoudre ce problème de manière systématique mais étant donné que dans mon cas il s'agirait d'1 graphe complet (tous les points sont connectés entre eux), je me demande si ca ne serait pas 1 peu long, (mais c'est sur ces algos sont tres performants).
sinon une petite amélioration: remplacer Nbmutations := 1 par NbMutation := random(2); car le nombre de mutations etait trop élevé pour un nombre de ville < 100.
@+ et merci

salut,
d'abord merci; ensuite il faut savoir qu'il existe d'autres méthodes pour chaque étape de l'algorithme génétique qui rendent un peu moins aléatoire (les mutations...). Cependant le hasard est quand même à la base des évolutions génétiques.
Enfin le problème est que cette méthode n'est pas systématique (pour 1 grand nombre de villes) et qu'il garde effectivement certains morceaux qui ne sont pas forcement les meilleurs.
Il parait qu'on peut faire la même chose de manière systématique avec la théorie des graphes...
@+

Tout a fait, il est plus pratique de dessiner dans 1 TImage; j'ai d'ailleurs essayé et ca marche tres bien. Seulement avec le TImage l'affichage est plus long (30% de temps en plus environ). mais si on veut faire autre chose en meme temps, effectivement il vaut mieux utiliser un TImage car le dessin n'est pas perdu.
merci de ta remarque.