diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-06-23 20:21:03 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-06-23 20:21:03 +0000 |
| commit | 3d5d6f06598aac00906c93ac5358e68697c47fc7 (patch) | |
| tree | 77a76afcd561b8beee33c39b4eafe72b4fa10b86 /lib/Data/Packed/Vector.hs | |
| parent | 978e6d038239af50d70bae2c303f4e45b1879b7a (diff) | |
more refactoring
Diffstat (limited to 'lib/Data/Packed/Vector.hs')
| -rw-r--r-- | lib/Data/Packed/Vector.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Data/Packed/Vector.hs b/lib/Data/Packed/Vector.hs index aa1b489..9d9d879 100644 --- a/lib/Data/Packed/Vector.hs +++ b/lib/Data/Packed/Vector.hs | |||
| @@ -36,6 +36,7 @@ conj :: Vector (Complex Double) -> Vector (Complex Double) | |||
| 36 | conj v = asComplex $ cdat $ reshape 2 (asReal v) `mulC` diag (fromList [1,-1]) | 36 | conj v = asComplex $ cdat $ reshape 2 (asReal v) `mulC` diag (fromList [1,-1]) |
| 37 | where mulC = multiply RowMajor | 37 | where mulC = multiply RowMajor |
| 38 | 38 | ||
| 39 | comp :: Vector Double -> Vector (Complex Double) | ||
| 39 | comp v = toComplex (v,constant 0 (dim v)) | 40 | comp v = toComplex (v,constant 0 (dim v)) |
| 40 | 41 | ||
| 41 | {- | Creates a real vector containing a range of values: | 42 | {- | Creates a real vector containing a range of values: |