/usr/share/axiom-20170501/input/roman.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 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 | )set break resume
)spool roman.output
)set message test on
)set message auto off
)clear all
--S 1 of 10
f := operator 'f
--R
--R
--R (1) f
--R Type: BasicOperator
--E 1
--S 2 of 10
D(f x,x,7)
--R
--R
--R (vii)
--R (2) f (x)
--R
--R Type: Expression(Integer)
--E 2
--S 3 of 10
a := roman(1978 - 1965)
--R
--R
--R (3) XIII
--R Type: RomanNumeral
--E 3
--S 4 of 10
x : UTS(ROMAN,'x,0) := x
--R
--R
--R (4) x
--R Type: UnivariateTaylorSeries(RomanNumeral,x,0)
--E 4
--S 5 of 10
recip(1 - x - x^2)
--R
--R
--R (5)
--R 2 3 4 5 6 7 8
--R I + x + II x + III x + V x + VIII x + XIII x + XXI x + XXXIV x
--R +
--R 9 10 11
--R LV x + LXXXIX x + O(x )
--R Type: Union(UnivariateTaylorSeries(RomanNumeral,x,0),...)
--E 5
--S 6 of 10
m : MATRIX FRAC ROMAN
--R
--R Type: Void
--E 6
--S 7 of 10
m := matrix [[1/(i + j) for i in 1..3] for j in 1..3]
--R
--R
--R + I I I+
--R |-- --- --|
--R |II III IV|
--R | |
--R | I I I |
--R (7) |--- -- - |
--R |III IV V |
--R | |
--R | I I I|
--R |-- - --|
--R +IV V VI+
--R Type: Matrix(Fraction(RomanNumeral))
--E 7
--S 8 of 10
inverse m
--R
--R
--R +LXXII - CCXL CLXXX +
--R | |
--R (8) |- CCXL CM - DCCXX|
--R | |
--R +CLXXX - DCCXX DC +
--R Type: Union(Matrix(Fraction(RomanNumeral)),...)
--E 8
--S 9 of 10
y := factorial 10
--R
--R
--R (9) 3628800
--R Type: PositiveInteger
--E 9
--S 10 of 10
roman y
--R
--R
--R (10)
--R ((((I))))((((I))))((((I)))) (((I)))(((I)))(((I)))(((I)))(((I)))(((I))) ((I))(
--R (I)) MMMMMMMMDCCC
--R Type: RomanNumeral
--E 10
)spool
)lisp (bye)
|