Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- f[x_?VectorQ] := n^2*ListConvolve[{1, -2, 1}, x, {2, 2}, {1, 0}];
- NDSolve[{X'[t] == f[X[t]], X[0] == (Range[n - 1]/n)^10}, X, {t, 0, 0.25}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
