Re: FunctionInterpolation and NIntegrate

• To: mathgroup at smc.vnet.net
• Subject: [mg120831] Re: FunctionInterpolation and NIntegrate
• From: DrMajorBob <btreat1 at austin.rr.com>
• Date: Fri, 12 Aug 2011 05:04:39 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201108111155.HAA09067@smc.vnet.net>

```This eliminates the error message:

Clear[f]
f[r_?NumericQ] := NIntegrate[r + s, {s, 0, 1}]
g = FunctionInterpolation[f[r], {r, 0, 1}]

NDSolve gives the same interpolation in one go:

Clear[h]
h = h /. First@NDSolve[{h'[r] == 1, h[0] == 1/2}, h, {r, 0, 1}];
Table[Plot[fun@r, {r, 0, 1}], {fun, {f, g, h}}]

Bobby

On Thu, 11 Aug 2011 06:55:57 -0500, gac <g.crlsn at gmail.com> wrote:

> f[r_] := NIntegrate[r + s , {s, 0, 1}]
> g = FunctionInterpolation[f[r], {r, 0, 1}]
>
> Can anyone explain why this works, yet I get the msg:
>
> NIntegrate::inumr: "The integrand r+s has evaluated to non-numerical
> values for all sampling points in the region with boundaries {{0,1}}."
>
> Can the statements be reformed to avoid the msg?
>
> Thanks.
>
> Glenn
>

--
DrMajorBob at yahoo.com

```

• Prev by Date: Re: FunctionInterpolation and NIntegrate
• Next by Date: Re: FunctionInterpolation and NIntegrate
• Previous by thread: Re: FunctionInterpolation and NIntegrate
• Next by thread: Re: FunctionInterpolation and NIntegrate