Jordan algebras

To cite the jordan package in publications please use (Hankin 2023). A Jordan algebra is a non-associative algebra over the reals with a bilinear multiplication that satisfies the following identities:

\[xy=yx\]

\[(xy)(xx)=x(y(xx))\]

(the second identity is known as the Jordan identity). In literature, multiplication is usually indicated by juxtaposition but one sometimes sees \(x\circ y\). Package idiom is to use an asterisk, as in x*y. Following McCrimmon (1978), there are five types of Jordan algebras:

• type 1: Real symmetric matrices, class real_symmetric_matrix, abbreviated in the package to rsm
• type 2: Complex Hermitian matrices, class complex_herm_matrix, abbreviated to chm
• type 3: Quaternionic Hermitian matrices, class quaternion_herm_matrix, abbreviated to qhm
• type 4: Albert algebras, the space of \(3\times 3\) Hermitian octonionic matrices, class albert
• type 5: Spin factors, class spin

(of course, the first two are special cases of the next). The jordan package provides functionality to manipulate jordan objects using natural R idiom. Objects of all these classes are stored in matrix form with columns being elements of the jordan algebra. The first four classes are matrix-based in the sense that the algebraic objects are symmetric or Hermitian matrices (the S4 class is jordan_matrix). The fifth class, spin factors, is not matrix based.

Matrix-based Jordan algebras, types 1,2,3

The four matrix-based Jordan algebras have elements which are square matrices. The first three classes are real (symmetric) matrices, complex (Hermitian) matrices, and quaternionic (Hermitian); type 4 is considered separately at the end. Types 1,2, and 3 all behave in the same way from a package idiom perspective. Consider:

x <- rrsm()  # "Random Real Symmetric Matrix"
y <- rrsm()  
z <- rrsm()  
x

## Vector of real symmetric matrices with entries
##         [1]   [2]   [3] 
##  [1,] -0.44  0.82  1.08 
##  [2,] -0.12  0.14 -0.01 
##  [3,] -0.71 -0.54  0.21 
##  [4,] -1.25 -0.33  0.32 
##  [5,]  0.24 -0.02 -0.28 
## ....................... 
## [11,] -0.46 -0.32  0.86 
## [12,] -0.36  0.35 -0.72 
## [13,] -0.83  0.76  0.53 
## [14,] -0.29 -0.09 -0.15 
## [15,]  1.55 -1.11 -0.34

Object x is a three-element vector, with each element being a column. Each element corresponds to a \(5\times 5\) symmetric matrix (because rrsm() has d=5 by default, specifying the size of the matrix). Thus each element has \(5*(5+1)/2=15\) degrees of freedom, as indicated by the row labelling. Addition and multiplication of a Jordan object with a scalar are defined:

x*100

## Vector of real symmetric matrices with entries
##        [1]  [2]  [3] 
##  [1,]  -44   82  108 
##  [2,]  -12   14   -1 
##  [3,]  -71  -54   21 
##  [4,] -125  -33   32 
##  [5,]   24   -2  -28 
## .................... 
## [11,]  -46  -32   86 
## [12,]  -36   35  -72 
## [13,]  -83   76   53 
## [14,]  -29   -9  -15 
## [15,]  155 -111  -34

x + y*3

## Vector of real symmetric matrices with entries
##         [1]   [2]   [3] 
##  [1,] -0.26  4.36  2.82 
##  [2,] -1.32 -5.89  2.27 
##  [3,] -1.52  0.66  2.49 
##  [4,]  1.96  3.54  0.17 
##  [5,] -1.35 -5.18 -0.64 
## ....................... 
## [11,]  3.77 -2.54  3.71 
## [12,]  0.33  0.71  2.70 
## [13,] -2.72  3.70 -1.42 
## [14,] -2.63  2.37 -0.24 
## [15,]  6.74 -5.91 -0.67

x + 100

## Vector of real symmetric matrices with entries
##          [1]    [2]    [3] 
##  [1,]  99.56 100.82 101.08 
##  [2,]  99.88 100.14  99.99 
##  [3,]  99.29  99.46 100.21 
##  [4,]  98.75  99.67 100.32 
##  [5,] 100.24  99.98  99.72 
## .......................... 
## [11,]  99.54  99.68 100.86 
## [12,]  99.64 100.35  99.28 
## [13,]  99.17 100.76 100.53 
## [14,]  99.71  99.91  99.85 
## [15,] 101.55  98.89  99.66

