solve partial differential equations with mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg106902] solve partial differential equations with mathematica
- From: Dino <dinodeblasio at gmail.com>
- Date: Tue, 26 Jan 2010 06:37:21 -0500 (EST)
Hello,
I'd like to solve the following partial differential equation with
Mathematica,
eqn = D[u[r, t], t] == d D[u[r, t], r, r] - k u[r, t]/r
by doing:
DSolve[{eqn, u[r, 0] == 0, u[0.000000001, t] == ui, u[\[Infinity], t]
== 0}, u[r, t], {r, t}]
d,k and ui are constants.
In DSolve i include also the boundary conditions but I am still not
able to solve it.
Do you have any suggestions for solving the problem?
Thanks very much for your help.
Dino.