Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- reg = Line[{{0}, {1}}];
- shape = D[0.125 Erf[(x - 0.5)/0.125], x];
- op = D[u[t, x], {x, 2}] - D[u[t, x], {t, 2}];
- ics = {u[0, x] == shape, Derivative[1, 0][u][0, x] == 0};
- sol = NDSolveValue[{op == 0, ics}, u, {t, 0, 2}, {x} ∈ reg,
- StepMonitor :> Print["xis,uis=" <> ToString["???"]]]
Add Comment
Please, Sign In to add comment