Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*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 2006

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

Search the Archive

Re: Setting up equations

  • To: mathgroup at smc.vnet.net
  • Subject: [mg66016] Re: [mg65990] Setting up equations
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Thu, 27 Apr 2006 02:26:00 -0400 (EDT)
  • References: <200604260837.EAA02689@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

eqn=5 x+6 y+7 z==a x+b y+c z;

Solve[Equal@@
     (Flatten[CoefficientList[#,{x,y,z}]]&/@
         List@@eqn),{a,b,c}]

{{a -> 5, b -> 6, c -> 7}}


Bob Hanlon
hanlonr at cox.net



On Apr 26, 2006, at 4:37 AM, Yaroslav Bulatov wrote:

> I'm trying to do things of the form
> Solve[5 x + 6 y + 7 z == a x + b y + c z, {a, b, c}]
>
> But since x,y,z are variables, what I really mean is
> Solve[5==a && 6==b && 7==c], so I need to convert to this form
>
> If I only have one variable, the following does what I need
>
> LogicalExpand[a*x + b*x^2 + O[x]^3 == 2*x + 3*x^2 + O[x]^3]
>
> But what to do if I have several variables?
>


  • Prev by Date: Re: Setting up equations
  • Next by Date: Re: error function
  • Previous by thread: Re: Setting up equations
  • Next by thread: Re: Setting up equations (Revision)