RE: Fast Intergration of a product of 2 interpolating functions
- To: mathgroup at smc.vnet.net
- Subject: [mg26568] RE: Fast Intergration of a product of 2 interpolating functions
- From: "Ersek, Ted R" <ErsekTR at navair.navy.mil>
- Date: Fri, 5 Jan 2001 22:23:03 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Sebastien de Menten de Horne wanted to efficiently Integrate the product of
two IntegratingFunctions. I think the following will work.
f=FunctionInterpolation[ Cos[x + y] + y^2, {x, -1., 1}, {y, -1., 1}];
g=FunctionInterpolation[ Exp[y] + z/(y + 2), {y, -1., 1}, {z, -1., 1}];
h=FunctionInterpolation[ f[x,y] g[y,z], {x,-1.,1.}, {y,-1.,1.},
{z,-1.,1.}];
int[x_,z_]:=Integrate[ h[x,y,z], {y, -1, 1} ]
The following standard package might also be helpful.
NumericalMath`NIntegrateInterpolatingFunct`
--------------------
Regards,
Ted Ersek
Download Mathematica tips, tricks from
http://www.verbeia.com/mathematica/tips/Tricks.html