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