![]() ![]() | ![]() |
File: [local] / OpenXM_contrib / PHC / Ada / Root_Counts / Implift / transforming_solutions.ads (download)
Revision 1.1, Sun Oct 29 17:45:29 2000 UTC (23 years, 9 months ago) by maekawa
Initial revision |
with Standard_Complex_Numbers; use Standard_Complex_Numbers; with Standard_Complex_Vectors; use Standard_Complex_Vectors; with Standard_Complex_Solutions; use Standard_Complex_Solutions; with Transformations; use Transformations; package Transforming_Solutions is -- DESCRIPTION : -- The transformations on solutions are used in solving systems -- by monomial transformations. procedure Transform ( t : in Transfo; s : in out Solution ); function Transform ( t : Transfo; s : Solution ) return Solution; procedure Transform ( t : in Transfo; l : in out Solution_List ); function Transform ( t : Transfo; l : Solution_List ) return Solution_List; -- DESCRIPTION : -- The transformation t will be applied. function Insert ( c : Complex_Number; i : integer; s : Solution ) return Solution; procedure Insert ( c : in Complex_Number; i : in integer; l : in out Solution_List ); function Insert ( c : Complex_Number; i : integer; l : Solution_List ) return Solution_List; -- DESCRIPTION : -- To the ith component of the solution vector, c will be inserted. function Insert ( cv : vector; i : integer; s : Solution ) return Solution_List; -- DESCRIPTION : -- All components in the vector cv will be inserted as the -- the ith component in the solution vector. end Transforming_Solutions;