(the last line is motivated by analogy with M + x, for M a matrix and x a scalar). Jordan objects may be multiplied using the rule \(x\circ y=(xy+yx)/2\):

x*y

## Vector of real symmetric matrices with entries
##            [1]      [2]      [3] 
##  [1,] -3.07210  0.51510  1.41980 
##  [2,]  0.41855  0.34095  0.58800 
##  [3,]  0.64970  1.25560 -0.78280 
##  [4,] -0.76135  0.68980  0.31120 
##  [5,]  0.51310  0.94395  0.83275 
## ................................ 
## [11,]  1.13405  0.12780  0.16230 
## [12,]  0.64805 -0.45320  0.07195 
## [13,] -1.65425 -0.43110  0.24085 
## [14,] -2.90690  0.34450 -0.70335 
## [15,]  2.69920  2.72580 -0.30640

We may verify that the distributive law is obeyed:

x*(y+z) - (x*y + x*z)

## Vector of real symmetric matrices with entries
##                 [1]           [2]           [3] 
##  [1,]  0.000000e+00 -3.330669e-16 -3.330669e-16 
##  [2,] -2.220446e-16 -2.775558e-16  4.440892e-16 
##  [3,] -8.326673e-17  1.110223e-16  0.000000e+00 
##  [4,]  2.220446e-16 -2.220446e-16 -4.440892e-16 
##  [5,]  9.714451e-17  2.220446e-16  2.220446e-16 
## ............................................... 
## [11,]  0.000000e+00  2.220446e-16  5.551115e-17 
## [12,]  1.110223e-16 -2.220446e-16 -5.551115e-17 
## [13,]  8.881784e-16  2.220446e-16 -2.220446e-16 
## [14,]  8.881784e-16 -1.110223e-16  3.330669e-16 
## [15,] -8.881784e-16  8.881784e-16  0.000000e+00

(that is, zero to numerical precision). Further, we may observe that the resulting algebra is not associative:

LHS <- x*(y*z)
RHS <- (x*y)*z
LHS-RHS

## Vector of real symmetric matrices with entries
##              [1]        [2]         [3] 
##  [1,]  2.4015230  2.2131440  2.81729300 
##  [2,]  0.3018875 -0.6487042  1.17269950 
##  [3,] -0.7709420  0.2968960 -1.20830900 
##  [4,]  0.3804788 -0.8067967 -0.86741325 
##  [5,]  0.3933975  0.5585107  0.38502475 
## ....................................... 
## [11,] -0.5937645  3.9833387 -0.28208600 
## [12,]  1.2630870 -5.0282882 -1.12372100 
## [13,] -2.4548355  2.8759873 -0.10575600 
## [14,]  0.4520315 -0.3896172 -0.10673775 
## [15,] -1.0528815 -1.5216570 -1.17592650

showing numerically that \(x(yz)\neq(xy)z\). However, the Jordan identity \((xy)(xx) = x(y(xx))\) is satisfied:

LHS <- (x*y)*(x*x)
RHS <- x*(y*(x*x))
LHS-RHS

## Vector of real symmetric matrices with entries
##                 [1]           [2]           [3] 
##  [1,]  3.552714e-15  8.326673e-17 -1.332268e-15 
##  [2,] -4.440892e-16  5.551115e-17 -4.440892e-16 
##  [3,]  0.000000e+00  0.000000e+00 -2.220446e-16 
##  [4,]  1.776357e-15  2.220446e-16  0.000000e+00 
##  [5,]  2.220446e-16  0.000000e+00  0.000000e+00 
## ............................................... 
## [11,] -8.881784e-16  0.000000e+00 -2.220446e-16 
## [12,] -1.332268e-15  0.000000e+00  0.000000e+00 
## [13,]  0.000000e+00 -2.220446e-16  1.110223e-16 
## [14,]  0.000000e+00  0.000000e+00  4.440892e-16 
## [15,]  8.881784e-16  8.881784e-16 -1.942890e-16

(the entries are zero to numerical precision). If we wish to work with the matrix itself, a single element may be coerced with as.1matrix():

