Juan Carlos Ponce Campuzano
Independent Mathematics Educator
Usando ecuaciones diferenciales
Condiciones:
Parámetros:
Variables:
Constantes:
Fuerza tangencial:
Segunda Ley del Movimiento de Newton
Aceleración angular y Aceleración gravitacional
y
Aceleración angular y Aceleración gravitacional
Posición del péndulo
Resuelve numéricamente un sistema de ecuaciones diferenciales.
ResuelveNEDO()
ResuelveNEDO()
Resuelve numéricamente un sistema de ecuaciones diferenciales.
ResuelveNEDO(<List-der>, <Val-ini-x>, <List-val-ini-y>, <Val-fin-x>)
# Gravedad
g = 9.81
# Longitud de la barra
L = 2
# Posición inicial θ0 y velocidad inicial ω0
θ0 = 3 pi/4
ω0 = 0
# Sistema de ecuaciones diferenciales
θ'(t, θ, ω) = ω
ω'(t, θ, ω) = -g / L sen(θ)
# Resuelve el sistema
ResuelveNEDO[{θ', ω'}, 0, {θ0, ω0}, 17.3]
# Lo siguiente obtiene los valores de la posición
len = Longitud[IntegralNumérica1]
c = Deslizador[0, 1, 1 / len, 1, 100]
# Posición
xp = L sen(y(Punto[IntegralNumérica1, c]))
yp = -L cos(y(Punto[IntegralNumérica1, c]))
# Dibuja la masa y la barra que la sostiene
A = (xp, yp)
Segmento[(0, 0), A]
# Anima
IniciaAnimación()
Constante de amortiguamiento
😃
Visita 🔗 jcponce.com
para ver otros proyectos
Topología General
By Juan Carlos Ponce Campuzano
Presentación para la V Jornada de GeoGebra de la Comunitat Valenciana.