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;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>