Skip to main content
deleted 29 characters in body
Source Link
LCarvalho
  • 9.3k
  • 5
  • 40
  • 97
DirCond = DirichletCondition[\[Phi][rDirichletCondition[ϕ[r, z] == 0., r == rmax];
NeumCond = NeumannValue[0., r == 0] + NeumannValue[0., r == rmax] + NeumannValue[0., z == zmin];
solution = NDSolveValue[{D[r*D[\[Phi][rD[r*D[ϕ[r, z], r], r]/r + D[\[Phi][rD[ϕ[r, z], {z, 2}] == NeumCond, DirCond}, \[Phi]ϕ, {r, z} \[Element] mesh, "ExtrapolationHandler" -> {Automatic, "WarningMessage" -> False}]
DirCond = DirichletCondition[\[Phi][r, z] == 0., r == rmax];
NeumCond = NeumannValue[0., r == 0] + NeumannValue[0., r == rmax] + NeumannValue[0., z == zmin];
solution = NDSolveValue[{D[r*D[\[Phi][r, z], r], r]/r + D[\[Phi][r, z], {z, 2}] == NeumCond, DirCond}, \[Phi], {r, z} \[Element] mesh, "ExtrapolationHandler" -> {Automatic, "WarningMessage" -> False}]
DirCond = DirichletCondition[ϕ[r, z] == 0., r == rmax];
NeumCond = NeumannValue[0., r == 0] + NeumannValue[0., r == rmax] + NeumannValue[0., z == zmin];
solution = NDSolveValue[{D[r*D[ϕ[r, z], r], r]/r + D[ϕ[r, z], {z, 2}] == NeumCond, DirCond}, ϕ, {r, z}  mesh, "ExtrapolationHandler" -> {Automatic, "WarningMessage" -> False}]
Tweeted twitter.com/StackMma/status/791297104807329792
edited title
Link

Position dependent Neumann condition overon boundary mesh

added 83 characters in body
Source Link

With the following output for t=0 (top), t=0.4 (topmiddle) and t=0.7 (bottom):

Mesh region for t=0 enter image description hereMesh region for t=0.4 Mesh region for t=0.7

With the following output for t=0.4 (top) and t=0.7 (bottom):

enter image description here Mesh region for t=0.7

With the following output for t=0 (top), t=0.4 (middle) and t=0.7 (bottom):

Mesh region for t=0 Mesh region for t=0.4 Mesh region for t=0.7

added 57 characters in body
Source Link
Loading
added 20 characters in body
Source Link
Loading
Source Link
Loading