Hi,

i tried to solve the following viscous diffusion equation using mathematica , but it did not come up with a solution:

the equation is D(u(y,t))/Dt=v D^2(u(y,t))/Dy^2

conditions:

t=0 u(y,0)=0

y=0 u(0,t)=c

y=inf u(inf,t)=0

The mathematica statement i used is :

DSolve[{D[u[y, t], {t, 1}] - v D[u[y, t], {y, 2}] == 0, u[0, t] == 0,

u[y, 0] == c, u[y, \[Infinity]] == 0}, u[y, t], {y, t}]

Any help with getting the right solution using mathematica?

Thanks

mopen