Advertisement
Guest User

Untitled

a guest
Mar 27th, 2015
196
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.40 KB | None | 0 0
  1. Manipulate[
  2. t1 = Triangle[{{0, 0}, {x, y}, {1, 0}}];
  3. t2 = Triangle[{{0, 1}, {x, y}, {1, 1}}];
  4. t3 = Triangle[{{0, 0}, {x, y}, {0, 1}}];
  5. t4 = Triangle[{{1, 0}, {x, y}, {1, 1}}];
  6. Graphics[{Blue, t1, Red, t2, Green, t3, Yellow, t4},
  7. ImageSize -> 300],
  8. {x, 0, 1}, {y, 0, 1}]
  9.  
  10. {DirichletCondition[{f[x, y] == 0.}, y == 0],
  11. DirichletCondition[{f[x, y] == 1.}, y == 1]}
  12.  
  13. NeumannValue[0, x =0||x==1]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement