/usr/share/axiom-20120501/input/fnla.input is in axiom-test 20120501-8.
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 | )set break resume
)spool fnla.output
)set message test on
)set message auto off
)clear all
--S 1 of 7
fnl := FNLA(4,4,INT)
--R
--R
--R (1) FreeNilpotentLie(4,4,Integer)
--R Type: Domain
--E 1
--S 2 of 7
dimension()$fnl
--R
--R
--R (2) 90
--R Type: NonNegativeInteger
--E 2
--S 3 of 7
x:fnl := generator(1)
--R
--R
--R (3) e
--R 1
--R Type: FreeNilpotentLie(4,4,Integer)
--E 3
--S 4 of 7
y:fnl := generator(17)
--R
--R
--R (4) e
--R 17
--R Type: FreeNilpotentLie(4,4,Integer)
--E 4
--S 5 of 7
z:=x*y
--R
--R
--R (5) 2e - e + e
--R 78 45 38
--R Type: FreeNilpotentLie(4,4,Integer)
--E 5
--S 6 of 7
deepExpand z
--R
--R
--R (6) 2[[e ,e ],[e ,e ]] - [e ,[e ,[e ,e ]]] + [e ,[e ,[e ,e ]]]
--R 1 2 2 3 3 2 1 2 2 2 1 3
--R Type: OutputForm
--E 6
--S 7 of 7
shallowExpand z
--R
--R
--R (7) 2[e ,e ] - [e ,e ] + [e ,e ]
--R 5 8 3 14 2 15
--R Type: OutputForm
--E 7
)spool
)lisp (bye)
|