M1 <- as.1matrix(x[1])
(M2 <- as.1matrix(x[2]))

##       [,1]  [,2]  [,3]  [,4]  [,5]
## [1,]  0.82  0.14 -0.33  0.02 -0.32
## [2,]  0.14 -0.54 -0.02  0.83  0.35
## [3,] -0.33 -0.02  1.22  0.54  0.76
## [4,]  0.02  0.83  0.54 -0.24 -0.09
## [5,] -0.32  0.35  0.76 -0.09 -1.11

(in the above, observe how the matrix is indeed symmetric). We may verify that the multiplication rule is indeed being correctly applied:

(M1 %*% M2 + M2 %*% M1)/2 - as.1matrix(x[1]*x[2])

##      [,1] [,2] [,3] [,4] [,5]
## [1,]    0    0    0    0    0
## [2,]    0    0    0    0    0
## [3,]    0    0    0    0    0
## [4,]    0    0    0    0    0
## [5,]    0    0    0    0    0

It is also possible to verify that symmetry is closed under the Jordan operation:

jj <- as.1matrix(x[1]*x[2])
jj-t(jj)

##      [,1] [,2] [,3] [,4] [,5]
## [1,]    0    0    0    0    0
## [2,]    0    0    0    0    0
## [3,]    0    0    0    0    0
## [4,]    0    0    0    0    0
## [5,]    0    0    0    0    0

The other matrix-based Jordan algebras are similar but differ in the details of the coercion. Taking quaternionic matrices:

as.1matrix(rqhm(n=1,d=2))

##    [1,1] [2,1] [1,2] [2,2]
## Re -0.52  0.17  0.17 -0.35
## i   0.00 -1.50  1.50  0.00
## j   0.00  0.15 -0.15  0.00
## k   0.00  0.79 -0.79  0.00
##      [,1] [,2]
## [1,]    1    3
## [2,]    2    4

above we see the matrix functionality of the onion package being used. See how the matrix is Hermitian (elements [1,2] and [2,1] are conjugate; elements [1,1] and [2,2] are pure real). Verifying the Jordan identity would be almost the same as above:

x <- rqhm()
y <- rqhm()
(x*y)*(x*x) - x*(y*(x*x))

## Vector of quaternionic Hermitian matrices with entries
##                 [1]           [2]           [3] 
##  [1,]  0.000000e+00  0.000000e+00  7.105427e-15 
##  [2,]  2.842171e-14  1.776357e-14  0.000000e+00 
##  [3,]  2.842171e-14  0.000000e+00 -7.105427e-15 
##  [4,]  0.000000e+00 -7.105427e-15  0.000000e+00 
##  [5,]  0.000000e+00  0.000000e+00 -2.131628e-14 
## ............................................... 
## [41,]  2.842171e-14  0.000000e+00 -7.105427e-15 
## [42,]  1.421085e-14  0.000000e+00  1.421085e-14 
## [43,] -3.552714e-15  0.000000e+00  1.421085e-14 
## [44,] -2.131628e-14 -6.217249e-15  7.105427e-15 
## [45,] -1.421085e-14 -1.776357e-15  7.105427e-15

Above, we see that the difference is very small.

Spin factors, type 5

The first four types of Jordan algebras are all matrix-based with either real, complex, quaternionic, or octonionic entries.

The fifth type, spin factors, are slightly different from a package idiom perspective. Mathematically, elements are of the form \(\mathbb{R}\oplus\mathbb{R}^n\), with addition and multiplication defined by

\[\alpha(a,\mathbf{a}) = (\alpha a,\alpha\mathbf{a})\]

\[(a,\mathbf{a}) + (b,\mathbf{b}) = (a+b,\mathbf{a} + \mathbf{b})\]

\[(a,\mathbf{a}) \times (b,\mathbf{b}) = (ab+\left\langle\mathbf{a},\mathbf{b}\right\rangle,a\mathbf{b} + b\mathbf{a})\]

where \(a,b,\alpha\in\mathbb{R}\), and \(\mathbf{a},\mathbf{b}\in\mathbb{R}^n\). Here \(\left\langle\cdot,\cdot\right\rangle\) is an inner product defined on \(\mathbb{R}^n\) (by default we have \(\left\langle(x_1,\ldots, x_n),(y_1,\ldots, y_n)\right\rangle=\sum x_iy_i\) but this is configurable in the package).

