Wolfram Language

Ecuaciones diferenciales parciales

Solución de una ecuación de Poisson en un cuboide con condiciones de límite periódicas

Resuelva una ecuación de Poisson en un cuboide con condiciones de límite periódicas donde la solución desde el lado derecho de la región es proyectada al lado izquierdo.

In[1]:=
Click for copyable input
\[CapitalOmega] = Cuboid[{0, 0, 0}, {5, 1, 1}]; ufun = NDSolveValue[{-Laplacian[u[x, y, z], {x, y, z}] == 1, DirichletCondition[u[x, y, z] == 0, 0 < x < 5], PeriodicBoundaryCondition[u[x, y, z], x == 0, TranslationTransform[{5, 0, 0}]]}, u, {x, y, z} \[Element] \[CapitalOmega]]
Out[1]=

Visualice la solución.

In[2]:=
Click for copyable input
SliceContourPlot3D[ ufun[x, y, z], {{"XStackedPlanes", {0, 1.5, 3.5, 5}}, {"YStackedPlanes", 1}, {"ZStackedPlanes", 1}}, {x, y, z} \[Element] \[CapitalOmega], ColorFunction -> "TemperatureMap", Boxed -> False, Axes -> False]
Out[2]=

Ejemplos relacionados

de en fr ja ko pt-br ru zh