Wolfram Computation Meets Knowledge

Wolfram Formula Repository (Under Development)

Elastic Collision in Two Dimensions Using Incident Angle

An elastic collision is an encounter between two bodies in which the total kinetic energy of the two bodies after the encounter is equal to their total kinetic energy before the encounter. Perfectly elastic collisions occur only if there is no net conversion of kinetic energy into other forms.

The final speeds of two objects depend directly on the initial speed between the objects. The masses and incident angle also adjust this.

Formula

{QuantityVariable[Subscript["v", "1", "f"], "Speed"] == (Sqrt[QuantityVariable[Subscript["m", "1"], "Mass"]^2 - 2*Cos[2*QuantityVariable["θ", "Angle"]]*QuantityVariable[Subscript["m", "1"], "Mass"]*QuantityVariable[Subscript["m", "2"], "Mass"] + QuantityVariable[Subscript["m", "2"], "Mass"]^2]*QuantityVariable[Subscript["v", "1", "i"], "Speed"])/(QuantityVariable[Subscript["m", "1"], "Mass"] + QuantityVariable[Subscript["m", "2"], "Mass"]), QuantityVariable[Subscript["v", "2", "f"], "Speed"] == (2*Cos[QuantityVariable["θ", "Angle"]]*QuantityVariable[Subscript["m", "1"], "Mass"]*QuantityVariable[Subscript["v", "1", "i"], "Speed"])/(QuantityVariable[Subscript["m", "1"], "Mass"] + QuantityVariable[Subscript["m", "2"], "Mass"]), QuantityVariable[Subscript["θ", "1", "f"], "Angle"] == ArcTan[Quantity[1, "Kilograms"^(-1)]*(QuantityVariable[Subscript["m", "1"], "Mass"] - Cos[2*QuantityVariable["θ", "Angle"]]*QuantityVariable[Subscript["m", "2"], "Mass"]), Quantity[1, "Kilograms"^(-1)]*QuantityVariable[Subscript["m", "2"], "Mass"]*Sin[2*QuantityVariable["θ", "Angle"]]], QuantityVariable[Subscript["θ", "2", "f"], "Angle"] == QuantityVariable["θ", "Angle"]}

symbol description physical quantity
v1,f final speed 1 "Speed"
m1 mass 1 "Mass"
m2 mass 2 "Mass"
θ angle between center line and incident velocity "Angle"
v1,i initial speed 1 "Speed"
v2,f final speed 2 "Speed"
θ1,f final angle 1 "Angle"
θ2,f final angle 2 "Angle"

Forms

Examples

Get the resource:

In[1]:=
ResourceObject["Elastic Collision in Two Dimensions Using Incident \ Angle"]
Out[1]=

Get the formula:

In[2]:=
FormulaData[ ResourceObject[ "Elastic Collision in Two Dimensions Using Incident Angle"]]
Out[2]=

Use some values:

In[3]:=
FormulaData[ ResourceObject[ "Elastic Collision in Two Dimensions Using Incident Angle"], \ {QuantityVariable[ \!\(\*SubscriptBox[\("\[Theta]"\), \("1", "f"\)]\),"Angle"] -> Quantity[60, "AngularDegrees"], QuantityVariable[ \!\(\*SubscriptBox[\("m"\), \("1"\)]\),"Mass"] -> Quantity[1, "Kilograms"], QuantityVariable[ \!\(\*SubscriptBox[\("\[Theta]"\), \("2", "f"\)]\),"Angle"] -> Quantity[30, "AngularDegrees"]}]
Out[3]=

Publisher Information