Return to generic_inline_homotopy.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Continuation

Annotation of OpenXM_contrib/PHC/Ada/Continuation/generic_inline_homotopy.adb, Revision 1.1

1.1     ! maekawa     1: package body Generic_Inline_Homotopy is
        !             2:
        !             3:   procedure Init ( a : in Complex_Number; k : in positive ) is
        !             4:   begin
        !             5:     Homotopy_Constants(a,k);
        !             6:   end Init;
        !             7:
        !             8:   function Eval ( x : Vector; t : Complex_Number ) return Vector is
        !             9:   begin
        !            10:     return Eval_Homotopy(x,t);
        !            11:   end Eval;
        !            12:
        !            13:   function Diff ( x : Vector; t : Complex_Number ) return Matrix is
        !            14:   begin
        !            15:     return Diff_Homotopy(x,t);
        !            16:   end Diff;
        !            17:
        !            18:   function Diff ( x : Vector; t : Complex_Number ) return Vector is
        !            19:   begin
        !            20:     return Diff_Homotopy(x,t);
        !            21:   end Diff;
        !            22:
        !            23: end Generic_Inline_Homotopy;