matrico

Project: matrico (Esperanto for "matrix")
Summary: A flonum matrix module for CHICKEN Scheme.
Authors: Christian Himpe (0000-0003-2194-6754)
License: zlib-acknowledgement
Version: 0.5 (2023-06-06)
Depends: CHICKEN Scheme (>= 5.1)
Website: http://numerical-schemer.xyz (Development Blog)
Reference: http://wiki.call-cc.org/eggref/5/matrico (User Reference)
Repository: https://github.com/gramian/matrico (Developer Documentation)
Category: math (numerical mathematics)
Audience: MATLAB, Octave, Scilab, Julia, NumPy (Python) users
Wikidata: https://www.wikidata.org/wiki/Q113997718

Getting Started

matrico is a Scheme module for numerical matrix computations encapsulated in a CHICKEN Scheme egg.

Clone and Try `matrico` Code

./matrico.sh

Install and Test `matrico` Egg

CHICKEN_INSTALL_REPOSITORY="/my/egg/directory/" chicken-install -test matrico

Locate and Provide `matrico` Egg

CHICKEN_REPOSITORY_PATH="`chicken-install -repository`:/my/egg/directory/" csi

Run Demo Codes

csi RUNME.scm

csi demos/heat.scm

csi demos/flame.scm

Minimal Explanation

matrico is a ...

... matrix-based numerical computing environment for, and fully written in, Scheme.
... self-contained implementation with minimal dependencies.
... numerical linear algebra code with functional back-end design.

Background

Why `matrico`

Provide more numerical capabilities to CHICKEN Scheme community.
Contribute scientific computing knowledge as Scheme code.
Educational project for author and readers.

Design Concepts

Provide dense two-dimensional arrays (matrix) of floating-point numbers (flonum) for CHICKEN Scheme.
Provide linear algebra and typical calculator functions for matrices.
Use only included modules of CHICKEN Scheme.
A matrix is a list of (homogeneous) vectors.
A matrix uses column-major ordering of entries.
A matrix uses one-based indexing.
A matrix can only have real-valued flonum entries.
Everything is a matrix, particularly, matrixes are incompatible with Scheme's (homogeneous) vectors.
Matrix transformations are based on functional map-reduce approach.

Similar Projects

Common Lisp MatLisp
Common Lisp Lisplab
Common Lisp CLEM
Racket math/matrix
Racket flomat
Clojure core.matrix

Function Reference

matrico Module
- mx Library (User-Facing Matrix Frontend)
- dense Module (Column Interface Specialization)
- matrix Functor (Functional Matrix Backend)
- f64vector Module (Homogeneous Flonum Vector Functions)
- fpmath Module (Additional Flonum Functions)
- utils Module (Additional Foundational Functions)
Extra Tools
- check Library (Testing Helper Functions)

The `matrico` Module

User-Facing Function Reference (click to expand)

Meta Function

(matrico) returns void, prints help message for matrico function.
(matrico sym) returns any, depending on argument symbol sym:
- 'list - returns void, prints list of "mx" functions;
- 'about - returns void, prints summary about matrico;
- 'banner - returns void, prints the matrico banner;
- 'version - returns pair holding major and minor version numbers of matrico;
- 'citation - returns void, prints citation information for matrico;
- 'benchmark - returns fixnum, prints approximated million-instructions-per-second for current machine;
- otherwise - returns boolean answering if argument is a symbol matching an existing function, starting with "mx", and prints its docstring.

Matrix Generators

(mx rows cols val) returns rows-by-cols matrix with all entries set to flonum val for positive fixnums rows and cols.
(mx% lst) returns matrix from row-major list-of-lists-of-flonums lst.
(mx-identity dims) returns dims-by-dims identity matrix for a positive fixnum dims.
(mx-exchange dims) returns dims-by-dims exchange matrix for a positive fixnum dims.
(mx-hilbert dims) returns dims-by-dims Hilbert matrix for a positive fixnum dims.
(mx-pascal dims) returns dims-by-dims (lower triangular) Pascal matrix for a positive fixnum dims.
(mx-lehmer rows cols) returns rows-by-cols Lehmer matrix for the positive fixnums rows and cols.
(mx-random rows cols low upp) returns rows-by-cols uniformly distributed random matrix in the interval flonum low to flonum upp for the positive fixnums rows and cols.
(mx-tridiag dims low mid upp) returns dims-by-dims matrix with lower, main, upper band entries given by the flonums low, mid, upp for a positive fixnum dims.
(mx-unit dims num) returns dims-by-one column-matrix of zeros except the positive fixnum num-th entry set to one, for a positive fixnum dims, aka canonical base vector.
(mx-iota dims) returns dims-by-one column-matrix with entries set to corresponding row index for a positive fixnum dims.
(mx-linspace x y num) returns matrix of positive fixnum num row-wise linearly spaced entries with endpoints given by flonums or column-matrixes x and y.
(mx-logspace x y num) returns matrix of positive fixnum num row-wise (base-10) logarithmic spaced entries with endpoints given by flonums or column-matrixes x and y.

Matrix Dimensions

(mx-cols mat) returns fixnum number of columns of matrix mat.
(mx-rows mat) returns fixnum number of rows of matrix mat.
(mx-numel mat) returns fixnum number of entries of matrix mat.
(mx-dims mat) returns fixnum number of dimensions of matrix mat.

Matrix Predicates

(mx? any) returns boolean answering if any is a matrix.
(mx-col? mat) returns boolean answering if matrix mat has only a single column.
(mx-row? mat) returns boolean answering if matrix mat has only a single row.
(mx-scalar? mat) returns boolean answering if matrix mat has only a single row and single column.
(mx-vector? mat) returns boolean answering if matrix mat has only a single row or single column.
(mx-square? mat) returns boolean answering if matrix mat has the same number of rows and columns.
(mx-samecols? x y) returns boolean answering if matrixes x and y have same number of columns.
(mx-samerows? x y) returns boolean answering if matrixes x and y have same number of rows.
(mx-samedim? x y) returns boolean answering if matrixes x and y have same number of columns and rows.
(mx-any? pred mat) returns boolean answering if any entry of matrix mat fulfills predicate procedure pred.
(mx-all? pred mat) returns boolean answering if all entries of matrix mat fulfills predicate procedure pred.
(mx=? x y tol) returns boolean answering if all entry-wise distances between matrixes x and y are below tolerance flonum tol.

Matrix Accessors

(mx-ref11 mat) returns flonum being the top, left entry of matrix mat.
(mx-ref mat row col) flonum being matrix mat entry in row and column specified by positive fixnums row, col.
(mx-set mat row col val) returns matrix copy of matrix mat but with entry in row fixnum row and column fixnum col set to flonum or one-by-one matrix val.
(mx-set! mat row col val) returns void, sets entry of matrix mat in row and column specified by positive fixnums row and col to flonum or one-by-one matrix val.
(mx-col mat col) returns matrix being matrix mat's column specified by positive fixnum col.
(mx-row mat row) returns matrix being matrix mat's row specified by positive fixnum row.
(mx-diag mat) returns column-matrix holding matrix mat's diagonal entries.
(mx-submatrix mat row1 row2 col1 col2) returns matrix holding entries of matrix mat in rows specified by positive fixnums row1 to row2 and columns specified by positive fixnums col1 to col2.

Matrix Expanders

(mx+ x y) returns matrix of entry-wise addition of matrixes x and y.
(mx* x y) returns matrix of entry-wise multiplication of matrixes x and y.
(mx- x y) returns matrix of entry-wise subtraction of matrixes x and y.
(mx/ x y) returns matrix of entry-wise division of matrixes x by y.
(mx^ x y) returns matrix of entry-wise exponentiation of matrixes x to the y.
(mx-where pred x y) returns matrix of entries of matrixes x or y based on predicate procedure pred.

Matrix Mappers

Elementary Functions

(mx- x) returns matrix of entry-wise negation of matrix x.
(mx/ x) returns matrix of entry-wise reciprocal of matrix x.
(mx*2 x) returns matrix of entry-wise doubling of matrix x.
(mx^2 x) returns matrix of entry-wise squaring of matrix x.

Entry-Wise Rounding Functions

(mx-round mat) returns matrix with entries of matrix mat rounded to nearest integer.
(mx-floor mat) returns matrix with entries of matrix mat rounded to nearest upper integer.
(mx-ceil mat) returns matrix with entries of matrix mat rounded to nearest lower integer.

Entry-Wise Generalized Functions

(mx-abs mat) returns matrix with entry-wise absolute value of matrix mat.
(mx-sign mat) returns matrix with entry-wise sign of matrix mat.
(mx-delta mat) returns matrix with entry-wise Kronecker delta of matrix mat.
(mx-heaviside mat) returns matrix with entry-wise Heaviside step of matrix mat.

Entry-Wise Trigonometric Functions

(mx-sin mat) returns matrix with entry-wise sine of matrix mat.
(mx-cos mat) returns matrix with entry-wise cosine of matrix mat.
(mx-tan mat) returns matrix with entry-wise tangent of matrix mat.

Entry-Wise Inverse Trigonometric Functions

(mx-asin mat) returns matrix with entry-wise inverse sine of matrix mat, aka arcsine.
(mx-acos mat) returns matrix with entry-wise inverse cosine of matrix mat, aka arccosine.
(mx-atan mat) returns matrix with entry-wise inverse tangent of matrix mat, aka arctangent.

Entry-Wise Hyperbolic Functions

(mx-sinh mat) returns matrix with entry-wise hyperbolic sine of matrix mat.
(mx-cosh mat) returns matrix with entry-wise hyperbolic cosine of matrix mat.
(mx-tanh mat) returns matrix with entry-wise hyperbolic tangent of matrix mat.

Entry-Wise Inverse Hyperbolic Functions

(mx-asinh mat) returns matrix with entry-wise inverse hyperbolic sine of matrix mat, aka area hyperbolic sine.
(mx-acosh mat) returns matrix with entry-wise inverse hyperbolic cosine of matrix mat, aka area hyperbolic cosine.
(mx-atanh mat) returns matrix with entry-wise inverse hyperbolic tangent of matrix mat, aka area hyperbolic tangent.

Entry-Wise Haversed Trigonometric Functions

(mx-hsin mat) returns matrix with entry-wise haversed sine of matrix mat.
(mx-hcos mat) returns matrix with entry-wise haversed cosine of matrix mat.

Entry-Wise Haversed Trigonometric Functions

(mx-lnsinh mat) returns matrix with entry-wise log-sinh of matrix mat.
(mx-lncosh mat) returns matrix with entry-wise log-cosh of matrix mat.

Entry-Wise Roots

(mx-sqrt mat) returns matrix with entry-wise square root of matrix mat.
(mx-signsqrt mat) returns matrix with entry-wise sign times square-root of absolute value of matrix mat.

Entry-Wise Logarithms

(mx-ln mat) returns matrix with entry-wise natural logarithm of matrix mat.
(mx-lb mat) returns matrix with entry-wise base-2 logarithm of matrix mat.
(mx-lg mat) returns matrix with entry-wise base-10 logarithm of matrix mat.

Entry-Wise Exponential

(mx-exp mat) returns matrix with entry-wise exponential of matrix mat.
(mx-gauss mat) returns matrix with entry-wise Gaussian of matrix mat.

Entry-Wise Special Functions

(mx-sinc mat) returns matrix with entry-wise cardinal sine of matrix mat.
(mx-sigm mat) returns matrix with entry-wise sigmoid of matrix mat.
(mx-stirling mat) returns matrix with entry-wise Stirling approximation of matrix mat.

Matrix Reducers

Sums

(mx-rowsum mat) returns column-matrix of summing row entries of matrix mat.
(mx-colsum mat) returns row-matrix of summing column entries of matrix mat.
(mx-sum mat) returns flonum of summing all entries of matrix mat.

Products

(mx-rowprod mat) returns column-matrix of multiplying row entries of matrix mat.
(mx-colprod mat) returns row-matrix of multiplying column entries of matrix mat.
(mx-prod mat) returns flonum of multiplying all entries of matrix mat.

Minima

(mx-rowmin mat) returns column-matrix of row-wise minima of matrix mat.
(mx-colmin mat) returns row-matrix of column-wise minima of matrix mat.
(mx-min mat) returns flonum minimum of all matrix mat entries.

Maxima

(mx-rowmax mat) returns column-matrix of row-wise maxima of matrix mat.
(mx-colmax mat) returns row-matrix of column-wise maxima of matrix mat.
(mx-max mat) returns flonum maximum of all matrix mat entries.

Midrange

(mx-rowmidr mat) returns column-matrix of row-wise midrange of matrix mat.
(mx-colmidr mat) returns row-matrix of column-wise midrange of matrix mat.
(mx-midr mat) returns flonum midrange of all matrix mat entries.

Means

(mx-rowmean mat typ) returns column-matrix of row-wise power means of matrix mat of type symbol typ, which can be -1, 0, 1, 2, or 'inf.
(mx-colmean mat typ) returns row-matrix of column-wise power means of matrix mat of type symbol typ, which can be -1, 0, 1, 2, or 'inf.
(mx-mean mat typ) returns flonum power mean of all matrix mat entries of type symbol typ, which can be -1, 0, 1, 2, or 'inf.

Norms

