       Re: Related quastions. Question 2

• To: mathgroup at smc.vnet.net
• Subject: [mg57524] Re: [mg57499] Related quastions. Question 2
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Tue, 31 May 2005 04:59:27 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Using a name does not change the form of the expression

expr=a x+b==c
expr1=#-b&/@expr
expr2=#/a&/@expr1

b + a*x == c

a*x == c - b

x == (c - b)/a

Bob Hanlon

>
> From: kazimir04 at yahoo.co.uk (Kazimir)
To: mathgroup at smc.vnet.net
> Date: 2005/05/29 Sun PM 09:00:18 EDT
> Subject: [mg57524] [mg57499] Related quastions. Question 2
>
> Dear Bob,
>
> you gave the example
>
> Print["Equation to solve for x"]
> a x + b == c
> Print["Subtract b from each side"]
> # - b & /@ %%
> Print["Divide each side by a"]
> #/a & /@ %%
>
> It works but i do not like very much expressions with  %%, as I should
> not insert more lines before it or I have to modify this symbol. I
>
> expr= (a x + b == c)
>
> and then make a transform like expr1 =  expr - b. It clearly does not
> work. Could you advise me a mathematical operartion over expression
> which would return a x == c - b .
>
> The best thing I found was
> expr = (a x + b == c)
> Distribute[#1 - b &@expr, Equal]
> however, it does not work in all cases that I need.
>