Mathematica Define Unknown Matrix