(mx-rownorm mat typ) returns column-matrix of row-wise matrix norms of matrix mat of type symbol typ, which can be 1, 2, or 'inf.
(mx-colnorm mat typ) returns row-matrix of column-wise matrix norms of matrix mat of type symbol typ, which can be 1, 2, or 'inf.
(mx-norm mat typ) returns flonum matrix norms of matrix mat of type symbol typ, which can be 1, 'inf, 'fro, or 'max.

Linear Algebra

(mx-horcat x y) returns matrix of horizontally concatenated matrixes x and y.
(mx-vercat x y) returns matrix of vertically concatenated matrixes x and y.
(mx-vec mat) returns matrix of vertically concatenated columns of matrix mat, aka vectorization.
(mx-transpose mat) returns matrix of entries of matrix mat with swapped row and column indices.
(mx-axpy a x y) returns matrix of entry-wise generalized addition of flonum a times matrix x plus matrix y, aka "a times x plus y".
(mx-sympart mat) returns matrix being symmetric part of square matrix mat.
(mx-skewpart mat) returns matrix being skey-symmetric part of square matrix mat, aka anti-symmetric part.
(mx-diagonal mat) returns diagonal matrix from column matrix mat.

Linear Problems

(mx-qr mat) returns pair of orthogonal matrix Q and upper right triangular matrix R factoring full column rank matrix mat, via QR.
(mx-solver mat) returns function returning column-matrix solving the linear (least-squares) problem of matrix mat, given a column-matrix vec.
(mx-solve mat vec) returns column-matrix solving the linear (least-squares) problem of matrix mat and column-matrix vec.
(mx-orth mat) returns matrix orthogonalizing matrix mat.
(mx-absdet mat) returns flonum being absolute value of the determinant of matrix mat.
(mx-logdet mat) returns flonum being the (natural) logarithm of the determinant of matrix mat.

Traces

(mx-trace mat) returns flonum being sum of square matrix mat diagonal entries.
(mx-multrace mat) returns flonum being product of square matrix mat diagonal entries.
(mx-prodtrace* x yt) returns flonum being the trace of the matrix product of matrix x and transposed matrix yt.
(mx-prodtrace x y) returns flonum being the trace of the matrix product of matrixes x and y.

Matrix Multiplication

(mx-scalar xt y) returns flonum resulting from scalar product of column-matrixes xt and y.
(mx-dyadic x y) returns flonum resulting from dyadic product of column-matrix x and row-matrix y.
(mx-dot* xt y) returns matrix resulting from matrix multiplication of transposed matrix xt and matrix y.
(mx-dot x y) returns matrix resulting from matrix multiplication of matrixes x and y.
(mx-gram mat) returns matrix resulting from matrix multiplication of (transposed) matrix mat with itself, aka Gram matrix.
(mx-gram* mat) returns matrix resulting from matrix multiplication of matrix mat with itself transposed.
(mx-square mat) returns matrix resulting from matrix multiplication of matrix mat with itself.

Multivariate Statistics

(mx-xcov x y) returns matrix of cross-covariances of matrixes x and y, representing columns of observations.
(mx-cov mat) returns matrix of covariances of matrix mat, representing columns of observations.
(mx-var mat) returns column matrix of variances of matrix mat, representing columns of observations.
(mx-std mat) returns column matrix of standard deviations of matrix mat, representing columns of observations.
(mx-xcor x y) returns matrix of cross-correlations of matrixes x and y, representing columns of observations.
(mx-cor mat) returns matrix of correlations of matrix mat, representing columns of observations.
(mx-angle x y) returns matrix of angles between matrixes x and y, representing columns of observations.
(mx-coher x y) returns flonum of distance coherence between matrixes x and y.

Analysis

(mx-diff mat) returns matrix of differences of consecutives columns of matrix mat.
(mx-trapz mat) returns column-matrix trapezoid approximate integral of matrix mat being columns data-points of rows-dimensional function.
(mx-ode2-hyp num fun x0 dt tf) returns states-times-steps matrix trajectory solving an ordinary differential equation, by a 2nd order hyperbolic Runge-Kutta method of fixnum num stages, with vector field procedure fun, initial state column-matrix x0, time step flonum dt, and time horizon flonum tf.
(mx-ode2-ssp num fun x0 dt tf) returns states-times-steps matrix trajectory solving an ordinary differential equation, by a 2nd order strong stability preserving Runge-Kutta method of fixnum num stages, with vector field procedure fun, initial state column-matrix x0, time step flonum dt, and time horizon flonum tf.

Matrix Utilities

