Return to generic_laur_system_functions.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Polynomials

Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Polynomials/generic_laur_system_functions.adb, Revision 1.1

1.1     ! maekawa     1: package body Generic_Laur_System_Functions is
        !             2:
        !             3:   use Polynomials,Poly_Functions;
        !             4:
        !             5: -- CREATORS :
        !             6:
        !             7:   function Create ( p : Laur_Sys ) return Eval_Laur_Sys is
        !             8:
        !             9:     res : Eval_Laur_Sys(p'range);
        !            10:
        !            11:   begin
        !            12:     for k in p'range loop
        !            13:       res(k) := Create(p(k));
        !            14:     end loop;
        !            15:     return res;
        !            16:   end Create;
        !            17:
        !            18:   function Create ( p : Laur_Sys ) return Eval_Coeff_Laur_Sys is
        !            19:
        !            20:     res : Eval_Coeff_Laur_Sys(p'range);
        !            21:
        !            22:   begin
        !            23:     for k in p'range loop
        !            24:       res(k) := Create(p(k));
        !            25:     end loop;
        !            26:     return res;
        !            27:   end Create;
        !            28:
        !            29: -- EVALUATORS :
        !            30:
        !            31:   function Eval ( p : Laur_Sys; x : number; i : natural ) return Laur_Sys is
        !            32:
        !            33:     res : Laur_Sys(p'range);
        !            34:
        !            35:   begin
        !            36:     for j in p'range loop
        !            37:       res(j) := Eval(p(j),x,i);
        !            38:     end loop;
        !            39:     return res;
        !            40:   end Eval;
        !            41:
        !            42:   function Eval ( p : Laur_Sys; x : Vector ) return Vector is
        !            43:
        !            44:     res : Vector(p'range);
        !            45:
        !            46:   begin
        !            47:     for i in p'range loop
        !            48:       res(i) := Eval(p(i),x);
        !            49:     end loop;
        !            50:     return res;
        !            51:   end Eval;
        !            52:
        !            53:   function Eval ( p : Eval_Laur_Sys; x : Vector ) return Vector is
        !            54:
        !            55:     res : Vector(p'range);
        !            56:
        !            57:   begin
        !            58:     for i in p'range loop
        !            59:       res(i) := Eval(p(i),x);
        !            60:     end loop;
        !            61:     return res;
        !            62:   end Eval;
        !            63:
        !            64:   function Eval ( p : Eval_Coeff_Laur_Sys; c : VecVec; x : Vector )
        !            65:                 return Vector is
        !            66:
        !            67:     res : Vector(p'range);
        !            68:
        !            69:   begin
        !            70:     for i in p'range loop
        !            71:       res(i) := Eval(p(i),c(i).all,x);
        !            72:     end loop;
        !            73:     return res;
        !            74:   end Eval;
        !            75:
        !            76: -- DESTRUCTORS :
        !            77:
        !            78:   procedure Clear ( p : in out Eval_Laur_Sys ) is
        !            79:   begin
        !            80:     for k in p'range loop
        !            81:       Clear(p(k));
        !            82:     end loop;
        !            83:   end Clear;
        !            84:
        !            85:   procedure Clear ( p : in out Eval_Coeff_Laur_Sys ) is
        !            86:   begin
        !            87:     for k in p'range loop
        !            88:       Clear(p(k));
        !            89:     end loop;
        !            90:   end Clear;
        !            91:
        !            92: end Generic_Laur_System_Functions;