Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

Re: Using results of Solve[simultaneous equations]

  • To: mathgroup at
  • Subject: [mg31083] Re: Using results of Solve[simultaneous equations]
  • From: "Allan Hayes" <hay at>
  • Date: Sun, 7 Oct 2001 03:11:51 -0400 (EDT)
  • References: <9pme0e$64g$>
  • Sender: owner-wri-mathgroup at

Two ideas for the first part:


{a->b,{c:>d}}/.r:Rule|RuleDelayed -> Set;


a = b

c = d

ToSet[(Rule|RuleDelayed)[x_,y_]]:= x=y;



a = b

c = d

Second part:

Whether this can be done depends on the values of a and b.
A little further manipulation will be needed in each case.


Eliminate[{a==t, b==t^2+t+1},t]

-1 + b == a + a^2

Solve[{a==t, b==t^2+t+1},b,t]

{{b -> 1 + a + a^2}}
Allan Hayes
Mathematica Training and Consulting
Leicester UK
hay at
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565

"Timie Milie" <milstead at> wrote in message
news:9pme0e$64g$1 at
> I use solve to solve some simultaneous equations and get results of the
> a->... b->... c->...
> I want to do 2 things:
>     assign each result to an equation of the form a=... b=... c=...
>     so I can then manipulate them...
> e.g.
>     display the b result in terms of the result in a
> e.g.
>     b = 2 a
> milstead at

  • Prev by Date: RE: Errorbars in BOTH directions
  • Next by Date: Re: Pasting several cells at once
  • Previous by thread: Using results of Solve[simultaneous equations]
  • Next by thread: Greek Labelling and Plots in Mathematica