From cfa9bd9a81c7b82ca90b2817daf1096f5759fe01 Mon Sep 17 00:00:00 2001 From: Neil Toronto Date: Wed, 2 Jan 2013 13:19:59 -0700 Subject: [PATCH] Exported `matrix-basis-cos-angle' with a contractable type --- collects/math/matrix.rkt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/collects/math/matrix.rkt b/collects/math/matrix.rkt index 801606d5d0..964ad20616 100644 --- a/collects/math/matrix.rkt +++ b/collects/math/matrix.rkt @@ -29,6 +29,7 @@ (except-in "private/matrix/matrix-subspace.rkt" matrix-col-space) (except-in "private/matrix/matrix-operator-norm.rkt" + matrix-basis-cos-angle matrix-basis-angle) ;;"private/matrix/matrix-qr.rkt" ; all use require/untyped-contract ;;"private/matrix/matrix-lu.rkt" ; all use require/untyped-contract @@ -107,6 +108,8 @@ (require/untyped-contract (begin (require "private/matrix/matrix-types.rkt")) "private/matrix/matrix-operator-norm.rkt" + [matrix-basis-cos-angle + ((Matrix Number) (Matrix Number) -> Number)] [matrix-basis-angle ((Matrix Number) (Matrix Number) -> Number)]) @@ -170,6 +173,7 @@ ;; matrix-subspace.rkt matrix-col-space ;; matrix-operator-norm.rkt + matrix-basis-cos-angle matrix-basis-angle ;; matrix-qr.rkt matrix-qr