Re: If a*b=c/d, then a=c/bd, How do i do this in Mathematica?
- To: mathgroup at smc.vnet.net
- Subject: [mg79774] Re: If a*b=c/d, then a=c/bd, How do i do this in Mathematica?
- From: dimitris <dimmechan at yahoo.com>
- Date: Sat, 4 Aug 2007 05:51:11 -0400 (EDT)
- References: <f8uvi0$bk9$1@smc.vnet.net>
On 3 , 13:20, GR <gobithaa... at gmail.com> wrote:
> Dear Experts,
>
> I tried reading the help doc in M6, but unable to find the right
> command. Can M6 simplify it?
>
> Cheers,
> GR
First note that
In[15]:=
a*b=c/d
>From In[15]:=
\!\(\*
RowBox[{\(Set::"write"\), \(\(:\)\(\ \)\), "\<\"Tag \\!\\(Times\\)
in \\!\\(
a\\\\ b\\) is
Protected. \\!\\(\\*ButtonBox[\\\"More...\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::write\\\"]\\)\"\>"}]\)
Out[15]=
c/d
Not sure exactly what do you want. Anyway...
In[28]:=
HoldForm[a*b = c/d]
(% /. HoldForm[x_ = y_] :> Solve[x == y, x[[1]]])[[1,1]] /. (x_ -> y_)
-> HoldForm[x = y]
Out[28]=
HoldForm[a*b = c/d]
Out[29]=
HoldForm[a = c/(b*d)]
Regards
Dimitris