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 cea06ce..6027c46 100644
--- a/packages/base/src/Internal/Algorithms.hs
+++ b/packages/base/src/Internal/Algorithms.hs
@@ -170,7 +170,8 @@ a = (5><3)
170-0.690 -0.352 0.433 -0.233 0.398 170-0.690 -0.352 0.433 -0.233 0.398
171 171
172>>> s 172>>> s
173fromList [35.18264833189422,1.4769076999800903,1.089145439970417e-15] 173[35.18264833189422,1.4769076999800903,1.089145439970417e-15]
174it :: Vector Double
174 175
175>>> disp 3 v 176>>> disp 3 v
1763x3 1773x3
@@ -224,7 +225,8 @@ a = (5><3)
224-0.690 -0.352 0.433 225-0.690 -0.352 0.433
225 226
226>>> s 227>>> s
227fromList [35.18264833189422,1.4769076999800903,1.089145439970417e-15] 228[35.18264833189422,1.4769076999800903,1.089145439970417e-15]
229it :: Vector Double
228 230
229>>> disp 3 v 231>>> disp 3 v
2303x3 2323x3
@@ -283,7 +285,8 @@ a = (5><3)
283-0.690 -0.352 285-0.690 -0.352
284 286
285>>> s 287>>> s
286fromList [35.18264833189422,1.4769076999800903] 288[35.18264833189422,1.476907699980091]
289it :: Vector Double
287 290
288>>> disp 3 u 291>>> disp 3 u
2895x2 2925x2
@@ -535,7 +538,7 @@ a = (3><3)
535>>> let (l, v) = eigSH a 538>>> let (l, v) = eigSH a
536 539
537>>> l 540>>> l
538fromList [11.344814282762075,0.17091518882717918,-0.5157294715892575] 541[11.344814282762075,0.17091518882717918,-0.5157294715892575]
539 542
540>>> disp 3 $ v <> diag l <> tr v 543>>> disp 3 $ v <> diag l <> tr v
5413x3 5443x3