suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Exported `matrix-basis-cos-angle' with a contractable type

Browse Source
This commit is contained in:
Neil Toronto 2013-01-02 13:19:59 -07:00
parent 69406bf156
commit cfa9bd9a81
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/math/matrix.rkt
View File

@ -29,6 +29,7 @@
(except-in "private/matrix/matrix-subspace.rkt" (except-in "private/matrix/matrix-subspace.rkt"
matrix-col-space) matrix-col-space)
(except-in "private/matrix/matrix-operator-norm.rkt" (except-in "private/matrix/matrix-operator-norm.rkt"
matrix-basis-cos-angle
matrix-basis-angle) matrix-basis-angle)
;;"private/matrix/matrix-qr.rkt" ; all use require/untyped-contract ;;"private/matrix/matrix-qr.rkt" ; all use require/untyped-contract
;;"private/matrix/matrix-lu.rkt" ; all use require/untyped-contract ;;"private/matrix/matrix-lu.rkt" ; all use require/untyped-contract
@ -107,6 +108,8 @@
(require/untyped-contract (require/untyped-contract
(begin (require "private/matrix/matrix-types.rkt")) (begin (require "private/matrix/matrix-types.rkt"))
"private/matrix/matrix-operator-norm.rkt" "private/matrix/matrix-operator-norm.rkt"
[matrix-basis-cos-angle
((Matrix Number) (Matrix Number) -> Number)]
[matrix-basis-angle [matrix-basis-angle
((Matrix Number) (Matrix Number) -> Number)]) ((Matrix Number) (Matrix Number) -> Number)])
@ -170,6 +173,7 @@
;; matrix-subspace.rkt ;; matrix-subspace.rkt
matrix-col-space matrix-col-space
;; matrix-operator-norm.rkt ;; matrix-operator-norm.rkt
matrix-basis-cos-angle
matrix-basis-angle matrix-basis-angle
;; matrix-qr.rkt ;; matrix-qr.rkt
matrix-qr matrix-qr