with MatrAK; use MatrAK;

     package body A83_010_Matrix_Solutions is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     function Least_Squares (
       A :  Matrix_Type;
       B :  Vector_Type )
       return Vector_Type is
     ----------------------------------------------------------------------
     begin
       return Vector_Convert (
	 Inverse ( Transpose ( A ) * A ) * Transpose ( A ) ) * B;
     end Least_Squares;

     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end A83_010_Matrix_Solutions;