So if we have \(\mathcal{I},\mathcal{J},\mathcal{K}\) spin factor elements it is clear that \(\mathcal{I}\mathcal{J}=\mathcal{J}\mathcal{I}\) and \(\mathcal{I}(\mathcal{J}+\mathcal{K}) = \mathcal{I}\mathcal{J} + \mathcal{I}\mathcal{K}\). The Jordan identity is not as easy to see but we may verify all the identities numerically:

I <- rspin()
J <- rspin()
K <- rspin()
I

## Vector of spin objects with entries
##       [1]   [2]   [3] 
##  r   0.88 -0.82  1.17 
## [1]  0.75 -0.08  0.61 
## [2] -0.82  0.22  1.02 
## [3]  1.65  0.43 -0.20 
## [4]  0.27  0.74 -0.17 
## [5] -1.26  0.66  0.31

I*J - J*I   # commutative:

## Vector of spin objects with entries
##     [1] [2] [3] 
##  r    0   0   0 
## [1]   0   0   0 
## [2]   0   0   0 
## [3]   0   0   0 
## [4]   0   0   0 
## [5]   0   0   0

I*(J+K) - (I*J + I*K)  # distributive:

## Vector of spin objects with entries
##              [1]           [2]           [3] 
##  r  3.885781e-16  4.440892e-16  0.000000e+00 
## [1] 2.220446e-16 -1.110223e-16  0.000000e+00 
## [2] 0.000000e+00  0.000000e+00  0.000000e+00 
## [3] 3.330669e-16  0.000000e+00 -4.440892e-16 
## [4] 0.000000e+00  0.000000e+00  0.000000e+00 
## [5] 0.000000e+00  0.000000e+00  2.220446e-16

I*(J*K) - (I*J)*K  # not associative:

## Vector of spin objects with entries
##               [1]           [2]       [3] 
##  r   2.220446e-16  6.661338e-16  0.000000 
## [1] -1.299625e+00  7.840960e-01  0.208828 
## [2]  1.175323e+00  1.167544e+00  0.670856 
## [3] -2.422726e+00  8.635240e-01 -0.397424 
## [4] -3.880840e-01 -1.005360e+00 -0.076972 
## [5]  2.178677e+00  3.317976e+00  0.222100

(I*J)*(I*I) - I*(J*(I*I))  # Obeys the Jordan identity

## Vector of spin objects with entries
##               [1]          [2]           [3] 
##  r  -2.664535e-15 0.000000e+00  0.000000e+00 
## [1] -8.881784e-16 0.000000e+00  0.000000e+00 
## [2]  4.440892e-16 0.000000e+00  4.440892e-16 
## [3] -1.776357e-15 4.440892e-16 -8.881784e-16 
## [4] -1.387779e-16 8.881784e-16  0.000000e+00 
## [5]  1.332268e-15 4.440892e-16  4.440892e-16

Albert algebras, type 4

Type 4 Jordan algebra corresponds to \(3\times 3\) Hermitian matrices with octonions for entries. This is class albert in the package. Note that octonionic Hermitian matrices of order 4 or above do not satisfy the Jordan identity and are therefore not Jordan algebras: there is a numerical illustration of this fact in the onion package vignette. We may verify the Jordan identity for \(3\times 3\) octonionic Hermitian matrices using package class albert:

x <- ralbert()
y <- ralbert()
x

## Vector of Albert matrices with entries
##          [1]   [2]   [3]
##     d1  1.10  0.74 -0.60
##     d2  0.97  1.49 -0.40
##     d3  0.12 -1.54 -0.34
## Re(o1)  0.59  1.00 -0.24
##  i(o1) -0.47 -1.31  1.36
##  j(o1)  0.42  0.29 -2.16
##  k(o1) -0.93 -0.41 -0.79
##  l(o1) -1.28 -0.54  1.39
## il(o1)  0.39 -0.07 -0.75
## jl(o1)  0.25 -0.33  0.96
## kl(o1)  1.11 -1.82 -2.37
## Re(o2)  0.67 -1.44  0.96
##  i(o2) -1.92 -0.35  1.20
##  j(o2)  0.93 -0.48 -2.83
##  k(o2) -0.02  0.04 -0.68
##  l(o2)  0.76 -1.55 -1.04
## il(o2)  0.41 -0.23 -1.00
## jl(o2)  0.65  0.51  0.97
## kl(o2) -1.52  0.49 -0.30
## Re(o3) -2.04  0.91 -0.10
##  i(o3) -1.17 -0.59  1.74
##  j(o3) -0.71  0.62 -1.51
##  k(o3)  0.03  1.02  0.55
##  l(o3)  0.02 -0.32 -0.18
## il(o3) -1.33  0.25 -0.44
## jl(o3) -1.10 -0.92  2.87
## kl(o3)  1.04 -1.06  0.66

