X-Git-Url: http://gitweb.michael.orlitzky.com/?p=numerical-analysis.git;a=blobdiff_plain;f=src%2FLinear%2FQR.hs;h=8d9ea42a1e19bd880ffb9211238e53ba3d7b8c5b;hp=043b17256e6af341dbe1fe3a34f18dff649a20a7;hb=a96be0c7818e0408b4aac9076df131c5b3ec6ff4;hpb=b64e8d2a0ef24e880265b9ba4997c3d4eb995570 diff --git a/src/Linear/QR.hs b/src/Linear/QR.hs index 043b172..8d9ea42 100644 --- a/src/Linear/QR.hs +++ b/src/Linear/QR.hs @@ -231,7 +231,7 @@ eigenvalues iterations matrix -- Examples: -- -- >>> import Linear.Matrix ( Col2, Col3, Mat2, Mat3 ) --- >>> import Linear.Matrix ( column', frobenius_norm, fromList ) +-- >>> import Linear.Matrix ( column, frobenius_norm, fromList ) -- >>> import Linear.Matrix ( identity_matrix, vec3d ) -- >>> import Normed ( Normed(..) ) -- @@ -253,11 +253,11 @@ eigenvalues iterations matrix -- >>> let v1 = (1 / (norm v1') :: Double) *> v1' -- >>> let v2' = vec3d (-4, -2, 5) :: Col3 Double -- >>> let v2 = (1 / (norm v2') :: Double) *> v2' --- >>> frobenius_norm ((column' vecs 0) - v0) < 1e-12 +-- >>> frobenius_norm ((column vecs 0) - v0) < 1e-12 -- True --- >>> frobenius_norm ((column' vecs 1) - v1) < 1e-12 +-- >>> frobenius_norm ((column vecs 1) - v1) < 1e-12 -- True --- >>> frobenius_norm ((column' vecs 2) - v2) < 1e-12 +-- >>> frobenius_norm ((column vecs 2) - v2) < 1e-12 -- True -- eigenvectors_symmetric :: forall m a. (Arity m, Algebraic.C a, Eq a)