diff options
Diffstat (limited to 'packages/base/src/Internal/Algorithms.hs')
-rw-r--r-- | packages/base/src/Internal/Algorithms.hs | 11 |
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 |
171 | fromList [35.18264833189422,1.4769076999800903,1.089145439970417e-15] | 171 | [35.18264833189422,1.4769076999800903,1.089145439970417e-15] |
172 | it :: Vector Double | ||
172 | 173 | ||
173 | >>> disp 3 v | 174 | >>> disp 3 v |
174 | 3x3 | 175 | 3x3 |
@@ -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 |
225 | fromList [35.18264833189422,1.4769076999800903,1.089145439970417e-15] | 226 | [35.18264833189422,1.4769076999800903,1.089145439970417e-15] |
227 | it :: Vector Double | ||
226 | 228 | ||
227 | >>> disp 3 v | 229 | >>> disp 3 v |
228 | 3x3 | 230 | 3x3 |
@@ -281,7 +283,8 @@ a = (5><3) | |||
281 | -0.690 -0.352 | 283 | -0.690 -0.352 |
282 | 284 | ||
283 | >>> s | 285 | >>> s |
284 | fromList [35.18264833189422,1.4769076999800903] | 286 | [35.18264833189422,1.476907699980091] |
287 | it :: Vector Double | ||
285 | 288 | ||
286 | >>> disp 3 u | 289 | >>> disp 3 u |
287 | 5x2 | 290 | 5x2 |
@@ -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 |
536 | fromList [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 |
539 | 3x3 | 542 | 3x3 |