Mathematica 10 的新功能 › 偏微分方程（PDE）和有限元 ›

三维结构力学 

计算由活塞施加的荷载导致夹紧机轴的变形.

指定 Graphics3D.

In[1]:=
Click for copyable input
X

加载有限元套件并创建有限元网格.

In[2]:=
Click for copyable input
X
Out[2]=

指定三维应力公式.

In[3]:=
Click for copyable input
X

指定如机轴的边界固定在这些位置的约束.

In[4]:=
Click for copyable input
X

指定推入负 轴的边界负荷.

In[5]:=
Click for copyable input
X

求解耦合方程.

In[6]:=
Click for copyable input
X

用有限元套件可视化原始机轴和红色的变形后的机轴.

显示完整的 Wolfram 语言输入
Out[7]=

Related Examples

Solve the Telegraph Equation in 1D » Solve a Wave Equation in 2D » Solve Axisymmetric PDEs » Solve PDEs over 3D Regions »
Dirichlet Boundary Conditions » Neumann Values » Generalized Neumann Values » Solve PDEs with Material Regions »
Transient Boundary Conditions » Transient Neumann Values » PDEs and Events » Solve a Complex-Valued Oscillator »
Compute a Plane Strain Deformation » A Stokes Flow in a Channel » Structural Mechanics in 3D » Control the Solution Process »
de en es ja pt-br