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
- References:
- Inverse Interpolation
- From: WetBlanket <wyvern864@gmail.com>
- Inverse Interpolation