Resolva EDPs sobre regiões 3D 

Crie uma MeshRegion a partir de ExampleData.

In[1]:=

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

Resolva uma equação de Laplace sobre o orbitador do Space Shuttle.

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

Visualize a solução utilizando o pacote de elementos finitos (finite element package).

mostre o input completo de Wolfram Languageoculte o input

In[3]:=

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

Out[3]=