diff --git a/basis/math/matrices/matrices-tests.factor b/basis/math/matrices/matrices-tests.factor index e5bf009333..64f739e5ff 100644 --- a/basis/math/matrices/matrices-tests.factor +++ b/basis/math/matrices/matrices-tests.factor @@ -29,7 +29,7 @@ IN: math.matrices.tests { 9 3 1 } { 25 5 1 } } } [ - { 1 2 3 5 } 3 van-der-monde-matrix + { 1 2 3 5 } 3 vandermonde-matrix ] unit-test { diff --git a/basis/math/matrices/matrices.factor b/basis/math/matrices/matrices.factor index 6c8ffa018f..c62026d79e 100644 --- a/basis/math/matrices/matrices.factor +++ b/basis/math/matrices/matrices.factor @@ -31,7 +31,7 @@ IN: math.matrices : box-matrix ( r -- matrix ) 2 * 1 + dup '[ _ 1 ] replicate ; -: van-der-monde-matrix ( u n -- matrix ) +: vandermonde-matrix ( u n -- matrix ) iota [ v^n ] with map reverse flip ; :: rotation-matrix3 ( axis theta -- matrix )