Question: square matrices

 

 

proc(U::Matrix);

proc (U::(Matrix(i .. m, j .. m))) local m, i, j; m := LinearAlgebra:-Dimension(U); if modp(i+j, 2) = 0 then U[i, j] := 1 else U[i, j] := 0 end if end proc

``

(1)

Hello! I've made these procedures but it doesn't result give me the result i want. Can someone please tell me where it is I made a mistake?

 

Please Wait...