X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FLinear%2FQR.hs;h=8d9ea42a1e19bd880ffb9211238e53ba3d7b8c5b;hb=a96be0c7818e0408b4aac9076df131c5b3ec6ff4;hp=13782c4fa9073728bfdf5d4a0de8b4a2788a67e4;hpb=bd9c9a0bc058786a45a7f679e4037a4a814d79d8;p=numerical-analysis.git diff --git a/src/Linear/QR.hs b/src/Linear/QR.hs index 13782c4..8d9ea42 100644 --- a/src/Linear/QR.hs +++ b/src/Linear/QR.hs @@ -155,7 +155,7 @@ qr matrix = ifoldl (f col_idx) (q,r) col -- | Process the entries in a column, doing basically the same - -- thing as col_dunction does. It updates the QR factorization, + -- thing as col_function does. It updates the QR factorization, -- maybe, and returns the current one. f col_idx (q,r) idx _ -- ignore the current element | idx <= col_idx = (q,r) -- leave it alone @@ -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)