Guest User

Untitled

a guest
Nov 24th, 2017
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.17 KB | None | 0 0
  1. ClearAll[u,u0,t,z,L0];
  2. pde=D[u[z,t],t]== D[u[z,t],{z,2}];
  3. bc={u[0,t]==0,u[L0,t]==0}
  4. ic=u[z,0]==u0
  5. NumericQ[L0]=True;
  6. sol=DSolve[{pde,bc,ic},u[z,t],{z,t}]
  7.  
  8. % /. L0 -> 2
Add Comment
Please, Sign In to add comment