Re: How to solve this type of equation in Mathematica?
- To: mathgroup at smc.vnet.net
- Subject: [mg59894] Re: How to solve this type of equation in Mathematica?
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Thu, 25 Aug 2005 06:33:29 -0400 (EDT)
- Organization: Uni Leipzig
- References: <dehk3h$c9t$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi, eqn = Equal[Integrate[Times[Plus[P, x], f[x]], List[x, P, DirectedInfinity[1]]], 1] D[#, P, P] & /@ eqn DSolve[%,f,P] will show you that there exist no convergent solution. Regards Jens <poster at giganews.com> schrieb im Newsbeitrag news:dehk3h$c9t$1 at smc.vnet.net... | | Hi, I would like to be able to solve the equation: | | Equal[Integrate[Times[Plus[P, x], f[x]], List[x, P, | DirectedInfinity[1]]], 1] | | in Mathematica. Is there any way to do this? | | That is I would like to solve for f(x) when we know that | integrating (x + P) f(x) from P to Infinity over x equals 1. |