(x*y)*(x*x)-x*(y*(x*x)) # Jordan identity:

## Vector of Albert matrices with entries
##                  [1]           [2]           [3]
##     d1  0.000000e+00 -1.776357e-15 -3.552714e-15
##     d2  0.000000e+00 -7.105427e-15 -1.776357e-14
##     d3  0.000000e+00 -3.552714e-15 -2.842171e-14
## Re(o1)  2.486900e-14  3.552714e-15  1.776357e-14
##  i(o1)  1.421085e-14 -7.105427e-15  2.842171e-14
##  j(o1) -1.421085e-14 -7.105427e-15  1.421085e-14
##  k(o1)  8.881784e-16 -7.105427e-15  1.421085e-14
##  l(o1)  1.421085e-14  0.000000e+00 -1.421085e-14
## il(o1)  0.000000e+00  9.992007e-16  1.421085e-14
## jl(o1) -7.105427e-15  0.000000e+00  1.776357e-14
## kl(o1) -1.421085e-14  0.000000e+00  1.421085e-14
## Re(o2) -1.421085e-14  3.552714e-15 -7.105427e-15
##  i(o2)  0.000000e+00 -1.776357e-15  7.105427e-15
##  j(o2) -7.105427e-15  0.000000e+00 -7.105427e-15
##  k(o2)  7.105427e-15 -1.776357e-15 -1.421085e-14
##  l(o2)  7.105427e-15  3.552714e-15  2.842171e-14
## il(o2) -5.773160e-15  0.000000e+00  3.552714e-15
## jl(o2) -7.105427e-15  0.000000e+00 -7.105427e-15
## kl(o2)  0.000000e+00  8.881784e-16  0.000000e+00
## Re(o3)  0.000000e+00  6.217249e-15 -2.131628e-14
##  i(o3)  0.000000e+00  6.217249e-15 -1.421085e-14
##  j(o3)  7.105427e-15 -3.552714e-15  0.000000e+00
##  k(o3) -7.105427e-15  1.776357e-15  2.131628e-14
##  l(o3)  1.421085e-14  0.000000e+00  1.421085e-14
## il(o3) -1.421085e-14  7.105427e-15  1.776357e-14
## jl(o3)  7.105427e-15  1.776357e-15  1.065814e-14
## kl(o3)  2.664535e-15 -1.776357e-15  0.000000e+00

Special identities

In 1963, C. M. Glennie discovered a pair of identities satisfied by special Jordan algebras but not the Albert algebra. Defining

\[ U_x(y) = 2x(xy)-(xx)y \]

\[ \left\lbrace x,y,z\right\rbrace= 2(x(yz)+(xy)z - (xz)y) \]

(it can be shown that Jacobson’s identity \(U_{U_x(y)}=U_xU_yU_x\) holds), Glennie’s identities are

\[ H_8(x,y,z)=H_8(y,x,z)\qquad H_9(x,y,z)=H_9(y,x,z) \]

(see McCrimmon 2004 for details), where

\[ H_8(x,y,z)= \left\lbrace U_x U_y(z),z, xy\right\rbrace-U_xU_yU_z(xy) \]

and \[ H_9(x,y,z)= 2U_x(z) U_{y,x}U_z(yy)-U_x U_z U_{x,y} U_y(z) \]

U <- function(x){function(y){2*x*(x*y)-(x*x)*y}}
diff <- function(x,y,z){
     LHS <- U(x)(U(y)(U(x)(z)))
     RHS <- U(U(x)(y))(z)
     return(LHS-RHS)  # zero if Jacobson holds
}

