
solve partial differential equations with mathematica
Posted:
Jan 26, 2010 6:27 AM


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.

