Mass-Spring-Damper Model

Source Notebook

Model of a mass-spring-damper system

Examples

Basic Examples (2) 

Retrieve the model:

In[1]:=
ResourceData[\!\(\*
TagBox["\"\<Mass-Spring-Damper Model\>\"",
#& ,
BoxID -> "ResourceTag-Mass-Spring-Damper Model-Input",
AutoDelete->True]\)]
Out[1]=

The icon:

In[2]:=
ResourceData[\!\(\*
TagBox["\"\<Mass-Spring-Damper Model\>\"",
#& ,
BoxID -> "ResourceTag-Mass-Spring-Damper Model-Input",
AutoDelete->True]\), "Icon"]
Out[2]=

Scope & Additional Elements (4) 

Available content elements:

In[3]:=
\!\(\*
TagBox[
RowBox[{"ResourceObject", "[", "\"\<Mass-Spring-Damper Model\>\"", "]"}],
#& ,
BoxID -> "ResourceTag-Mass-Spring-Damper Model-Input",
AutoDelete->True]\)["ContentElements"]
Out[3]=

The available model types:

In[4]:=
ResourceData[\!\(\*
TagBox["\"\<Mass-Spring-Damper Model\>\"",
#& ,
BoxID -> "ResourceTag-Mass-Spring-Damper Model-Input",
AutoDelete->True]\), "AvailableModelTypes"]
Out[4]=

The operating point:

In[5]:=
ResourceData[\!\(\*
TagBox["\"\<Mass-Spring-Damper Model\>\"",
#& ,
BoxID -> "ResourceTag-Mass-Spring-Damper Model-Input",
AutoDelete->True]\), "OperatingPoint"]
Out[5]=

The parameters:

In[6]:=
ResourceData[\!\(\*
TagBox["\"\<Mass-Spring-Damper Model\>\"",
#& ,
BoxID -> "ResourceTag-Mass-Spring-Damper Model-Input",
AutoDelete->True]\), "Parameters"]
Out[6]=

Analysis (3) 

A numerical model of the system:

In[7]:=
ssm = ResourceData[\!\(\*
TagBox["\"\<Mass-Spring-Damper Model\>\"",
#& ,
BoxID -> "ResourceTag-Mass-Spring-Damper Model-Input",
AutoDelete->True]\)] /. ResourceData[\!\(\*
TagBox["\"\<Mass-Spring-Damper Model\>\"",
#& ,
BoxID -> "ResourceTag-Mass-Spring-Damper Model-Input",
AutoDelete->True]\), "Parameters"]
Out[7]=

Its state response from a non-equilibrium position:

In[8]:=
sr = StateResponse[{ssm, {0.1, 0}}, 0, {t, 0, 30}]
Out[8]=

A parametric plot of the response:

In[9]:=
ParametricPlot[Partition[sr, 1], {t, 0, 30}, Sequence[
 Frame -> True, Axes -> False, ColorFunction -> (ColorData["CherryTones"][#3]& ), AspectRatio -> 1,
   PlotTheme -> "Web", FrameLabel -> {
Style["x", FontSize -> 14], 
Style["x'", FontSize -> 14]}, Epilog -> {
PointSize[Large], 
RGBColor[0.215686, 0.215686, 0.215686], 
Point[{0.1, 0.}]}]]
Out[9]=

Suba Thomas, "Mass-Spring-Damper Model" from the Wolfram Data Repository (2025)  

Data Resource History

Publisher Information