L'objectif est d'enrichir le programme existant. |
Citation :
Autopoïèse d'un programme écrit avec Ada par recherche de chemin.
|
Chacun des états est obtenu par algorithme génétique.
Algorithme Astar
Close File à priorité.
Open Vecteur
Trame
Arbre N-aires éthérogène
-- prototype
-- declaration
-- corp
Methodes
-- Créer
-- Ouvrir
-- Insérer
-- Ajouter
-- Réécrire
Mouvements
Genes(1..1024) ; 1024 genes (1024 méthodes sur une trame ).
-- Random
-- Mute
-- Mutate
-- Fitness
Heuristique
retourne le gain d'un état.
Uniforme
retourne le coût d'un état.
Les cinq modes d'exploitation du programme.
Citation :
Représentation graphique des programme Ada.
La réprésentation graphique d'un programme Ada est réalisé en utilisant les symboles représentant les unités de compilation en mettant en évidence les dépendences de celle - ci avec des flèche dirigées vers les bliothèques dont dépend chaque unité.
Dans le shema suivant, chaque rangé dépend des unités de la rangé inférieur.
|
Si je parviens à transposer Astar pour parcourir le chemin en temps réel ; J'écrirai une classe dual_view constinué d'un gene real_time ou d'un gene differed.
Differed
-- Goal.Create(Line);
-- Goal.Add(Random);
-- Put_Line("Path finding : " );
-- Astar(Start, Goal);
-- Put_Line("Goal!" );
-- Goal.Normalize;
-- Put_Line("Starting manufacture..." );
-- Goal.Initialize;
-- Put_Line("Running..." );
-- Goal.Run;
-- Put_Line("End of program." );
-- Goal.Finalize;
-- Put_Line("Program saved." );
-- Goal.Make_ID;
-- Gaol.Man(1);
Real time
-- Goal.Create(Line);
-- Goal.Add(Random);
-- Put_Line("Path finding : " );
-- Astar(Start, Goal);
-- Put_Line("Goal!" );
-- Goal.Normalize;
-- Put_Line("Starting manufacture..." );
-- Goal.Initialize;
-- Goal.Make_ID;
-- Gaol.Man(1);
-- Put_Line("Running..." );
-- Goal.Run;
-- Put_Line("End of program." );
-- Goal.Finalize;
-- Put_Line("Program saved." );
Message édité par lady ada le 03-10-2026 à 02:40:04
---------------
main is business suite for Ada projects.
