Re: Missing link
- To: mathgroup at smc.vnet.net
- Subject: [mg12681] Re: [mg12652] Missing link
- From: BobHanlon at aol.com
- Date: Mon, 1 Jun 1998 23:16:52 -0400
- Sender: owner-wri-mathgroup at wolfram.com
Manuel,
sys = {{1, 3, 2, 3}, {-3, 1, 4, 1}, {5, 7, 2, b}}; X = Array[x,
Length[sys]];
sysTr = Transpose[sys];
eqns = Transpose[Drop[sysTr, -1]].X == Last[sysTr]
{x[1] + 3*x[2] + 2*x[3], -3*x[1] + x[2] + 4*x[3],
5*x[1] + 7*x[2] + 2*x[3]} == {3, 1, b}
Solve[eqns, b]
{{b -> 7}}
Bob Hanlon
In a message dated 5/30/98 8:47:53 PM, MAvalosJr at AOL.com wrote:
>Is there a way to find in a system of linear equations the numerical
>value of a symbol,say,b. The example below is easy enough with pencil
>and paper but some matrices get a little too complicated and would like
>to find a method with mathematica.
>
>Suppose the matrix is {{1,3,2,3},{-3,1,4,1},{5,7,2,b}}. b must have the
>value of 7 in order the system have a solution.