/usr/share/axiom-20140801/input/matops.as is in axiom-test 20140801-6.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | #include "axiom.as"
#pile
MatrixOpSym(R:Field) : MOD == Definition where
Mat ==> Matrix R
MOD ==> with
symmetricPart : Mat -> Mat
++ \spad{symmetricPart(m)} returns the symmetric part of m
Definition ==> add
symmetricPart(m:Mat) : Mat ==
m1:=transpose m
import from Integer
import from R
inv(2::R) *(m+m1)
|