![]() ![]() | ![]() |
File: [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Polynomials / generic_laur_system_functions.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:26 2000 UTC (23 years, 10 months ago) by maekawa
Import the second public release of PHCpack. OKed by Jan Verschelde. |
package body Generic_Laur_System_Functions is use Polynomials,Poly_Functions; -- CREATORS : function Create ( p : Laur_Sys ) return Eval_Laur_Sys is res : Eval_Laur_Sys(p'range); begin for k in p'range loop res(k) := Create(p(k)); end loop; return res; end Create; function Create ( p : Laur_Sys ) return Eval_Coeff_Laur_Sys is res : Eval_Coeff_Laur_Sys(p'range); begin for k in p'range loop res(k) := Create(p(k)); end loop; return res; end Create; -- EVALUATORS : function Eval ( p : Laur_Sys; x : number; i : natural ) return Laur_Sys is res : Laur_Sys(p'range); begin for j in p'range loop res(j) := Eval(p(j),x,i); end loop; return res; end Eval; function Eval ( p : Laur_Sys; x : Vector ) return Vector is res : Vector(p'range); begin for i in p'range loop res(i) := Eval(p(i),x); end loop; return res; end Eval; function Eval ( p : Eval_Laur_Sys; x : Vector ) return Vector is res : Vector(p'range); begin for i in p'range loop res(i) := Eval(p(i),x); end loop; return res; end Eval; function Eval ( p : Eval_Coeff_Laur_Sys; c : VecVec; x : Vector ) return Vector is res : Vector(p'range); begin for i in p'range loop res(i) := Eval(p(i),c(i).all,x); end loop; return res; end Eval; -- DESTRUCTORS : procedure Clear ( p : in out Eval_Laur_Sys ) is begin for k in p'range loop Clear(p(k)); end loop; end Clear; procedure Clear ( p : in out Eval_Coeff_Laur_Sys ) is begin for k in p'range loop Clear(p(k)); end loop; end Clear; end Generic_Laur_System_Functions;