Re: Forcing functions

• To: mathgroup at smc.vnet.net
• Subject: [mg51041] Re: [mg51006] Forcing functions
• From: DrBob <drbob at bigfoot.com>
• Date: Sat, 2 Oct 2004 03:18:35 -0400 (EDT)
• References: <200302110942.EAA26084@smc.vnet.net> <b2d1cl\$eaa\$1@smc.vnet.net> <200410010848.EAA11554@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Here are three methods:

raw = Integrate[x*Sqrt[x^2 + 2x + 4], x];
FullSimplify[raw, ComplexityFunction -> (Count[{#1}, _ArcSinh, Infinity] &)]
FullSimplify[raw, ComplexityFunction -> (LeafCount[#] + 20Count[{#1}, \
_ArcSinh, Infinity] &)]
TrigToExp@raw

(1/12)*(10*Sqrt[4 + 2*x + x^2] +
2*x*Sqrt[4 + 2*x + x^2] +
4*x^2*Sqrt[4 + 2*x + x^2] +
9*Log[3] -
18*Log[1 + x + Sqrt[
4 + 2*x + x^2]])
(1/6)*((5 + x + 2*x^2)*
Sqrt[4 + x*(2 + x)] +
(9/2)*(Log[3] -
2*Log[1 + x + Sqrt[
4 + x*(2 + x)]]))
(1/6)*(Sqrt[4 + 2*x + x^2]*
(5 + x + 2*x^2) -
9*Log[(1 + x)/Sqrt[3] +
Sqrt[1 + (1/3)*(1 + x)^
2]])

I think you'll prefer TrigToExp.

Bobby

On Fri, 1 Oct 2004 04:48:48 -0400 (EDT), Barry Tesman <tesman at dickinson.edu> wrote:

> Can you "force" Mathematica to not use certain functions?  E.g., I
> want to give my students some problems to antidifferentiate.  One
> such problem is:
>
> Integrate[ x * Sqrt[x^2 + 2x +4], x]
>
> The answer uses arcsinh.  Can one force Mathematica to use natural
>
> Thanks,
> Barry
>
>
>
>

--
DrBob at bigfoot.com
www.eclecticdreams.net

```

• Prev by Date: Re: ListPlot3D with holes
• Next by Date: Re: Re: Colors in ScatterPlot3D?
• Previous by thread: Forcing functions
• Next by thread: Re: Forcing functions