MathGroup Archive 2001

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

Search the Archive

Re: Solve InterpolatingFunction problem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg31908] Re: Solve InterpolatingFunction problem
  • From: "Jasem Mutlaq" <mutlaqja at ku.edu>
  • Date: Tue, 11 Dec 2001 01:33:44 -0500 (EST)
  • References: <9uss9d$cl6$1@smc.vnet.net> <9uvh0a$i18$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Thanks Brian! I already used FindRoot, and since there exists two roots that
I wanted to obtain, I just plotted the curve and made the starting guess
somewhere near the value of interest and was able to get pretty precise
solutions!

Regards,

Jasem Mutlaq.

"Brian Higgins" <bghiggins at ucdavis.edu> wrote in message
news:9uvh0a$i18$1 at smc.vnet.net...
> Jasem"  use FindRoot instead of Solve .  For example
>
> mySin = Interpolation[Table[{x, Sin[x]}, {x, 0, 5, .2}]];
>
> In[4]:=FindRoot[mySin[x] == .5, {x, 1}]
>
> Out[4]={x -> 0.523618}
>
> Cheers,
>
> Brian
>
> "Jasem Mutlaq" <mutlaqja at ku.edu> wrote in message
news:<9uss9d$cl6$1 at smc.vnet.net>...
> > Hello. I obtained an interpolated function from a set of data
representing a
> > velocity curve (increasing & decreasing). I used the following
> >
> > vr =Interpolation[data];
> > Solve[vr[x]==0.6,x]
> >
> > InverseFunction::ifun: Inverse functions are being used. Values may be
lost
> > for multivalued inverses.
> > Out[221]={{x->1.
> > InverseFunction[InterpolatingFunction[{{0.,0.95}},<>],1,1][0.6]}}
> > I'm expecting something like x = 3 or x = 9 (two solutions).
> >
> > Any suggestions are highly appreciated!
> >
> > Jasem Mutlaq.
>






  • Prev by Date: Interactive simplifying
  • Next by Date: Re: coloring everything outside a circle
  • Previous by thread: Re: Solve InterpolatingFunction problem
  • Next by thread: comma delimited output file -- modify existing code?