Re: Manupulation of equations in Mathematica

*To*: mathgroup at smc.vnet.net*Subject*: [mg75848] Re: [mg75823] Manupulation of equations in Mathematica*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Sat, 12 May 2007 02:57:56 -0400 (EDT)*Reply-to*: hanlonr at cox.net

displayRule[x_Rule]:= ToString[x[[1]]] <> " = " <> ToString[TraditionalForm[x[[2]]]]; eqn=2 + R Cc + R Bc == Ac R ; Using Solve soln1=Solve[eqn,R][[1]]; eqn/.soln1//Simplify displayRule[soln1[[1]]] Using Reduce soln2=ToRules[Last[Reduce[eqn,R]]]; eqn/.soln2//Simplify displayRule[soln2[[1]]] Bob Hanlon ---- G de Graaf <ger__removethis__ at ipact.nl> wrote: > Hello, > > I have a question about the presentation > of equations: > > As the result of a large set of equations > I get a complicated eqn. > > Let's assume a simple one: > > 2 + R Cc + R Bc == Ac R > > Now I want to tell Mathematica to write > this equation in a readable form for me: > > R = .......... > > Any idea how to do this ?? > > Thanx, > > Ger de Graaf > Delft University of Technology >