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

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;