(mx-print mat) returns void, prints matrix mat to terminal.
(mx-export str mat) returns void, writes matrix mat to new comma-separated-value (CSV) file in relative path string str.
(mx-save str mat) returns void, writes matrix mat to new Scheme (SCM) file in relative path string str.
(mx-load str) returns matrix loaded from SCM file in relative path string str.

Internal Libraries and Modules

Developer Function Reference (click to expand)

Matrix Frontend Library

Internal

(matrix-or-flonum? val) returns boolean answering if argument val is a flonum or matrix.
(scalar-or-flonum? val) returns boolean answering if argument val is a flonum or scalar matrix.
(column-or-flonum? val) returns boolean answering if argument val is a flonum or column matrix.
(ensure-mx val) returns one-by-one matrix if val is flonum, or val if val is matrix.
(ensure-fp val) returns flonum if val is flonum, or element if val is one-by-one matrix.
(translate-cols idx) returns fixnum for matrix mat translated column index fixnum idx (from 1-based to 0-based and from end).
(translate-rows idx) returns fixnum for matrix mat translated row index fixnum idx (from 1-based to 0-based and from end).
(time-stepper typ fun x0 dt tf) states-times-steps matrix trajectory solving an ordinary differential equation, by method procedure typ, with vector field procedure fun, initial state column-matrix x0, time step flonum dt, and time horizon flonum tf.

Matrix Backend Library

Defines the matrix type (record) as column-major list-of-columns and provides generic basic and functional methods wrapped in a functor

