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

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