PDGs über 3D-Regionen lösen 

Generieren Sie eine MeshRegion aus ExampleData.

In[1]:=

X mr = BoundaryDiscretizeGraphics[ ExampleData[{"Geometry3D", "SpaceShuttle"}]];

Lösen Sie eine Laplace-Gleichung über dem Orbiter des Space Shuttles.

In[2]:=

X uif = NDSolveValue[{Inactive[Laplacian][u[x, y, z], {x, y, z}] == 0, DirichletCondition[u[x, y, z] == 1, z <= -1.3]}, u, {x, y, z} \[Element] mr];

Visualisieren Sie die Lösung mithilfe des Finite-Elemente-Pakets.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

In[3]:=

X Needs["NDSolve`FEM`"] ElementMeshSurfacePlot3D[uif, Boxed -> False, ViewPoint -> {0, -4, 2}]

Out[3]=