Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- NDSolve[
- D[f[x, y], x, x]^2 + D[g[x, y], x, x]^2 + D[f[x, y], x, y]^2 == 0 &&
- D[f[x, y], y, y]^2 + D[g[x, y], y, y]^2 + D[f[x, y], x, y]^2 == 0 &&
- f[x, 0] == 0 && g[x, 0] == 0 && 1 == (D[f[x, q], q] /. q -> 0) &&
- 1 == (D[g[x, q], q] /. q -> 0) && 1 == (D[f[x, 0], x]) && 1 == (D[g[x, 0], x])
- ,{f, g}, {x, 0, 1}, {y, 0, 1}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement