2008-07-04 00:16:09 -04:00
|
|
|
USING: kernel math.blas.vectors parser ;
|
2008-07-02 01:00:22 -04:00
|
|
|
IN: math.blas.syntax
|
|
|
|
|
|
|
|
|
|
: svector{ ( accum -- accum )
|
|
|
|
|
\ } [ >float-blas-vector ] parse-literal ; parsing
|
|
|
|
|
: dvector{ ( accum -- accum )
|
|
|
|
|
\ } [ >double-blas-vector ] parse-literal ; parsing
|
|
|
|
|
: cvector{ ( accum -- accum )
|
|
|
|
|
\ } [ >float-complex-blas-vector ] parse-literal ; parsing
|
|
|
|
|
: zvector{ ( accum -- accum )
|
|
|
|
|
\ } [ >double-complex-blas-vector ] parse-literal ; parsing
|
|
|
|
|
|
