# \[?\] Plot3D the following solution obtained using DSolve?

**URL:** <https://community.wolfram.com/t/plot3d-the-following-solution-obtained-using-dsolve/11600>\
**Category:** Questions\
**Tags:** equation-solving, graphics-and-visualization, symbolic-computations\
**Created:** [November 28, 2017, 3:51pm UTC](https://community.wolfram.com/t/plot3d-the-following-solution-obtained-using-dsolve/11600 "2017-11-28T15:51:51Z")\
**Posts on this page:** 2\
**Page:** 1

<div class="post-metadata">

**Author:** ![zz133](https://avatars.discourse-cdn.com/v4/letter/z/db5fbb/32.png) [@zz133](https://community.wolfram.com/u/zz133)\
**Post date:** [November 28, 2017, 3:51pm UTC](https://community.wolfram.com/t/plot3d-the-following-solution-obtained-using-dsolve/11600/1 "2017-11-28T15:51:51Z")

</div>

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?

---

<div class="post-metadata">

**Author:** ![kmartin](https://yyz1.discourse-cdn.com/wolfram/user_avatar/community.wolfram.com/kmartin/32/38196_2.png) [@kmartin](https://community.wolfram.com/u/kmartin)\
**Post date:** [November 28, 2017, 8:15pm UTC](https://community.wolfram.com/t/plot3d-the-following-solution-obtained-using-dsolve/11600/2 "2017-11-28T20:15:39Z")

</div>

The example [here](http://reference.wolfram.com/language/ref/DSolve.html#499369136) might get you started on what’s missing from what you had. Below I have added what is in that example to your code, which then gives a nice plot. Hopefully it is what you’re after.

```eqn
ic = {u[x, 0] == 1, u[0, t] == 0, Derivative[1, 0][u][10, t] == 0};
dsol = DSolve[{eqn, ic}, u[x, t], {x, t}];

asol = u[x, t] /. dsol[[1]] /. {\[Infinity] -> 3} // Activate;
Plot3D[asol, {x, 0, 100}, {t, 0, 100}, ColorFunction -> "RustTones", 
 Mesh -> All]

```