-- -*- M2-comint -*- hash: 5744284699891699431

i1 : isAnisotropic makeGWClass matrix(CC, {{3}})

o1 = true

i2 : isAnisotropic makeGWClass matrix(CC, {{2,0},{0,5}})

o2 = false

i3 : isAnisotropic makeGWClass matrix(RR, {{3,0,0},{0,5,0},{0,0,7}})

o3 = true

i4 : isAnisotropic makeGWClass matrix(RR, {{0,2},{2,0}})

o4 = false

i5 : beta = makeGWClass matrix(QQ, {{1,0,2,0,3},{0,6,1,1,-1},{2,1,5,2,0},{0,1,2,4,-1},{3,-1,0,-1,1}});

i6 : isAnisotropic beta

o6 = false

i7 : getDiagonalClass beta

o7 = | 1 0 0  0  0   |
     | 0 6 0  0  0   |
     | 0 0 30 0  0   |
     | 0 0 0  -5 0   |
     | 0 0 0  0  671 |

o7 : GrothendieckWittClass

i8 : isAnisotropic makeGWClass matrix(GF(7), {{1,0,0},{0,1,0},{0,0,1}})

o8 = false

i9 : isAnisotropic makeGWClass matrix(GF(7), {{3,0},{0,3}})

o9 = true

i10 : 
