Mathematica 9 is now available
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: Re: Simplify stuck in simple expression

  • To: mathgroup at smc.vnet.net
  • Subject: [mg50204] Re: [mg50178] Re: Simplify stuck in simple expression
  • From: Andrzej Kozlowski <akoz at mimuw.edu.pl>
  • Date: Fri, 20 Aug 2004 04:57:54 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

On Thursday, August 19, 2004, at 11:28 AM, Carlos Felippa wrote:

> 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
>
>
>
But   it is not smaller than the answer returned by the  method I 
proposed, which of course was the point I was making:

In[1]:=
LeafCount[(1-Sqrt[18*a*b*(a*b+2)+19])/a]

Out[1]=
23


Andrzej


  • Prev by Date: Beware of NSolve - nastier example
  • Next by Date: 3D Screensavers for Mathematica users
  • Previous by thread: Re: Simplify stuck in simple expression
  • Next by thread: My regrets ...