diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-10-03 17:25:03 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-10-03 17:25:03 +0000 |
| commit | ebb640befd87b956e97d5b2c854572dc1f9c11dd (patch) | |
| tree | 771c49777e2b016afa5ce64f9719dc88f7b452ae /examples | |
| parent | 9b9cf8495bdae791d3f0ec1a2e4a57b72e4c9d89 (diff) | |
minor changes
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/tests.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/tests.hs b/examples/tests.hs index ab1b485..974ec24 100644 --- a/examples/tests.hs +++ b/examples/tests.hs | |||
| @@ -204,6 +204,7 @@ eigTest m = complex m <> v |~| v <> diag s | |||
| 204 | 204 | ||
| 205 | eigTestSH m = m <> v |~| v <> real (diag s) | 205 | eigTestSH m = m <> v |~| v <> real (diag s) |
| 206 | && orthonormal v | 206 | && orthonormal v |
| 207 | && m |~| v <> real (diag s) <> ctrans v | ||
| 207 | where (s, v) = eigSH m | 208 | where (s, v) = eigSH m |
| 208 | 209 | ||
| 209 | rank m | m |~| 0 = 0 | 210 | rank m | m |~| 0 = 0 |