Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

Vibration Absorber Model

Source Notebook

Model of a vibration absorber

Examples

Basic Examples (3) 

Retrieve the model:

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

The icon:

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

The annotation:

In[3]:=
ResourceData[\!\(\* TagBox["\"\<Vibration Absorber Model\>\"", #& , BoxID -> "ResourceTag-Vibration Absorber Model-Input", AutoDelete->True]\), "Annotation"]
Out[3]=

Scope & Additional Elements (4) 

Available content elements:

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

The available model types:

In[5]:=
ResourceData[\!\(\* TagBox["\"\<Vibration Absorber Model\>\"", #& , BoxID -> "ResourceTag-Vibration Absorber Model-Input", AutoDelete->True]\), "AvailableModelTypes"]
Out[5]=

The operating point:

In[6]:=
ResourceData[\!\(\* TagBox["\"\<Vibration Absorber Model\>\"", #& , BoxID -> "ResourceTag-Vibration Absorber Model-Input", AutoDelete->True]\), "OperatingPoint"]
Out[6]=

The parameters:

In[7]:=
ResourceData[\!\(\* TagBox["\"\<Vibration Absorber Model\>\"", #& , BoxID -> "ResourceTag-Vibration Absorber Model-Input", AutoDelete->True]\), "Parameters"]
Out[7]=

Visualizations (2) 

The numerical transfer-function model of the structure mass m to the disturbance force f:

In[8]:=
tfm = SystemsModelExtract[ResourceData[\!\(\* TagBox["\"\<Vibration Absorber Model\>\"", #& , BoxID -> "ResourceTag-Vibration Absorber Model-Input", AutoDelete->True]\), "TransferFunctionModel"] /. ResourceData[\!\(\* TagBox["\"\<Vibration Absorber Model\>\"", #& , BoxID -> "ResourceTag-Vibration Absorber Model-Input", AutoDelete->True]\), "Parameters"], 1, 1]
Out[8]=

Its Bode plot:

In[9]:=
BodePlot[tfm]
Out[9]=

Analysis (1) 

The model's response to an oscillatory disturbance:

In[10]:=
OutputResponse[ResourceData[\!\(\* TagBox["\"\<Vibration Absorber Model\>\"", #& , BoxID -> "ResourceTag-Vibration Absorber Model-Input", AutoDelete->True]\)] /. ResourceData[\!\(\* TagBox["\"\<Vibration Absorber Model\>\"", #& , BoxID -> "ResourceTag-Vibration Absorber Model-Input", AutoDelete->True]\), "Parameters"], {Sin[3 t], 0}, {t, 0, 25}]; Plot[%, {t, 0, 25}, PlotRange -> All, PlotLegends -> {x, xa}]
Out[11]=

Suba Thomas, "Vibration Absorber Model" from the Wolfram Data Repository (2025)  

Data Resource History

  • Date Created:

Source Metadata

  • Citation:
    • T. Vyhlidal, D. Pilbauer, B. Alikoc, and W. Michiels, "Analysis and design aspects of delayed resonator absorber with position, velocity or acceleration feedback", Journal of Sound and Vibration, vol. 2009, pp. 1-28, Jan. 2019.

Publisher Information

  • Prepared for the Wolfram Data Repository By: Maher Kuzbari, Suba Thomas
  • Publisher of Record: Suba Thomas