Re: Applying lists to FindRoot of a NIntegrate function
- To: mathgroup at smc.vnet.net
- Subject: [mg101313] Re: [mg101284] Applying lists to FindRoot of a NIntegrate function
- From: DrMajorBob <btreat1 at austin.rr.com>
- Date: Wed, 1 Jul 2009 06:33:10 -0400 (EDT)
- References: <200906301031.GAA10499@smc.vnet.net>
- Reply-to: drmajorbob at bigfoot.com
See the list of data points?
I don't.
Bobby
On Tue, 30 Jun 2009 05:31:56 -0500, Christian Schneider <kofferpc at gmx.net>
wrote:
> Dear members of the mathgroup email group,
>
> I have serious difficulties in solving the following problem in
> Mathematica
> (v.6) and would very appreciate it if anyone could give me a helping
> hand with
> that.
>
> To start with, I have a list of data points {{x[[i]],y[[i]]}}.
>
> Also, I have the function W. W consists of two single functions f[r] and
> g[r,
> x, a]:
>
> f[r_] = r^2+r+2/(r^2+r)
>
> g[r_, x_, a_] = Exp[a*Exp[-x*r]]
>
> W := NIntegrate[f[r]*g[r, x, a], {r, 0.1, 100}]
>
> What I have given for every pair of data is W[x[[i]]] == y[[i]] (see the
> list
> of data points). What I do not have is the corresponding value of
> a[[i]].
>
> So, I want to use FindRoot to give me the value of a[[i]] for each of my
> data
> pairs {x[[i]],y[[i]]}.
>
>
> Although I have found many examples quite similar to this problem, I
> have been
> unable to adjust those to work in my case.
>
> I would be very grateful if somebody could provide me with the proper
> syntax
> for this.
>
> Thanks very much in advance,
>
>
> Chris
>
>
>
>
>
--
DrMajorBob at bigfoot.com