       Re: Inverse Interpolation

• To: mathgroup at smc.vnet.net
• Subject: [mg120972] Re: Inverse Interpolation
• From: "Oleksandr Rasputinov" <oleksandr_rasputinov at hmamail.com>
• Date: Fri, 19 Aug 2011 06:35:43 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <j2iens\$bkv\$1@smc.vnet.net>

```On Thu, 18 Aug 2011 08:24:44 +0100, WetBlanket <wyvern864 at gmail.com> wrote:

> Previously, the following code could be used to use the Plot functions
> algorithm to select point at which to evaluate a function to assist in
> obtaining a good numerical interpolation.  In Version 8 this code does
> not seem to work ( at least for me).  Can someone assist me by showing
> how this task is best accomplished in Version 8.  I use the Cos
> function in this example for simplicity.  Clearly, numerical
> interpolation is not needed to obtain an inverse for the Cos.
>
> list={};
> F = Cos[x];
>
> Plot[ (  ss=F;  AppendTo[list, {ss,x}]; ss), {x,-1,1}, PlotPoints-
>> 1000,
> PlotRange->All, AxesLabel->{"x","F"}]
>
> Thanks for the help.
>

list = {};
F = Cos[x];

Plot[
F, {x, -1, 1},
PlotPoints -> 1000, PlotRange -> All, AxesLabel -> {"x", "F"},
EvaluationMonitor :> AppendTo[list, {F, x}]
]

```

• Prev by Date: Re: Inverse Interpolation
• Next by Date: Re: Compression of Plot[] to reduce notebook size
• Previous by thread: Re: Inverse Interpolation
• Next by thread: Re: Inverse Interpolation