steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

performance improvement for converting large datasets to blas matrices

db4
Joe Groff 2008-07-05 19:39:26 -07:00
parent 761fbfeb8f
commit 72b78eaef9
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/math/blas/matrices/matrices.factor
View File

@ -2,7 +2,7 @@ USING: accessors alien alien.c-types arrays byte-arrays combinators
combinators.lib combinators.short-circuit fry kernel locals macros combinators.lib combinators.short-circuit fry kernel locals macros
math math.blas.cblas math.blas.vectors math.blas.vectors.private math math.blas.cblas math.blas.vectors math.blas.vectors.private
math.complex math.functions math.order multi-methods qualified math.complex math.functions math.order multi-methods qualified
sequences sequences.private shuffle symbols ; sequences sequences.merged sequences.private shuffle symbols ;
QUALIFIED: syntax QUALIFIED: syntax
IN: math.blas.matrices IN: math.blas.matrices
@ -137,8 +137,7 @@ METHOD: (blas-vector-like) { object object object double-complex-blas-matrix }
C f >>transpose ; inline C f >>transpose ; inline
: (>matrix) ( arrays >c-array -- c-array ld rows cols transpose ) : (>matrix) ( arrays >c-array -- c-array ld rows cols transpose )
[ flip ] dip '[ <merged> @ ] [ length dup ] [ first length ] tri f ; inline
'[ concat @ ] [ first length dup ] [ length ] tri f ; inline
PRIVATE> PRIVATE>