diff(ralbert(),ralbert(),ralbert())  # Albert algebra obeys Jacobson:

## Vector of Albert matrices with entries
##                  [1]           [2]           [3]
##     d1 -3.637979e-12  0.000000e+00  4.547474e-13
##     d2 -5.456968e-12 -9.094947e-13  2.842171e-14
##     d3 -7.275958e-12  7.730705e-12  1.136868e-12
## Re(o1) -9.094947e-13 -5.456968e-12 -2.273737e-13
##  i(o1) -9.094947e-13  9.549694e-12 -3.410605e-13
##  j(o1)  0.000000e+00  1.818989e-12  6.821210e-13
##  k(o1)  1.818989e-12  1.818989e-12  5.684342e-13
##  l(o1) -1.818989e-12 -5.456968e-12 -1.136868e-13
## il(o1)  1.364242e-12  4.547474e-13 -2.273737e-13
## jl(o1) -4.547474e-13 -2.273737e-12  4.547474e-13
## kl(o1)  5.684342e-13  1.273293e-11  0.000000e+00
## Re(o2) -1.136868e-12 -9.094947e-13  5.684342e-13
##  i(o2)  1.818989e-12  5.002221e-12 -3.410605e-13
##  j(o2) -9.094947e-13  8.185452e-12  6.821210e-13
##  k(o2)  9.094947e-13  1.818989e-12  3.410605e-13
##  l(o2) -1.818989e-12  9.094947e-13  2.273737e-13
## il(o2) -1.818989e-12  7.275958e-12 -3.410605e-13
## jl(o2) -4.547474e-13  0.000000e+00  3.410605e-13
## kl(o2)  3.637979e-12  5.456968e-12 -3.410605e-13
## Re(o3)  9.094947e-13 -1.818989e-12  1.165290e-12
##  i(o3) -1.818989e-12  1.364242e-12  0.000000e+00
##  j(o3)  0.000000e+00 -9.094947e-13  9.094947e-13
##  k(o3)  1.818989e-12  0.000000e+00  1.136868e-13
##  l(o3)  0.000000e+00 -4.092726e-12  2.842171e-13
## il(o3) -1.818989e-12 -4.547474e-12  4.547474e-13
## jl(o3) -4.547474e-13 -1.818989e-12 -4.547474e-13
## kl(o3) -1.818989e-12  2.955858e-12 -6.252776e-13

diff(rqhm(),rqhm(),rqhm()) # Quaternion Jordan algebra obeys Jacobson:

## Vector of quaternionic Hermitian matrices with entries
##                 [1]           [2]           [3] 
##  [1,] -2.728484e-12 -9.094947e-13  9.094947e-13 
##  [2,] -5.456968e-12  1.364242e-12  0.000000e+00 
##  [3,]  0.000000e+00  1.364242e-12 -3.637979e-12 
##  [4,] -1.818989e-12 -2.842171e-13  7.275958e-12 
##  [5,] -3.637979e-12  2.273737e-13  2.910383e-11 
## ............................................... 
## [41,] -3.637979e-12 -4.547474e-13 -5.456968e-12 
## [42,] -1.818989e-12 -4.547474e-13 -5.456968e-12 
## [43,] -4.547474e-13 -1.364242e-12 -1.818989e-12 
## [44,]  6.821210e-13 -1.591616e-12  1.818989e-12 
## [45,] -4.547474e-13  1.364242e-12 -1.818989e-12

diff(rspin(),rspin(),rspin()) # spin factors obey Jacobson:

## Vector of spin objects with entries
##               [1]           [2]           [3] 
##  r  -5.684342e-14 -1.136868e-13  8.881784e-16 
## [1] -2.842171e-14  9.094947e-13  0.000000e+00 
## [2] -3.552714e-14  0.000000e+00  1.110223e-16 
## [3] -7.105427e-14 -5.684342e-14  1.110223e-16 
## [4] -4.263256e-14 -6.821210e-13 -4.440892e-16 
## [5] -3.552714e-15 -4.547474e-13 -4.440892e-16

B <- function(x,y,z){2*(x*(y*z) + (x*y)*z - (x*z)*y)}  # bracket function
H8 <- function(x,y,z){B(U(x)(U(y)(z)),z,x*y) - U(x)(U(y)(U(z)(x*y)))}
G8 <- function(x,y,z){H8(x,y,z)-H8(y,x,z)}

