Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

Re: Simplify stuck in simple expression

  • To: mathgroup at smc.vnet.net
  • Subject: [mg50178] Re: Simplify stuck in simple expression
  • From: carlos at colorado.edu (Carlos Felippa)
  • Date: Thu, 19 Aug 2004 06:28:08 -0400 (EDT)
  • References: <cfsi9a$a78$1@smc.vnet.net> <200408180520.BAA06011@smc.vnet.net> <cfv4hu$8jd$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Andrzej Kozlowski <akoz at mimuw.edu.pl> wrote in message news:<cfv4hu$8jd$1 at smc.vnet.net>...
> You can use:
> 
> 
> FullSimplify[Factor //@ ((2 - Sqrt[72*(1 + a*b)^2 + 4])/
>      (2*a))]
> 
> 
> (1 - Sqrt[18*a*b*(a*b + 2) + 19])/a
> 
> 
> However, as this has the same LeafCount as the expression you desire 
> you, would need to find a suitable ComplexityFunction to obtain the 
> answer you want.
> 
>
My objective has a smaller LeafCount:

 Print[LeafCount[(2 - Sqrt[72*(1 + a*b)^2 + 4])/ (2*a)]];

 26

 Print[LeafCount[(1 - Sqrt[18*(1 + a*b)^2 + 1])/ a]]

 23


  • Prev by Date: Re: Plotting a contour plot with cylindrical co-ordinates
  • Next by Date: Re: Beware of NSolve
  • Previous by thread: Re: Re: Simplify stuck in simple expression
  • Next by thread: Re: Re: Simplify stuck in simple expression