(matrix-data mat) returns list-of-columns, generated by define-record.
(matrix? any) returns boolean answering if any is a matrix, generated by define-record.
(make-matrix cols lst) returns matrix from list lst of columns and fixnum number cols of columns, generated by define-record.
(make-matrix* rows cols val) returns rows-by-cols matrix with all entries set to val for fixnums rows, cols.
(make-matrix** lst) returns matrix from row-major list-of-lists lst.
(matrix-generate fun rows cols) returns rows-by-cols matrix generated procedurally from applying procedure fun (one-based), fixnums rows, cols.
(matrix-horcat . mat) returns matrix of horizontally concatenating matrixes from list-ofmatrixes mat.
(matrix-vercat . mat) returns matrix of vertically concatenating matrixes from list-of-matrixes mat.
(matrix-cols mat) returns fixnum number of columns of matrix mat, generated by define-record.
(matrix-rows mat) returns fixnum number of rows of matrix mat.
(matrix-numel mat) returns fixnum number of entries of matrix mat.
(matrix-dims mat) returns fixnum number of dimensions of matrix mat.
(matrix-ref00 mat) returns: any being the entry of matrix mat in the first row and first column.
(matrix-ref*0 mat row) returns any being matrix mat entry in fixnum row and the first column.
(matrix-ref mat row col) returns any being matrix mat entry in fixnum row and fixnum columns.
(matrix-set mat row col val) returns matrix copy of matrix mat but with entry in row fixnum row and column fixnum col set to val.
(matrix-set! mat row col val) returns any, sets entry of matrix mat in row fixnum row and column fixnum col to val.
(matrix-col mat col) returns matrix being matrix mat column specified by fixnum col.
(matrix-row mat row) returns matrix being matrix mat row specified by fixnum row.
(matrix-diag mat) returns matrix holding matrix mat diagonal entries as column-matrix.
(matrix-submatrix mat row1 row2 col1 col2) returns matrix holding entries of matrix mat from rows fixnums row1 to row2 in columns fixnums col1 to col2.
(matrix-col? mat) returns boolean answering if matrix mat has only a single column.
(matrix-row? mat) returns boolean answering if matrix mat has only a single row.
(matrix-scalar? mat) returns boolean answering if matrix mat has only a single row and single column, aka scalar.
(matrix-vector? mat) returns: boolean answering if matrix mat has only a single row or single column, aka vector.
(matrix-square? mat) returns boolean answering if matrix mat has the same number of rows and columns.
(matrix-samecols? mat) returns boolean answering if matrixes x and y have same number of columns.
(matrix-samerows? mat) returns boolean answering if matrixes x and y have same number of rows.
(matrix-samedims? mat) returns boolean answering if matrixes x and y have same number of columns and rows.
(matrix-any? pred mat) returns boolean answering if any entry of matrix mat fulfills predicate procedure pred.
(matrix-all? pred mat) returns boolean answering if all entries of matrix mat fulfill predicate procedure pred.
(matrix-colfold fun ini mat) returns row matrix resulting from folding by two-argument procedure fun each column of **matrix** mat`.
(matrix-rowfold fun ini mat) returns column matrix resulting from folding by two-argument procedure fun each row of **matrix** mat`.
(matrix-allfold fun ini mat) returns any resulting from folding by two-argument procedure fun all **matrix** mat` entries.
(matrix-map fun mat) returns matrix resulting from applying procedure fun to each entry of matrix mat.
(matrix-broadcast fun x y) returns matrix resulting from applying procedure fun to each element of matrix x, y, expanded if necessary.
(matrix-vec mat) returns column matrix of vertically concatenated columns of matrix mat, aka vectorization.
(matrix-transpose mat) returns matrix of entries of matrix mat with swapped row and column indices.
(matrix-axpy a x y) returns matrix resulting from scaling matrix x by any a and add matrix y.
(matrix-scalar xt y) returns any resulting from the scalar product of column-matrixes xt and y.
(matrix-dot* xt y) returns matrix resulting from matrix multiplication of transposed of matrix xt and matrix y.
(matrix-explode mat) returns list-of-column-matrix from matrix mat.
(matrix-implode lst) returns matrix of horizontally concatenated list-of-column-matrixes lst.
(matrix-print mat) returns void, prints matrix mat to terminal.
(matrix-export str mat) returns void, writes matrix mat to new comma-seperated-value (CSV) file in relative path (string) str.
(matrix-save str mat) returns void, writes matrix mat to new Scheme (SCM) file in relative path (string) str.
(matrix-load str) returns matrix loaded from file in relative path (string) str.

Internal

(matrix-map* fun x) returns matrix resulting from applying procedure fun to each column of matrix x.
(matrix-map** fun x y) returns matrix resulting from applying procedure fun to each column of matrixes x and y.

Dense Column Library

Specifies generic column functions for matrix library with f64vector (flonum vector).

Homogeneous Flonum Vector Module

Provides homogeneous vector transformations analogous to vectors.

(f64vector-unfold dim fun) returns f64vector of dimension fixnum dim with procedurally generated elements by procedure fun.
(f64vector-concat . vecs) returns f64vector of concatenated list-of-f64vector(s) vecs.
(f64vector-any? pred vec) returns boolean answering if any element of f64vector vec fulfills predicate procedure pred from left to right.
(f64vector-all? pred vec) returns boolean answering if all elements of f64vector vec fulfill predicate procedure pred from left to right.
(f64vector-map fun . vecs) returns f64vector resulting from applying procedure fun to all corresponding f64vector(s) vecs elements.
(f64vector-map-index fun . vecs) returns f64vector resulting from applying procedure fun to index and all corresponding f64vector(s) vecs elements.
(f64vector-foreach fun . vecs) returns void, applies procedure fun to all corresponding f64vector(s) vecs elements.
(f64vector-foreach-index fun . vecs) returns void, applies procedure fun to index and all corresponding f64vector(s) vecs elements.
(f64vector-axpy a x y) returns f64vector resulting from applying fused-multiply-add to the flonum a and to all f64vectors x, y elements.
(f64vector-fold fun ini . vecs) returns any resulting from applying procedure fun to ini initialized accumulator and sequentially to all f64vector(s) vecs elements from left to right.
(f64vector-fold* fun ini . vecs) returns any resulting from applying procedure fun to ini initialized accumulator and sequentially to all f64vector(s) vecs elements from right to left.
(f64vector-dot x y) returns flonum resulting from applying fused-multiply-add to zero initialized accumulator and sequentially to all f64vectors x, y elements from left to right.

Floating-Point Module

Provides additional mathematical functions, extending CHICKEN's flonum module.

fp is alias for exact->inexact.
(fp% n d) returns flonum fraction with numerator fixnum n and denominator fixnum d.
(fpzero? x tol) returns boolean answering if absolute value of flonum x is less than flonum tol.
(fpzero?? x) returns boolean answering if flonum x is exactly zero.
(fp*2 x) returns flonum double of flonum x.
(fp^2 x) returns flonum square of flonum x.
(fprec x) returns flonum reciprocal of flonum x.
(fp*+ x y z) returns flonum sum with product: x * y + z of flonums x, y, z.
(fptau) returns flonum circle constant Tau via fraction.
(fpeul) returns flonum Euler number via fraction.
(fpphi) returns flonum golden ratio via fraction of consecutive Fibonacci numbers.
(fpdelta x) returns flonum Kronecker delta of flonum x.
(fpheaviside x) returns flonum Heaviside step function of flonum x.
(fpsign x) returns flonum sign of flonum x.
(fpln x) returns flonum natural logarithm of flonum x.
(fplb x) returns flonum base-2 logarithm of flonum x.
(fplg x) returns flonum base-10 logarithm of flonum x.
(fpsinh x) returns flonum hyperbolic sine of flonum x.
(fpcosh x) returns flonum hyperbolic cosine of flonum x.
(fptanh x) returns flonum hyperbolic tangent of flonum x.
(fpasinh x) returns flonum area hyperbolic sine of flonum x.
(fpacosh x) returns flonum area hyperbolic cosine of flonum x.
(fpatanh x) returns flonum area hyperbolic tangent of flonum x.
(fphsin x) returns flonum haversed sine of flonum x.
(fphcos x) returns flonum haversed cosine of flonum x.
(fplnsinh x) returns flonum log-sinh of flonum x.
(fplncosh x) returns flonum log-cosh of flonum x.
(fpsignsqrt x) returns flonum sign times square root of absolute value of flonum x.
(fpsinc x) returns flonum cardinal sine function with removed singularity of flonum x.
(fpsigm x) returns flonum standard logistic function of flonum x, aka sigmoid.
(fpgauss x) returns flonum Gauss bell curve function evaluation of flonum x.
(fpstirling x) returns flonum Stirling approximation of factorial of flonum x.
(fptaper x) returns string representation of flonum x formatted to 8 character fixed width.

Utilities Module

Provides a few base functions, macros and aliases for convenience.

(define-syntax-rule (name args) (body ...)) returns macro generating single-rule macro.
(alias aka name) returns macro replacing aka with name.
(must-be args) macro wrapping assert of and with variable number of arguments.
(comment . any) returns void.
nil is alias for '().
head is alias for car.
tail is alias for cdr.
empty? is alias for null?.
(fx+1 x) returns fixnum incremented fixnum x.
(fx-1 x) returns fixnum decremented fixnum x.
(fx=0? x) returns boolean answering if fixnum x is zero.
(fx<0? x) returns boolean answering if fixnum x is smaller than zero.
(fx>0? x) returns boolean answering if fixnum x is greater than zero.
(fx<=0? x) returns boolean answering if fixnum x is smaller or equal to zero.
(fx>=0? x) returns boolean answering if fixnum x is greater or equal to zero.
(append* lst any) returns list of list argument lst with appended argument any.
(sublist lst start end) returns list containing elements of list lst from indices fixnums start to end.
(any? pred lst) returns boolean answering if any element of list lst fulfills predicate procedure pred.
(all? pred lst) returns boolean answering if all elements of list lst fulfill predicate procedure pred.
(factorial n) returns fixnum multiplying consecutive integers up to fixnum n.
(binomial n k) returns fixnum binomial coefficient for fixnumss n and k based on Pascal's rule.
(define* (name args ...) (returns str) (body ...)) returns macro generating function binding with docstring.
(define* name (returns str) (body ...)) returns macro generating function binding with docstring.
(load* str) returns any result of the last expressions in loaded and evaluated file with path string str.

External Tools

Tools Reference (click to expand)

(ok?) returns boolean answering if all test passed.
(check exe arg-ret-lst) returns boolean answering if procedure exe evaluated for car of each element of list-of-pairs arg-ret-lst corresponds to its cdr.

Performance

Please note: The author is fully aware that the performance of matrico cannot compete with current numerical environments, which predominantly utilize the highly tuned BLAS and LAPACK libraries. The following matrico benchmarks in turn are meant as an indicator to track version-by-version performance evolution of this pure Scheme implementation.

Benchmarks

MATMUL

Matrix dimension: 1000x1000
Optimization level: -O5

Run by:

make matmul

LINPACK

Matrix dimension: 1000x1000
Optimization level: -O5

Run by:

make linpack

MIPS

Based on BogoMips
Optimization level: -O5

Run by:

make mips

Systems

ARM-64 Laptop-Notebook

CPU: M2 (4+4 Cores @ 3.5Ghz)
RAM: 16GB (LPDDR5 @ 6400MT/s)
SYS: MacOS Monterey (12.6)
SCM: CHICKEN Scheme (5.3)
MATMUL: 267 Megaflops
LINPACK: 319 Megaflops
BOGOMIPS: 275 Mips

Development

Roadmap

[check] Add more matrico tests
[matrico] Add examples, equation images and links to documentation
[mx] Add rank-revealing QR and pseudo-inverse via QR
[mx] Add Eigenvalue decomposition and singular value decomposition via QR
[mx] Add UnicodePlot-like lineplot functionality

Changelog

0.5 (2023-06-06)

ADDED f64vector-axpy
ADDED matrix-axpy
CHANGED mx*+ to mx-axpy
IMPROVED mx-qr
IMPROVED mx-solver
... and many minor updates and fixes.

0.4 (2023-06-01)

ADDED mx-angle
ADDED mx-var
ADDED mx-orth
IMPROVED mx-std
IMPROVED mx-solver
IMPROVED f64vector-dot
REMOVED mx-logb
... and many minor updates and fixes.

0.3 (2022-09-16)

ADDED matrico function
ADDED mx-set
ADDED mx-lnsinh, mx-lncosh
ADDED mx-dyadic
ADDED mx-heaviside
CHANGED default optimization level to -O3
CHANGED inlining of local functions
CHANGED testing framework
IMPROVED argument checking
IMPROVED performance
REMOVED matrico-ver, matrico-cite, matrico-about, matrico?
... and many minor updates and fixes.

0.2 (2022-07-07)

ADDED matrico-cite
ADDED mx-scalar
ADDED (re)export of fpmath by matrico
ADDED instrumentation and statistical profiling targets
CHANGED rename matrico-help to matrico-about
CHANGED rename and adapt fp+* and mx+* to fp*+ and mx*+
CHANGED rename fpdirac and mx-dirac to fpdelta and mx-delta
IMPROVED argument checking
IMPROVED performance
REMOVED mx-dist
REMOVED mx-repeat
... and many minor updates and fixes.

0.1 (2022-05-01)

Initial Release

Coding Guidelines

Every source file states: project, author, license, version, summary!
Every function has a one-line summary!
Import only included modules!
Avoid do, prefer named let-recursion!
Avoid set-car! and set-cdr!!
Avoid "multiple values"!
Avoid mx-ref for non-column matrices if possible!

Notes

matrico should be build with -O3 if used as a shared object (default).
matrico can be build with -O5 if matrico.scm is included into the source.

Name		Name	Last commit message	Last commit date
Latest commit History 21 Commits
demos		demos
doc		doc
res		res
src		src
tests		tests
AUTHORS		AUTHORS
CITATION.cff		CITATION.cff
LICENSE		LICENSE
Makefile		Makefile
README.md		README.md
RUNME.scm		RUNME.scm
matrico.egg		matrico.egg
matrico.release-info		matrico.release-info
matrico.scm		matrico.scm
matrico.sh		matrico.sh
version.scm		version.scm

License

gramian/matrico

Folders and files

Latest commit

History

Repository files navigation

matrico

Table of Contents

Getting Started

Clone and Try matrico Code

Install and Test matrico Egg

Locate and Provide matrico Egg

Run Demo Codes

Minimal Explanation

Background

Why matrico

Design Concepts

Similar Projects

Function Reference

The matrico Module

Meta Function

Matrix Generators

Matrix Dimensions

Matrix Predicates

Matrix Accessors

Matrix Expanders

Matrix Mappers

Elementary Functions

Entry-Wise Rounding Functions

Entry-Wise Generalized Functions

Entry-Wise Trigonometric Functions

Entry-Wise Inverse Trigonometric Functions

Entry-Wise Hyperbolic Functions

Entry-Wise Inverse Hyperbolic Functions

Entry-Wise Haversed Trigonometric Functions

Entry-Wise Haversed Trigonometric Functions

Entry-Wise Roots

Entry-Wise Logarithms

Entry-Wise Exponential

Entry-Wise Special Functions

Matrix Reducers

Sums

Products

Minima

Maxima

Midrange

Means

Norms

Linear Algebra

Linear Problems

Traces

Matrix Multiplication

Multivariate Statistics

Analysis

Matrix Utilities

Internal Libraries and Modules

Matrix Frontend Library

Internal

Matrix Backend Library

Internal

Dense Column Library

Homogeneous Flonum Vector Module

Floating-Point Module

Utilities Module

External Tools

Performance

Benchmarks

MATMUL

LINPACK

MIPS

Systems

ARM-64 Laptop-Notebook

Development

Roadmap

Changelog

Coding Guidelines

Notes

matrico — a (:chicken: λ) :egg: for numerical schemers!

About

Topics

Clone and Try `matrico` Code

Install and Test `matrico` Egg

Locate and Provide `matrico` Egg

Why `matrico`

The `matrico` Module

`matrico` — a (:chicken: λ) :egg: for numerical schemers!