PDG-Lösungen auf einem 3D-Netz visualisieren 

Importieren Sie ein 3D-Netz als MeshRegion.

In[1]:=

X gc = Import[ "http://www.honda-3d.com/data/fuya-jo.zip", \ {"fuya-jo\\fuya-jo_LOW.stl", "GraphicsComplex"}]; bmr = BoundaryMeshRegion[First@gc, Last@gc]

Out[1]=

Lösen Sie eine PDG über der importierten Region.

In[2]:=

X if = NDSolveValue[{Laplacian[u[x, y, z], {x, y, z}] == 1, DirichletCondition[u[x, y, z] == 10, z <= 1/2]}, u, {x, y, z} \[Element] bmr, Method -> {"PDEDiscretization" -> {"FiniteElement", "MeshOptions" -> {"MeshOrder" -> 1}}}]

Out[2]=

Visualisieren Sie nun die Lösung auf dem Netz.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

In[3]:=

X vals = if @@ # & /@ First[gc]; {minVal, maxVal} = {Min[vals], Max[vals]}; colors = ColorData["TemperatureMap"][Rescale[#, {minVal, maxVal}]] & /@ vals;

In[4]:=

X Graphics3D[{EdgeForm[None], GraphicsComplex[First[gc], Last[gc], VertexColors -> colors]}, ViewPoint -> {40, 30, -10}, Boxed -> False]

Out[4]=