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

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

Search the Archive

Re: Using results of Solve[simultaneous equations]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg31083] Re: Using results of Solve[simultaneous equations]
  • From: "Allan Hayes" <hay at haystack.demon.co.uk>
  • Date: Sun, 7 Oct 2001 03:11:51 -0400 (EDT)
  • References: <9pme0e$64g$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Timie
Two ideas for the first part:

Clear[a,c]:

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

Definition[a,c]

a = b

c = d

Clear[a,c]
ToSet[(Rule|RuleDelayed)[x_,y_]]:= x=y;
ToSet[z_]:=z;

ToSet//@{a->b,{c:>d}};


Definition[a,c]

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.

Clear[a,b]

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
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565

"Timie Milie" <milstead at cs.bris.ac.uk> wrote in message
news:9pme0e$64g$1 at smc.vnet.net...
> I use solve to solve some simultaneous equations and get results of the
form
> 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 cs.bris.ac.uk
>
>
>




  • 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