Re: Displaying Solution in Matrix Form
- To: mathgroup at smc.vnet.net
- Subject: [mg61361] Re: Displaying Solution in Matrix Form
- From: "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk>
- Date: Mon, 17 Oct 2005 02:29:26 -0400 (EDT)
- References: <diskq0$m9f$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
This does what you want (using a randomly generated example):
variables=Flatten[Table[f[i,j],{i,3},{j,4}]];
matrix=Table[Random[Real,{-1,1}],{12},{12}];
vector=Table[Random[Real,{-1,1}],{12}];
equations=MapThread[#1==#2&,{matrix.variables,vector}]
solution=NSolve[equations,variables]
Partition[variables,4]//TableForm
Partition[variables/.solution[[1]],4]//TableForm
The solution is in the form of a set of replacement rules for the variables.
You use the variables /.solution construct to apply these rules to the
variables, and then use Partition to split the vector of solutions into a
matrix, which you then display using TableForm (you could use MatrixForm if
you want brackets drawn round the table).
Steve Luttrell
"mathematica newbie" <sheeba.arnold at gmail.com> wrote in message
news:diskq0$m9f$1 at smc.vnet.net...
> Hi,
>
> I have the 12 linear algebraic equations.
> The solutions are denoted by Fi, j's.
> F1,1 , F1,2, F1,3, F1,4,
> F2,1, F2,2 etc......through F3,4
>
> I have solved the equations with the NSolve command.
>
> How can I display this result as a 3x4 matrix, using the solution to
> assign values to the 12 Fi, j's.
>
> This must be done in a nested
> input that includes the function that solves the equations.
>
> I'm a mathematica newbie and any help with this is greatly appreciated.
> Thank you!
>