Re: PowerExpand, Apart, Simplify

*To*: mathgroup at smc.vnet.net*Subject*: [mg5666] Re: [mg5654] PowerExpand, Apart, Simplify*From*: Allan Hayes <hay at haystack.demon.co.uk>*Date*: Sun, 5 Jan 1997 16:00:40 -0500*Sender*: owner-wri-mathgroup at wolfram.com

"Lidar (Hamburger) dani" <dani at fh.huji.ac.il> [mg5654] PowerExpand, Apart, Simplify writes > ...I have not been able to find any way to make Mathematica >tell me that the following expression equals 1 (using the built-in >functions,that is): > >Sqrt[3 x^(4j)+x^(12j)]/(x^(2j)Sqrt[3 + x^(8j)]) >(x,j real and positive) Dani: Factor//@Sqrt[3 x^(4j)+x^(12j)]/(x^(2j)Sqrt[3 + x^(8j)]) 4 j 8 j Sqrt[x (3 + x )] --------------------- 2 j 8 j x Sqrt[3 + x ] PowerExpand[%] 1 ?//@ MapAll[f, expr] or f //@ expr applies f to every subexpression in expr. Allan Hayes hay at haystack.demon.co.uk http://www.haystack.demon.co.uk