Wolfram Language™

Lösen Sie ein Dirichlet-Problem für die Laplace-Gleichung

Spezifizieren Sie die Laplace-Gleichung in 2D.

In[1]:=

leqn = Laplacian[u[x, y], {x, y}] == 0;

Geben Sie für die Gleichung eine Dirichlet-Randbedingung auf dem Gebiet eines Rechtecks an.

In[2]:=

\[CapitalOmega] = Rectangle[{0, 0}, {1, 2}];

In[3]:=

dcond = DirichletCondition[ u[x, y] == Piecewise[{{UnitTriangle[2 x - 1], y == 0 || y == 2}}, 0], True];

Lösen Sie das Dirichlet-Problem.

In[4]:=

sol = DSolveValue[{leqn, dcond}, u[x, y], {x, y} \[Element] \[CapitalOmega]] // FullSimplify

Out[4]=

Extrahieren Sie die ersten 300 Terme aus der Inactive-Summe.

In[5]:=

asol = sol /. {\[Infinity] -> 300} // Activate;

Visualisieren Sie die Lösung auf dem Rechteck.

In[6]:=

Plot3D[asol // Evaluate, {x, y} \[Element] \[CapitalOmega], PlotRange -> All, PlotTheme -> "Business"]

Out[6]=