Wolfram 언어

편미분 방정식

직육면체의 푸아송 방정식을 주기 경계 조건으로 해결

영역의 오른쪽 측면에서 해가 왼쪽 측면에 투영되는 주기 경계 조건으로 직육면체의 푸아송 방정식을 풉니다.

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]=

결과를 시각화합니다.

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]=

관련 예제

de en es fr ja pt-br ru zh