Показать скорость

Пауза/возобновить

Запустить заново

Стереть фазовую траекторию

x

p

t  =_

l = 2.46 (slider from 0.3 to 3, step 0.03)
C = Intersect(xAxis, yAxis)
D: C + (0, 3 * l)
e = Segment(D, C)
g = 9.81
ω_0: sqrt(g / l)
γ = 0.03 (slider from 0 to 1.5, step 0.01)
A = 0.82 (slider from 0 to l / 3, step 0.01)
ω_γ: sqrt(ω_0^(2) - γ^(2) / 4)
t = 0.853 (slider from 0 to t_{max}, step 0.0010)
X: A * exp(-γ * t / 2) * cos(ω_γ * t)
Y: sqrt(l^(2) - X^(2))
t_{max}: 10 / (γ + 1.0E-4)
v: -(A * (γ / 2 * exp(-γ * t / 2) * cos(ω_γ * t) + ω_γ * exp(-γ * t / 2) * sin(ω_γ * t)))
m = 1 (slider from 0.01 to 1, step 0.01)
p: m * v
Ph: (X, p)
k: m * g / l
kX: k * X
U: k * X^(2) / 2
T: m * v^(2) / 2
E: T + U
O = Point(e)
P: O + (X, -Y)
O_1: O + (-0.5, 0)
O_2: O + (0.5, 0)
a = Segment(O_1, O_2)
b = Segment(O, P)
c = Circle(P, 0.12 * sqrt(m))
B: P + (v / l * Y, v / l * X)
u = Vector(P, B)
d = true
s = false
f = Line(P, Ph)
A_+: (1.4 * A, 0)
A_-: (-1.4 * A, 0)
w = Vector(A_-, A_+)
p_+: (0, 2.8 * A * ω_0 * m)
окноВвода1 = Textfield(t)