Guest User

Untitled

a guest
Nov 18th, 2017
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.56 KB | None | 0 0
  1. h = ImplicitRegion[1 <= x^2 + y^2 <= 10, {x, y}];
  2. sol = NDSolveValue[{[Rho]^2 D[
  3. u[[Rho], [Phi]], [Rho], [Rho]] + [Rho] D[
  4. u[[Rho], [Phi]], [Rho]] +
  5. D[u[[Rho], [Phi]], [Phi], [Phi]] == 0,
  6. DirichletCondition[
  7. u[[Rho], [Phi]] == 100., [Rho] == 1 &&
  8. 0 <= [Phi] <= 2 [Pi]],
  9. DirichletCondition[
  10. u[[Rho], [Phi]] == 0., [Rho] == 8 && 0 <= y <= 2 [Pi]]},
  11. u[[Rho], [Phi]], {[Rho], [Phi]} [Element] h];
  12.  
  13. DensityPlot[sol[x, y], {x, 0, 100}, {y, 0, 100}, Mesh -> None,
  14. ColorFunction -> "Rainbow", PlotLegends -> Automatic]
Add Comment
Please, Sign In to add comment