Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
antik
gsll
Commits
535bf393
Commit
535bf393
authored
Feb 22, 2011
by
Liam M. Healy
Browse files
Options
Browse Files
Download
Plain Diff
Merge branch 'antik' of
ssh://repo.or.cz/srv/git/gsll
into antik
Conflicts: histogram/ntuple-example.dat removed
parents
5df1c7cd
2855f4c0
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
13 additions
and
13 deletions
+13
-13
linear-algebra/blas2.lisp
linear-algebra/blas2.lisp
+2
-2
linear-algebra/cholesky.lisp
linear-algebra/cholesky.lisp
+2
-2
linear-algebra/householder.lisp
linear-algebra/householder.lisp
+2
-2
linear-algebra/qr.lisp
linear-algebra/qr.lisp
+4
-4
linear-algebra/qrpt.lisp
linear-algebra/qrpt.lisp
+3
-3
No files found.
linear-algebra/blas2.lisp
View file @
535bf393
;; BLAS level 2, Matrix-vector operations
;; Liam Healy, Wed Apr 26 2006 - 21:08
;; Time-stamp: <2011-0
1
-1
2 00:42:10
EST blas2.lisp>
;; Time-stamp: <2011-0
2
-1
9 13:08:23
EST blas2.lisp>
;;
;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
...
...
@@ -53,7 +53,7 @@
(
alpha
1
)
(
beta
1
)
(
TransA
:notrans
)
TransB
&aux
(
yarr
(
grid:
mak
e-foreign-array
-or-default
(
grid:
ensur
e-foreign-array
y
(
matrix-product-dimensions
A
x
)
nil
element-type
0
)))
(
"gsl_blas_"
:type
"gemv"
)
((
transa
cblas-transpose
)
(
alpha
:element-c-type
)
((
mpointer
A
)
:pointer
)
...
...
linear-algebra/cholesky.lisp
View file @
535bf393
;; Cholesky Decomposition
;; Liam Healy, Wed May 3 2006 - 16:38
;; Time-stamp: <2011-0
1
-1
2 00:29
:2
5
EST cholesky.lisp>
;; Time-stamp: <2011-0
2
-1
9 13:08
:2
4
EST cholesky.lisp>
;;
;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
...
...
@@ -53,7 +53,7 @@
(
defmfun
cholesky-solve
((
A
grid:matrix
)
(
b
vector
)
&optional
x-spec
&aux
(
x
(
grid:
mak
e-foreign-array
-or-default
x-spec
(
grid:dimensions
b
)
t
)))
(
x
(
grid:
ensur
e-foreign-array
x-spec
(
grid:dimensions
b
)
t
)))
((
"gsl_linalg"
:complex
"_cholesky_svx"
)
(
"gsl_linalg"
:complex
"_cholesky_solve"
))
((((
mpointer
A
)
:pointer
)
((
mpointer
b
)
:pointer
))
...
...
linear-algebra/householder.lisp
View file @
535bf393
;; Householder Transformations
;; Liam Healy, Wed May 10 2006 - 10:03
;; Time-stamp: <2011-0
1
-1
0
1
8:19:08
EST householder.lisp>
;; Time-stamp: <2011-0
2
-1
9
1
3:08:23
EST householder.lisp>
;;
;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
...
...
@@ -87,7 +87,7 @@
(
defmfun
householder-solve
(
A
b
&optional
x-spec
&aux
(
x
(
grid:
mak
e-foreign-array
-or-default
x-spec
(
grid:dimensions
b
)
t
)))
(
x
(
grid:
ensur
e-foreign-array
x-spec
(
grid:dimensions
b
)
t
)))
(
"gsl_linalg_HH_svx"
"gsl_linalg_HH_solve"
)
((((
mpointer
A
)
:pointer
)
((
mpointer
b
)
:pointer
))
(((
mpointer
A
)
:pointer
)
((
mpointer
b
)
:pointer
)
...
...
linear-algebra/qr.lisp
View file @
535bf393
;; QR decomposition
;; Liam Healy 2008-02-17 11:05:20EST qr.lisp
;; Time-stamp: <2011-0
1
-1
0
1
8:19:08
EST qr.lisp>
;; Time-stamp: <2011-0
2
-1
9
1
3:08:23
EST qr.lisp>
;;
;; Copyright 2008, 2009, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
...
...
@@ -62,7 +62,7 @@
(
defmfun
QR-solve
(
QR
tau
b
&optional
x-spec
&aux
(
x
(
grid:
mak
e-foreign-array
-or-default
x-spec
(
grid:dimensions
b
)
t
)))
(
x
(
grid:
ensur
e-foreign-array
x-spec
(
grid:dimensions
b
)
t
)))
(
"gsl_linalg_QR_svx"
"gsl_linalg_QR_solve"
)
((((
mpointer
QR
)
:pointer
)
((
mpointer
tau
)
:pointer
)
((
mpointer
b
)
:pointer
))
...
...
@@ -129,7 +129,7 @@
(
defmfun
QR-Rsolve
(
QR
b
&optional
x-spec
&aux
(
x
(
grid:
mak
e-foreign-array
-or-default
x-spec
(
grid:dimensions
b
)
t
)))
(
x
(
grid:
ensur
e-foreign-array
x-spec
(
grid:dimensions
b
)
t
)))
(
"gsl_linalg_QR_Rsvx"
"gsl_linalg_QR_Rsolve"
)
((((
mpointer
QR
)
:pointer
)
((
mpointer
b
)
:pointer
))
(((
mpointer
QR
)
:pointer
)
((
mpointer
b
)
:pointer
)
((
mpointer
x
)
:pointer
)))
...
...
@@ -189,7 +189,7 @@
(
defmfun
R-solve
(
R
b
&optional
x-spec
&aux
(
x
(
grid:
mak
e-foreign-array
-or-default
x-spec
(
grid:dimensions
b
)
t
)))
(
x
(
grid:
ensur
e-foreign-array
x-spec
(
grid:dimensions
b
)
t
)))
(
"gsl_linalg_R_svx"
"gsl_linalg_R_solve"
)
((((
mpointer
R
)
:pointer
)
((
mpointer
b
)
:pointer
))
(((
mpointer
R
)
:pointer
)
((
mpointer
b
)
:pointer
)
((
mpointer
x
)
:pointer
)))
...
...
linear-algebra/qrpt.lisp
View file @
535bf393
;; QR with column pivoting
;; Liam Healy, Fri Apr 28 2006 - 16:53
;; Time-stamp: <2011-0
1
-1
0
1
8:19:08
EST qrpt.lisp>
;; Time-stamp: <2011-0
2
-1
9
1
3:08:22
EST qrpt.lisp>
;;
;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
...
...
@@ -80,7 +80,7 @@
(
defmfun
QRPT-solve
(
QR
tau
permutation
b
&optional
x-spec
&aux
(
x
(
grid:
mak
e-foreign-array
-or-default
x-spec
(
grid:dimensions
b
)
t
)))
(
x
(
grid:
ensur
e-foreign-array
x-spec
(
grid:dimensions
b
)
t
)))
(
"gsl_linalg_QRPT_svx"
"gsl_linalg_QRPT_solve"
)
((((
mpointer
QR
)
:pointer
)
((
mpointer
tau
)
:pointer
)
((
mpointer
permutation
)
:pointer
)
((
mpointer
b
)
:pointer
))
...
...
@@ -131,7 +131,7 @@
(
defmfun
QRPT-Rsolve
(
QR
permutation
b
&optional
x-spec
&aux
(
x
(
grid:
mak
e-foreign-array
-or-default
x-spec
(
grid:dimensions
b
)
t
)))
(
x
(
grid:
ensur
e-foreign-array
x-spec
(
grid:dimensions
b
)
t
)))
(
"gsl_linalg_QRPT_Rsvx"
"gsl_linalg_QRPT_Rsolve"
)
((((
mpointer
QR
)
:pointer
)
((
mpointer
permutation
)
:pointer
)
((
mpointer
b
)
:pointer
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment