summaryrefslogtreecommitdiff
path: root/packages/base/src/Internal/Algorithms.hs
diff options
context:
space:
mode:
Diffstat (limited to 'packages/base/src/Internal/Algorithms.hs')
-rw-r--r--packages/base/src/Internal/Algorithms.hs11
1 files changed, 7 insertions, 4 deletions
diff --git a/packages/base/src/Internal/Algorithms.hs b/packages/base/src/Internal/Algorithms.hs
index 99c9e34..5fe7796 100644
--- a/packages/base/src/Internal/Algorithms.hs
+++ b/packages/base/src/Internal/Algorithms.hs
@@ -168,7 +168,8 @@ a = (5><3)
168-0.690 -0.352 0.433 -0.233 0.398 168-0.690 -0.352 0.433 -0.233 0.398
169 169
170>>> s 170>>> s
171fromList [35.18264833189422,1.4769076999800903,1.089145439970417e-15] 171[35.18264833189422,1.4769076999800903,1.089145439970417e-15]
172it :: Vector Double
172 173
173>>> disp 3 v 174>>> disp 3 v
1743x3 1753x3
@@ -222,7 +223,8 @@ a = (5><3)
222-0.690 -0.352 0.433 223-0.690 -0.352 0.433
223 224
224>>> s 225>>> s
225fromList [35.18264833189422,1.4769076999800903,1.089145439970417e-15] 226[35.18264833189422,1.4769076999800903,1.089145439970417e-15]
227it :: Vector Double
226 228
227>>> disp 3 v 229>>> disp 3 v
2283x3 2303x3
@@ -281,7 +283,8 @@ a = (5><3)
281-0.690 -0.352 283-0.690 -0.352
282 284
283>>> s 285>>> s
284fromList [35.18264833189422,1.4769076999800903] 286[35.18264833189422,1.476907699980091]
287it :: Vector Double
285 288
286>>> disp 3 u 289>>> disp 3 u
2875x2 2905x2
@@ -533,7 +536,7 @@ a = (3><3)
533>>> let (l, v) = eigSH a 536>>> let (l, v) = eigSH a
534 537
535>>> l 538>>> l
536fromList [11.344814282762075,0.17091518882717918,-0.5157294715892575] 539[11.344814282762075,0.17091518882717918,-0.5157294715892575]
537 540
538>>> disp 3 $ v <> diag l <> tr v 541>>> disp 3 $ v <> diag l <> tr v
5393x3 5423x3