----------------------------------------------------------------------
     -- Title       :  LineAK
     -- Version     :  1.01
     -- Author      :  David Wallace Croft, CompuServe [76600,102]
     -- Compiler    :  Ada
     -- Unit Type   :  package specification
     -- Copyright   :  1994 David Wallace Croft.  All rights reserved.
     -- Description :  Linear Programming & Game Theory
     ----------------------------------------------------------------------

     with A83_014_Vector; use A83_014_Vector;
     with A83_015_Matrix; use A83_015_Matrix;

     package LineAK is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     procedure Demo;
     procedure Simplex_Revised (
       Degenerate :    out boolean;
       X          :    out Vector_Type;
       Y          :    out Vector_Type;
       Z          :    out float;
       A          : in     Matrix_Type;
       B          : in     Vector_Type;
       C          : in     Vector_Type;
       Show       : in     boolean := false;
       Near_0     : in     float := 1.0e-10 );
     procedure Simplex_Revised_2 (
       Degenerate :    out boolean;
       Tableau    : in out Matrix_Type;
       Basis      : in out Vector_Integer_Type;
       A          : in     Matrix_Type;
       C          : in     Vector_Type;
       Show       : in     boolean := false;
       Near_0     : in     float := 1.0e-10 );
     procedure Simplex_Revised_Demo;
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end LineAK;