diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-05-25 08:46:59 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-05-25 08:46:59 +0200 |
commit | 11095a22c59bed6a011723641dfb782415e2c02b (patch) | |
tree | fde840b71f395077b274a15ae3e0e3935d06818c /packages/base/src/Numeric | |
parent | 88a39a5d1bdf7799a2e1f38d420f4392bb9c35bc (diff) |
range
Diffstat (limited to 'packages/base/src/Numeric')
-rw-r--r-- | packages/base/src/Numeric/LinearAlgebra/Data.hs | 4 | ||||
-rw-r--r-- | packages/base/src/Numeric/LinearAlgebra/Static.hs | 2 | ||||
-rw-r--r-- | packages/base/src/Numeric/Vectorized.hs | 13 |
3 files changed, 15 insertions, 4 deletions
diff --git a/packages/base/src/Numeric/LinearAlgebra/Data.hs b/packages/base/src/Numeric/LinearAlgebra/Data.hs index 7bc0497..b40054c 100644 --- a/packages/base/src/Numeric/LinearAlgebra/Data.hs +++ b/packages/base/src/Numeric/LinearAlgebra/Data.hs | |||
@@ -28,7 +28,7 @@ module Numeric.LinearAlgebra.Data( | |||
28 | Indexable(..), | 28 | Indexable(..), |
29 | 29 | ||
30 | -- * Construction | 30 | -- * Construction |
31 | scalar, Konst(..), Build(..), assoc, accum, linspace, -- ones, zeros, | 31 | scalar, Konst(..), Build(..), assoc, accum, linspace, range,-- ones, zeros, |
32 | 32 | ||
33 | -- * Diagonal | 33 | -- * Diagonal |
34 | ident, diag, diagl, diagRect, takeDiag, | 34 | ident, diag, diagl, diagRect, takeDiag, |
@@ -82,6 +82,6 @@ import Numeric.LinearAlgebra.Util hiding ((&),(#)) | |||
82 | import Data.Complex | 82 | import Data.Complex |
83 | import Numeric.Sparse | 83 | import Numeric.Sparse |
84 | import Data.Packed.Internal.Vector(Idxs) | 84 | import Data.Packed.Internal.Vector(Idxs) |
85 | import Data.Packed.Internal.Numeric(CInt,Extractor(..),(??),fromInt) | 85 | import Data.Packed.Internal.Numeric(CInt,Extractor(..),(??),fromInt,range) |
86 | 86 | ||
87 | 87 | ||
diff --git a/packages/base/src/Numeric/LinearAlgebra/Static.hs b/packages/base/src/Numeric/LinearAlgebra/Static.hs index 25b10b4..f7017e7 100644 --- a/packages/base/src/Numeric/LinearAlgebra/Static.hs +++ b/packages/base/src/Numeric/LinearAlgebra/Static.hs | |||
@@ -65,7 +65,7 @@ import Numeric.LinearAlgebra hiding ( | |||
65 | row,col,vector,matrix,linspace,toRows,toColumns, | 65 | row,col,vector,matrix,linspace,toRows,toColumns, |
66 | (<\>),fromList,takeDiag,svd,eig,eigSH,eigSH', | 66 | (<\>),fromList,takeDiag,svd,eig,eigSH,eigSH', |
67 | eigenvalues,eigenvaluesSH,eigenvaluesSH',build, | 67 | eigenvalues,eigenvaluesSH,eigenvaluesSH',build, |
68 | qr,size,app,mul,dot,chol) | 68 | qr,size,app,mul,dot,chol,range) |
69 | import qualified Numeric.LinearAlgebra as LA | 69 | import qualified Numeric.LinearAlgebra as LA |
70 | import Data.Proxy(Proxy) | 70 | import Data.Proxy(Proxy) |
71 | import Numeric.LinearAlgebra.Static.Internal | 71 | import Numeric.LinearAlgebra.Static.Internal |
diff --git a/packages/base/src/Numeric/Vectorized.hs b/packages/base/src/Numeric/Vectorized.hs index 70bd48b..d0ff562 100644 --- a/packages/base/src/Numeric/Vectorized.hs +++ b/packages/base/src/Numeric/Vectorized.hs | |||
@@ -19,7 +19,8 @@ module Numeric.Vectorized ( | |||
19 | FunCodeVV(..), vectorZipR, vectorZipC, vectorZipF, vectorZipQ, vectorZipI, | 19 | FunCodeVV(..), vectorZipR, vectorZipC, vectorZipF, vectorZipQ, vectorZipI, |
20 | vectorScan, saveMatrix, | 20 | vectorScan, saveMatrix, |
21 | Seed, RandDist(..), randomVector, | 21 | Seed, RandDist(..), randomVector, |
22 | sortVector, roundVector | 22 | sortVector, roundVector, |
23 | range | ||
23 | ) where | 24 | ) where |
24 | 25 | ||
25 | import Data.Packed.Internal.Common | 26 | import Data.Packed.Internal.Common |
@@ -389,3 +390,13 @@ roundVector v = unsafePerformIO $ do | |||
389 | 390 | ||
390 | foreign import ccall unsafe "round_vector" c_round_vector :: TVV | 391 | foreign import ccall unsafe "round_vector" c_round_vector :: TVV |
391 | 392 | ||
393 | -------------------------------------------------------------------------------- | ||
394 | |||
395 | range :: Int -> Idxs | ||
396 | range n = unsafePerformIO $ do | ||
397 | r <- createVector n | ||
398 | app1 c_range_vector vec r "range" | ||
399 | return r | ||
400 | |||
401 | foreign import ccall unsafe "range_vector" c_range_vector :: CV CInt (IO CInt) | ||
402 | |||