Coupled Pendulums Model

Model of two pendulums coupled by a spring

Examples

Basic Examples (2)

Retrieve the model:

In[1]:=

$ResourceData[\!$\* TagBox["\"\<Coupled Pendulums Model\>\"", #& , BoxID -> "ResourceTag-Coupled Pendulums Model-Input", AutoDelete->True]$]$

Out[1]=

The icon:

In[2]:=

$ResourceData[\!$\* TagBox["\"\<Coupled Pendulums Model\>\"", #& , BoxID -> "ResourceTag-Coupled Pendulums Model-Input", AutoDelete->True]$, "Icon"]$

Out[2]=

Scope & Additional Elements (4)

Available content elements:

In[3]:=

$\!$\* TagBox[ RowBox[{"ResourceObject", "[", "\"\<Coupled Pendulums Model\>\"", "]"}], #& , BoxID -> "ResourceTag-Coupled Pendulums Model-Input", AutoDelete->True]$["ContentElements"]$

Out[3]=

The available model types:

In[4]:=

$ResourceData[\!$\* TagBox["\"\<Coupled Pendulums Model\>\"", #& , BoxID -> "ResourceTag-Coupled Pendulums Model-Input", AutoDelete->True]$, "AvailableModelTypes"]$

Out[4]=

The operating point:

In[5]:=

$ResourceData[\!$\* TagBox["\"\<Coupled Pendulums Model\>\"", #& , BoxID -> "ResourceTag-Coupled Pendulums Model-Input", AutoDelete->True]$, "OperatingPoint"]$

Out[5]=

The parameters:

In[6]:=

$ResourceData[\!$\* TagBox["\"\<Coupled Pendulums Model\>\"", #& , BoxID -> "ResourceTag-Coupled Pendulums Model-Input", AutoDelete->True]$, "Parameters"]$

Out[6]=

Visualizations (3)

The numerical model:

In[7]:=

$pend = ResourceData[\!$\* TagBox["\"\<Coupled Pendulums Model\>\"", #& , BoxID -> "ResourceTag-Coupled Pendulums Model-Input", AutoDelete->True]$] /. ResourceData[\!$\* TagBox["\"\<Coupled Pendulums Model\>\"", #& , BoxID -> "ResourceTag-Coupled Pendulums Model-Input", AutoDelete->True]$, "Parameters"]$