MathGroup Archive 2005

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

Search the Archive

Re: NIntegrate and NDSolve

  • To: mathgroup at smc.vnet.net
  • Subject: [mg56527] Re: NIntegrate and NDSolve
  • From: Peter Pein <petsie at arcor.de>
  • Date: Thu, 28 Apr 2005 02:40:15 -0400 (EDT)
  • References: <d4mrmq$1st$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Matt Flax wrote:
> Hello,
> 
> I have an equation which depends on the integral and differential 
> of an unknown function f[x,y,z].
> 
> I would like to solve this equation analytically, however am happy with a 
> numerical solution if that is necessary.
> 
> The equation contains the unknown (f[x,y,z]) which I would like to solve 
> for and has integrals of differentials like this :
> 
> Integral [ d f[x,y,z] / dz  , dx] 
> Integral [ d f[x,y,z] / dx  , dz] 
> 
> 
> It is set up like this :
> 
> (Integral [ d f[x,y,z] / dz  , dx] )(knownTrigPoly1[y]) +
> (Integral [ d f[x,y,z] / dx  , dz] )(knownTrigPoly2[y]) == 0
> 
> Any I would like to solve for f[x,y,z] (numerically if necessary).
> 
> Can anyone let me know how to use DSolve or another function to solve 
> this equation for f[x,y,z] ?
> 
> thanks
> Matt
Hi Matt,

I would try:

eq = ( Integrate[D[f[x, y, z], z], x]*p1[y] +
       Integrate[D[f[x, y, z], x], z]*p2[y] ) == 0;
DSolve[D[eq, x, z], f, {x, y, z}]
Out[2]=
{{f -> Function[{x, y, z},
   C[1][y][z + (x*Sqrt[(-p1[y])*p2[y]])/p2[y]] +
   C[2][y][z - (x*Sqrt[(-p1[y])*p2[y]])/p2[y]] ]}}

Simplify[eq/.%[[1]]]
Out[3]=
True
-- 
Peter Pein
Berlin


  • Prev by Date: Re: Floor[] Not An Integer?
  • Next by Date: Re: Using BarChart in a Widget
  • Previous by thread: Re: Re: Re: NIntegrate and NDSolve
  • Next by thread: Converting a mapping into a well-defined function