axiom-test 20120501-8 / usr / share / axiom-20120501 / input / quat1.input

This file is indexed.

/usr/share/axiom-20120501/input/quat1.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
 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
109
110
111
112
113
114
115
)set break resume
)spool quat1.output
)set message test on
)set message auto off
)clear all
--S 1 of 11
q := quatern(2/11,-8,3/4,1)
--R 
--R
--R         2        3
--R   (1)  -- - 8i + - j + k
--R        11        4
--R                                          Type: Quaternion(Fraction(Integer))
--E 1

--S 2 of 11
[real q, imagI q, imagJ q, imagK q]
--R 
--R
--R          2     3
--R   (2)  [--,- 8,-,1]
--R         11     4
--R                                                Type: List(Fraction(Integer))
--E 2

--S 3 of 11
inv q
--R 
--R
--R          352     15488      484       1936
--R   (3)  ------ + ------ i - ----- j - ------ k
--R        126993   126993     42331     126993
--R                                          Type: Quaternion(Fraction(Integer))
--E 3

--S 4 of 11
q**6
--R 
--R
--R          2029490709319345   48251690851     144755072553     48251690851
--R   (4)  - ---------------- - ----------- i + ------------ j + ----------- k
--R             7256313856        1288408         41229056         10307264
--R                                          Type: Quaternion(Fraction(Integer))
--E 4

--S 5 of 11
r := quatern(-2,3,23/9,-89); q + r
--R 
--R
--R          20        119
--R   (5)  - -- - 5i + --- j - 88k
--R          11         36
--R                                          Type: Quaternion(Fraction(Integer))
--E 5

--S 6 of 11
q * r - r * q
--R 
--R
--R          2495             817
--R   (6)  - ---- i - 1418j - --- k
--R           18               18
--R                                          Type: Quaternion(Fraction(Integer))
--E 6

--S 7 of 11
i:=quatern(0,1,0,0); j:=quatern(0,0,1,0); k:=quatern(0,0,0,1)
--R 
--R
--R   (7)  k
--R                                                    Type: Quaternion(Integer)
--E 7

--S 8 of 11
[i*i, j*j, k*k, i*j, j*k, k*i, q*i]
--R 
--R
--R                                2         3
--R   (8)  [- 1,- 1,- 1,k,i,j,8 + -- i + j - - k]
--R                               11         4
--R                                    Type: List(Quaternion(Fraction(Integer)))
--E 8

--S 9 of 11
norm q
--R 
--R
--R        126993
--R   (9)  ------
--R         1936
--R                                                      Type: Fraction(Integer)
--E 9

--S 10 of 11
conjugate q
--R 
--R
--R          2        3
--R   (10)  -- + 8i - - j - k
--R         11        4
--R                                          Type: Quaternion(Fraction(Integer))
--E 10

--S 11 of 11
q * %
--R 
--R
--R         126993
--R   (11)  ------
--R          1936
--R                                          Type: Quaternion(Fraction(Integer))
--E 11
)spool 
)lisp (bye)

APT Browse - Built by Thomas Orozco.