MathGroup Archive 2001

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

Search the Archive

Re: Using results of Solve[simultaneous equations]


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