       Re: finding inverses of functions

• To: mathgroup at smc.vnet.net
• Subject: [mg126442] Re: finding inverses of functions
• From: Andrzej Kozlowski <akozlowski at gmail.com>
• Date: Thu, 10 May 2012 05:01:13 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201205090750.DAA05576@smc.vnet.net>

```On 9 May 2012, at 09:50, John Accardi wrote:

> Hello,  I am trying to get Mathematica to find the inverse of:
>
> y = 3x^3 + 2e^(2x)  (which I know is invertible)
>
> InverseFunction only seems to give inverses of built-ins, like Sine.
>
> I tried:
>
> Solve[ y == 3x^3 + 2e^(2x), x ] but get a message that Solve does
not have methods suitable.  (Solve works for simpler functions,
however.)
>
> Any ideas?  Thanks.

First, you have e instead of E in your definition which makes nonsense
of the entire problem as far as Mathematica is concerned.

Secondly, what do you mean by "finding the inverse"? Your function is
clearly invertible (only as a function on the real line, of course) but
there is no way to express this inverse in terms of known functions.
However, you can define the inverse yourself:

ff[y_] :=
Block[{x}, x /. NSolve[y == 3 x^3 + 2 E^(2 x), x, Reals][]]

To see that this works, define:

gg[x_] := 3 x^3 + 2 E^(2 x)

and look at the graphs:

DiscretePlot[ff[gg[x]], {x, -1, 1, 1/10}]

DiscretePlot[gg[ff[x]], {x, -1, 1, 1/10}]

Andrzej Kozlowski

```

• Prev by Date: Re: finding inverses of functions
• Next by Date: Re: finding inverses of functions
• Previous by thread: Re: finding inverses of functions
• Next by thread: Re: finding inverses of functions