with Matr_DC; use Matr_DC;

     package Backpro is
     ----------------------------------------------------------------------
     type Vector_Type is array ( positive range <> ) of float;
     ----------------------------------------------------------------------
     procedure Backpropagation (
       Weights       : in out Matrix_Type;
       Inputs_Train  : in     Matrix_Type;
       Outputs_Train : in     Matrix_Type;
       Learning_Rate : in     float       := 0.01 );
     procedure Demo;
     function Feedforward (
       Neurons : in     positive := 2;
       Layers  : in     positive := 2;
       Weight  : in     float    := 1.0 )
       return Matrix_Type;
     procedure Propagate (
       Stable        :    out boolean;
       Output_Vector : in out Vector_Type;
       Weights       : in     Matrix_Type );
     function Sigmoid (
       F : float )
       return float;
     ----------------------------------------------------------------------
     end Backpro;