Author: EKFE Kallipolis
Date: 19 Νοέμβριος 2014

v

start

stop

restart

t = 0 (slider from 0 to 50, step 0.1)
A_0 = 3 (slider from 0 to 5, step 0.1)
b = 0 (slider from 0 to 2, step 0.01)
m = 1
Λ: b / (2 * m)
k = 1 (slider from 0 to 10, step 0.1)
ω: sqrt(k / m - Λ^(2))
A = If(0 ≤ x, A_0 * ℯ^(-Λ * x))
f = If(0 ≤ x < t, A_0 * ℯ^(-Λ * x) * cos(ω * x))
f' = Derivative(f)
f_t: A_0 * ℯ^(-Λ * t) * cos(ω * t)
a = false
B(x) = -A(x)
Α: (25 + 2 * f_t, 5)
Β = (25, 5)
v_t: (-cos(t * ω) * 5 * 0.06 - sin(t * ω) * 5 * ω) / ℯ^(t * Λ)
Γ: (x(Α) + 2 * v_t, 5)
u = Vector(Α, Γ)
T: 2 * π / ω
κείμενο1: "Τ=" + T + ""
Δ: (25 - 2 * A_0, 5)
Ε: (25 + 2 * A_0, 5)
c = Segment(Δ, Ε)
d: x = t
Ζ = Intersect(f, d, (4.7, -0.03716599038867168))