Re: Mathematica 紧急求助# Software - 软件世界
S*g
1 楼
You can use this:
LHS = Table[a[i,j],{i,1,9},{j,1,9}];
RHS = Table[0,{i,1,9},{j,1,9}];
var = Flatten[Table[variables[[i,j]],{i,1,9},{j,1,9}];
Solve[LHS==RHS,var]
LHS = Table[a[i,j],{i,1,9},{j,1,9}];
RHS = Table[0,{i,1,9},{j,1,9}];
var = Flatten[Table[variables[[i,j]],{i,1,9},{j,1,9}];
Solve[LHS==RHS,var]