symmetricM -- part of a CliffordModule

i1 : setRandomSeed 0

o1 = 0

i2 : kk = ZZ/101

o2 = kk

o2 : QuotientRing

i3 : g = 1

o3 = 1

i4 : (S, qq,  R,  u, M1, M2, Mu1, Mu2)=randomNicePencil(kk,g);

i5 : M = cliffordModule(M1,M2, R)

o5 = CliffordModule{...6...}

o5 : CliffordModule

i6 : M.symmetricM

o6 = | -5t  -50s 6t     -6t  |
     | -50s 0    -9t    5t   |
     | 6t   -9t  -s-30t 3t   |
     | -6t  5t   3t     -48t |

             4      4
o6 : Matrix R  <-- R

i7 : symMatrix(M.evenOperators,M.oddOperators)

o7 = | -5t  -50s 6t     -6t  |
     | -50s 0    -9t    5t   |
     | 6t   -9t  -s-30t 3t   |
     | -6t  5t   3t     -48t |

             4      4
o7 : Matrix R  <-- R