mat1 <- XMat(n = 10, q = 0)
print(mat1)
mat2 <- XMat(n = 15, q = 1)
print(mat2)
mat3 <- XMat(n = 15, q = 2)
print(mat3)
Mat1 <- DiffMat(n = 10, q = 0)
Mat2 <- DiffMat(n = 15, q = 1)
Mat3 <- DiffMat(n = 15, q = 2)
print(Mat1%*%mat1)
print(Mat2%*%mat2)
print(Mat3%*%mat3)
Run the code above in your browser using DataLab