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 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 |
173 | fromList [35.18264833189422,1.4769076999800903,1.089145439970417e-15] | 173 | [35.18264833189422,1.4769076999800903,1.089145439970417e-15] |
174 | it :: Vector Double | ||
174 | 175 | ||
175 | >>> disp 3 v | 176 | >>> disp 3 v |
176 | 3x3 | 177 | 3x3 |
@@ -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 |
227 | fromList [35.18264833189422,1.4769076999800903,1.089145439970417e-15] | 228 | [35.18264833189422,1.4769076999800903,1.089145439970417e-15] |
229 | it :: Vector Double | ||
228 | 230 | ||
229 | >>> disp 3 v | 231 | >>> disp 3 v |
230 | 3x3 | 232 | 3x3 |
@@ -283,7 +285,8 @@ a = (5><3) | |||
283 | -0.690 -0.352 | 285 | -0.690 -0.352 |
284 | 286 | ||
285 | >>> s | 287 | >>> s |
286 | fromList [35.18264833189422,1.4769076999800903] | 288 | [35.18264833189422,1.476907699980091] |
289 | it :: Vector Double | ||
287 | 290 | ||
288 | >>> disp 3 u | 291 | >>> disp 3 u |
289 | 5x2 | 292 | 5x2 |
@@ -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 |
538 | fromList [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 |
541 | 3x3 | 544 | 3x3 |