Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

[Date Index] [Thread Index] [Author Index]

Search the Archive

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. 


  • Prev by Date: Comparison Error. Is there an overall fix?
  • Next by Date: RE: mathematica
  • Previous by thread: Comparison Error. Is there an overall fix?
  • Next by thread: Re: Missing link