Wolfram Computation Meets Knowledge

Pendulum

A simple pendulum is an isolated system that assumes a massless, inextensible and taut cord; a point mass weight at the end, with motion occurring only in two dimensions; no friction or air resistance; a uniform gravitational field; and a fixed support.

The period increases with the square root of the length divided by gravitational acceleration. It also depends on the complete elliptic integral of the first kind of the square of the sine of half the initial angle. The frequency equals the reciprocal of the period. The maximum speed is proportional to the square root of the product of the gravitational acceleration, length of the pendulum and 1 minus the cosine of the initial angle.

Formula

{QuantityVariable["T", "Period"] == 4*EllipticK[Sin[QuantityVariable[Subscript["θ", "0"], "Angle"]/2]^2]*Sqrt[QuantityVariable["l", "Length"]/QuantityVariable["g", "GravitationalAcceleration"]], QuantityVariable["f", "Frequency"] == QuantityVariable["T", "Period"]^(-1), QuantityVariable[Subscript["v", "max"], "Speed"] == Sqrt[2]*Sqrt[(1 - Cos[QuantityVariable[Subscript["θ", "0"], "Angle"]])*QuantityVariable["g", "GravitationalAcceleration"]*QuantityVariable["l", "Length"]]}

symbol description physical quantity
T period "Period"
θ0 initial angle "Angle"
g gravitational acceleration "GravitationalAcceleration"
l length "Length"
f frequency "Frequency"
vmax maximum speed "Speed"

Forms

Examples

Get the resource:

In[1]:=
ResourceObject["Pendulum"]
Out[1]=

Get the formula:

In[2]:=
FormulaData[ResourceObject["Pendulum"]]
Out[2]=

Use some values:

In[3]:=
FormulaData[
 ResourceObject[
  "Pendulum"], {QuantityVariable["l","Length"] -> 
   Quantity[1, "Meters"], 
  QuantityVariable["T","Period"] -> Quantity[1, "Seconds"]}]
Out[3]=

Publisher Information