pendulum_motion: pendulum_motion

In wagnius-GmbH/slvwagner: All Stuff that I`m Missing

pendulum_motion

Description

Motion of pendulum.

Arguments

L	Länge des Pendels (m)
delta_t	(s)
THETA_0	Startwinkel (rad)
THETA_DOT_0	Anfangsgeschwindigkeit (m/s^2)
mu	Reibungkoeffizient
calculation_stop	Abbruch wenn die Geschwindigkeit kleiner und der Winkel kleiner als calculation_stop
nb_return_values	Anzahl Werte die zurückgegeben werden. Wenn Null gewählt wird dann werden alle brechneten Werte zurückgegenen.

Value

matrix

Examples

t = 35 ;
L = 2; delta_t = 1e-5; THETA_0 = pi/3; THETA_DOT_0 = 3; mu = 0.1;
calculation_stop = 0.05; nb_return_values = 800 ;
pendulum_motion(L, delta_t, THETA_0, THETA_DOT_0, mu, calculation_stop, nb_return_values)|>
plot(type = "l", main = "RccpTest: Pendulum Motion",xlab = "t", ylab = "angle")
pendulum_motion(L, delta_t, THETA_0, THETA_DOT_0, mu, calculation_stop, nb_return_values)[,c(1,3)]|>
plot(type = "l", main = "RccpTest: Pendulum Motion",xlab = "t", ylab = "angular velosity")

wagnius-GmbH/slvwagner documentation built on Jan. 19, 2025, 7:10 a.m.