OK, I see! Then try (using my definition of vars from above):
vars
Coefficient[#, vars] &@*First /@ system
or likewise (using the new v11.3):
Curry[Coefficient][vars]@*First /@ system
How about:
x[n_] := ToExpression["x" <> ToString[n]] vars = Array[x, 22]; Clear[x]; Solve[system, vars]
Dear Marco,
glad you like my snippet of code! At the moment I am attending some boring conference, and your reply gives me the first sense of achievement for today ...
Best regard from Austria -- Henrik
Cool! Very nice use of the new Curry!
it worked to set up the x answers in a organize pattern from 1 to 22 but i need to set the 22 equations in a coefficient matrix form, do you have a way to eliminate the x on each equation and also set it up as a 22x22 matrix?
