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

Re: Replacement

• To: mathgroup at smc.vnet.net
• Subject: [mg4471] Re: Replacement
• From: Stephen P Luttrell <luttrell at signal.dra.hmg.gb>
• Date: Mon, 29 Jul 1996 02:37:24 -0400
• Organization: Defence Research Agency, Malvern
• Sender: owner-wri-mathgroup at wolfram.com

Sergej Gerassimov wrote:
> 
> Hi,
> 
> I have something like
> 
> x/Sqrt[a^2+b^2]+Sqrt[a^2+b^2]/y
> 
>...DELETIA...
>
> How to replace Sqrt[a^2+b^2] by r everywhere in the expression?

Try this, for example:

Unprotect[Sqrt];
Sqrt[a^2+b^2] := r;
Protect[Sqrt];
x/Sqrt[a^2+b^2]+Sqrt[a^2+b^2]/y

-- 
Dr Stephen P Luttrell                  luttrell at signal.dra.hmg.gb
Adaptive Systems Theory                01684-894046 (phone)
Room EX21, Defence Research Agency     01684-894384 (fax)           
Malvern, Worcs, WR14 3PS, U.K.         http://www.dra.hmg.gb/cis5pip/Welcome.html

==== [MESSAGE SEPARATOR] ====