/[common-math]/trunk/common-math/numerics/linear-algebra/inversion.lisp
ViewVC logotype

Contents of /trunk/common-math/numerics/linear-algebra/inversion.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4 - (show annotations)
Sat Sep 23 22:23:10 2006 UTC (7 years, 6 months ago) by mantoniotti
File size: 592 byte(s)
Minor changes.
1 ;;;; -*- Mode: Lisp -*-
2
3 ;;;; inversion.lisp --
4
5
6 (in-package "CL.MATH.LINEAR-ALGEBRA")
7
8 ;;;===========================================================================
9 ;;; Inversion
10
11 ;;; inverse
12
13 (defgeneric inverse (m))
14
15 (defgeneric inverse/double-float (m))
16
17
18
19 (defmethod inverse ((a matrix))
20 (inverse (matrix-data a)))
21
22
23 (defmethod inverse ((a array)) (error "Unimplemented ~S" a))
24
25
26 (defmethod inverse/double-float ((a matrix))
27 (inverse/double-float (matrix-data a)))
28
29
30 (defmethod inverse/double-float ((a array)) (error "Unimplemented ~S" a))
31
32
33
34 ;;; end of file -- inversion.lisp --

  ViewVC Help
Powered by ViewVC 1.1.5