/usr/share/axiom-20170501/input/testpackage.input is in axiom-test 20170501-3.
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 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 | )set break resume
)spool testpackage.output
)set message test on
)set message auto off
)clear all
)sys cp $AXIOM/../../src/input/testpackage.input.pamphlet .
)lisp (tangle "testpackage.input.pamphlet" "testpackage.spad" "testpackage.spad")
)co testpackage.spad
--S 1 of 5
m := matrix [[12, -51, 4+%i], [6, 167, -68], [-4, 24, -41]]
--R
--R +12 - 51 4 + %i+
--R | |
--R (1) | 6 167 - 68 |
--R | |
--R +- 4 24 - 41 +
--R Type: Matrix(Complex(Integer))
--E 1
--S 2 of 5
out := qr m
--R
--R + 6 69 58+ + 6 +
--R | - --- - ---| |14 21 - 14 + - %i|
--R | 7 175 175| | 7 |
--R | | | |
--R | 3 158 6 | | 69 |
--R (2) [q= | - - --- --- |,r= |0 - 175 70 + --- %i|]
--R | 7 175 175 | | 175 |
--R | | | |
--R | 2 6 33 | | 58 |
--R |- - - -- - -- | |0 0 35 - --- %i|
--R + 7 35 35 + + 175 +
--IType: Record(q: Matrix(Complex(Expression(Integer))),...
--E 2
--S 3 of 5
transpose(map(conjugate,out.q))*out.q
--R
--R +1 0 0+
--R | |
--R (3) |0 1 0|
--R | |
--R +0 0 1+
--R Type: Matrix(Complex(Expression(Integer)))
--E 3
--S 4 of 5
out.q*transpose(map(conjugate,out.q))
--R
--R +1 0 0+
--R | |
--R (4) |0 1 0|
--R | |
--R +0 0 1+
--R Type: Matrix(Complex(Expression(Integer)))
--E 4
--S 5 of 5
out.q * out.r - m
--R
--R +0 0 0+
--R | |
--R (5) |0 0 0|
--R | |
--R +0 0 0+
--R Type: Matrix(Complex(Expression(Integer)))
--E 5
)spool
)lisp (bye)
|