Guest User

Untitled

a guest
Jan 24th, 2019
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.15 KB | None | 0 0
  1. clamp[y_] := Min[1, Max[0, y]];
  2. [Psi][x_] := HeavisideTheta[x] x^2/2;
  3. ff[x_, y_] := With[{v = clamp[y]}, [Psi][x + v] - 2 [Psi][x] + [Psi][x - v]];
Add Comment
Please, Sign In to add comment