G8(rqhm(1),rqhm(1),rqhm(1))   # Quaternion Jordan algebra obeys G8:

## Vector of quaternionic Hermitian matrices with entries
##                 [1] 
##  [1,] -1.455192e-11 
##  [2,]  0.000000e+00 
##  [3,]  9.458745e-11 
##  [4,]  7.275958e-11 
##  [5,]  3.637979e-11 
## ................... 
## [41,]  2.910383e-11 
## [42,] -4.001777e-11 
## [43,] -7.275958e-12 
## [44,] -7.275958e-11 
## [45,] -6.912160e-11

G8(rspin(1),rspin(1),rspin(1)) # Spin factors obey G8:

## Vector of spin objects with entries
##                 a 
##  r  -2.131628e-14 
## [1]  1.776357e-15 
## [2]  4.263256e-14 
## [3] -1.261213e-13 
## [4] -1.350031e-13 
## [5] -4.440892e-14

G8(ralbert(1),ralbert(1),ralbert(1)) # Albert algebra does not obey G8:

## Vector of Albert matrices with entries
##                [1]
##     d1 -12716.9034
##     d2   2430.6616
##     d3  10286.2418
## Re(o1)  -7471.9562
##  i(o1)  -4667.7638
##  j(o1)  10643.5359
##  k(o1) -14431.9410
##  l(o1)  -1351.9503
## il(o1) -12073.2428
## jl(o1)  -7445.4433
## kl(o1)  -6990.9694
## Re(o2) -10222.7910
##  i(o2)  14716.5660
##  j(o2)   7228.6019
##  k(o2)  -8863.8472
##  l(o2)  18377.9757
## il(o2)  -5707.1609
## jl(o2)   -953.9874
## kl(o2)    699.7934
## Re(o3)  10082.3697
##  i(o3) -11323.6682
##  j(o3)  -3767.6389
##  k(o3)  -4289.3675
##  l(o3)  23142.5849
## il(o3)  -2112.9456
## jl(o3)   7543.5382
## kl(o3) -11619.3877

L <- function(x){function(y){x*y}}
U <- function(x){function(y){2*x*(x*y)-(x*x)*y}}
U2 <- function(x,y){function(z){L(x)(L(y)(z)) + L(y)(L(x)(z)) - L(x*y)(z)}}
H9 <- function(x,y,z){2*U(x)(z)*U2(y,x)(U(z)(y*y)) - U(x)(U(z)(U2(x,y)(U(y)(z))))}
G9 <- function(x,y,z){H9(x,y,z)-H9(y,x,z)}

G9(rqhm(1),rqhm(1),rqhm(1))  # Quaternion Jordan algebra obeys G9:

## Vector of quaternionic Hermitian matrices with entries
##                 [1] 
##  [1,]  1.455192e-10 
##  [2,] -1.455192e-10 
##  [3,]  1.455192e-11 
##  [4,] -8.731149e-11 
##  [5,]  7.275958e-11 
## ................... 
## [41,]  5.820766e-11 
## [42,] -7.639755e-11 
## [43,]  8.731149e-11 
## [44,] -4.365575e-11 
## [45,] -5.093170e-11

G9(ralbert(1),ralbert(1),ralbert(1)) # Albert algebra does not obey G9:

## Vector of Albert matrices with entries
##               [1]
##     d1 154006.908
##     d2  21395.542
##     d3  88375.658
## Re(o1)  49884.349
##  i(o1) -67201.649
##  j(o1)  26677.168
##  k(o1)   3678.796
##  l(o1)  56904.566
## il(o1)  25213.888
## jl(o1)  64738.494
## kl(o1) -33784.180
## Re(o2)  46994.251
##  i(o2)  23831.763
##  j(o2) -16425.746
##  k(o2) -56856.899
##  l(o2) -60655.872
## il(o2) -59343.299
## jl(o2)   9883.037
## kl(o2)  12976.425
## Re(o3) -73517.512
##  i(o3) -79937.069
##  j(o3)  45589.327
##  k(o3) -31944.020
##  l(o3)  87904.088
## il(o3)  42635.457
## jl(o3)  18584.795
## kl(o3)   7117.476