MathGroup Archive 2011

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

Search the Archive

Re: Inverse Interpolation

  • To: mathgroup at smc.vnet.net
  • Subject: [mg120961] Re: Inverse Interpolation
  • From: DrMajorBob <btreat1 at austin.rr.com>
  • Date: Fri, 19 Aug 2011 06:33:39 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201108180722.DAA11854@smc.vnet.net>
  • Reply-to: drmajorbob at yahoo.com

p = Plot[Cos@x, {x, -1, 1}, PlotPoints -> 1000, PlotRange -> All,
    AxesLabel -> {"x", "F"}];
pts = Reverse /@ First@Cases[p, Line[x_] :> x, Infinity];
ListPlot@pts

or

Clear[f]
f[x_] := Sow@{Cos@x, x}
pts = First@
    Last@Reap@
      Plot[f@x, {x, -1, 1}, PlotPoints -> 1000, PlotRange -> All,
       AxesLabel -> {"x", "F"}];
ListPlot@pts

Bobby

On Thu, 18 Aug 2011 02:22:52 -0500, 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.
>
>


-- 
DrMajorBob at yahoo.com




  • Prev by Date: A two part notation question
  • Next by Date: Memory when reding in data
  • Previous by thread: Re: Inverse Interpolation
  • Next by thread: Re: Inverse Interpolation