I have run into trouble with a Plot3D problem. My code is following:
eqn = D[u[x, t], t] == D[D[u[x, t], x], x];
ic = {u[x, 0] == 1, u[0, t] == 0, Derivative[1, 0][u][10, t] == 0};
dsol = DSolve[{eqn, ic}, u, {x, t}];
Plot3D[u[x, t], {x, 0, 100}, {t, 0, 100}, ColorFunction -> "RustTones", Mesh -> All];
When I click "shift+return", it just results in an empty graph. I don't know what is wrong with my code. Could anyone help me?
Attachments: