Applying lists to FindRoot of a NIntegrate function

• To: mathgroup at smc.vnet.net
• Subject: [mg101284] Applying lists to FindRoot of a NIntegrate function
• From: Christian Schneider <kofferpc at gmx.net>
• Date: Tue, 30 Jun 2009 06:31:56 -0400 (EDT)

```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.

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.

Chris

```

• Prev by Date: Re: Is Orange translucent?
• Next by Date: Maximize returning approximate values
• Previous by thread: Distributing square-root (1/2) power through exponential equation
• Next by thread: Maximize returning approximate values