Resuelva PDEs en regiones en 3D 

Cree un MeshRegion desde ExampleData.

In[1]:=

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

Resuelva una ecuación de Laplace en el orbitador del transbordador espacial.

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

Visualice la solución usando el paquete de elemento finito.

muestre la entrada completa de Wolfram Languageoculte la entrada

In[3]:=

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

Out[3]=