Return to generic_inline_homotopy.adb CVS log | Up to [local] / OpenXM_contrib / PHC / Ada / Continuation |
File: [local] / OpenXM_contrib / PHC / Ada / Continuation / generic_inline_homotopy.adb (download)
Revision 1.1, Sun Oct 29 17:45:22 2000 UTC (23 years, 8 months ago) by maekawa
Initial revision |
package body Generic_Inline_Homotopy is procedure Init ( a : in Complex_Number; k : in positive ) is begin Homotopy_Constants(a,k); end Init; function Eval ( x : Vector; t : Complex_Number ) return Vector is begin return Eval_Homotopy(x,t); end Eval; function Diff ( x : Vector; t : Complex_Number ) return Matrix is begin return Diff_Homotopy(x,t); end Diff; function Diff ( x : Vector; t : Complex_Number ) return Vector is begin return Diff_Homotopy(x,t); end Diff; end Generic_Inline_Homotopy;