package body ANN is
---------------------------------------------------------------------------
---------------------------------------------------------------------------

procedure Initialize(ANN: in out ANN_Type) is
---------------------------------------------------------------------------
begin
  for index in ANN'range loop
    Neuron.Initialize( Neuron => ANN( index));
  end loop;
end Initialize;

procedure Show_State(ANN: in ANN_Type) is
---------------------------------------------------------------------------
begin
  for index in ANN'range loop
    Neuron.Show_State( Neuron => ANN( index));
  end loop;
end Show_State;

procedure Think(ANN: in out ANN_Type) is
---------------------------------------------------------------------------
begin
  null;
end Think;

end ANN;