from openai import OpenAI
client = OpenAI(base_url="https://api.china-aiapi.com/v1", api_key="VOTRE_CLE")
r = client.chat.completions.create(model="id-du-modele", messages=[{"role": "user", "content": "Bonjour"}])
print(r.choices[0].message.content)

bunx oh-my-agent@latest
oma doctor

Decision model
 
 
Manufacture
L'objectif est d'enrichir le programme existant.
Autopoïèse d'un programme écrit avec Ada par recherche de chemin.
Chacun des états est obtenu par algorithme génétique.
Algorithme Astar
Heuristique
retourne le gain d'un état.
Uniforme
retourne le coût d'un état.
Input/Output
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
 
Graph dependencies
[ATTACH=CONFIG]679167[/ATTACH]
 
Program Test
 
with Kernel;
use Kernel;
with Text_Io;
use Text_Io;
procedure Test is
 
   Self : constant String := "astar.adb";
   Empty : constant String := "astar.adb";
   InFile  : File_Type;
   OutFile : File_Type;
   Index : Natural := 0;
   Inopen, Outopen : Boolean := False;
begin
 
   loop
      declare
	 Start : Kernel_Tree := Initialize(Self);
	 Goal  : Kernel_Tree := Initialize(Empty);
      begin
 
	 Open(Infile, In_File, "listing");
	 Inopen := True;
 
         for I in 1..Index-1 loop
	    declare
	       Line : String := Get_Line(InFile);
	    begin
	       null;
	    end;
	 end loop;
	 loop
	    declare
	       Line : String := Get_Line(InFile);
	    begin
	       Index := Index + 1;
	       Close(Infile);
	       Inopen := False;
	       while not Goal.Is_Exhausted loop
		  Put_Line("New goal : " & Line);
		  Put("Program name : ");
		  Goal.Name(Get_Line);
		  Open(Outfile, Append_File, "listing");
		  Outopen := True;
		  Goal.Append(OutFile);
		  Close(Outfile);
		  Outopen := False;
	       end loop;
	       Goal := Initialize(Empty);
	       exit;
	    exception
	       when others =>
		  Put_Line("Standard Errror : ");
		  raise;
	    end;
	 end loop;
      exception
	 when others =>
	    Put_Line("Standard Errror : ");
	    Start.Free;
	    Start := Initialize(Self);
	    if Inopen then
	       Close(Infile);
	    end if;
	    if Outopen then
	       Close(Outfile);
	    end if;
	    Skip_Line;
      end;
   end loop;
end Test;
 
 
 
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.");