Author: jt
Date: 18 Νοέμβριος 2014

start

stop

restart

ταχύτητα προσομοίωσης

t = 0 (slider from 0 to 20, step 0.02)
F_Δ = 2 (slider from 0 to 2, step 0.1)
f = 0.841 (slider from 0.0010 to 2, step 0.01)
ω: 2 * π * f
F_t: F_Δ * cos(ω * t)
k = 9.869604401089358
m = 0.4444444444444444
ω_0: sqrt(k / m)
b = 0.151 (slider from 0.0010 to 2, step 0.05)
θ: atan(m * (ω^(2) - ω_0^(2)) / b)
D': sqrt(ω^(2) * b^(2) + m^(2) * (ω^(2) - ω_0^(2))^(2))
A: F_Δ / D'
F(x) = F_Δ * cos(ω * x)
v(x) = ω * A * cos(ω * x - θ)
χ = If(x ≥ 0, A * sin(ω * x - θ))
A' = If(-6 < x < -1, F_Δ / sqrt(4 * π^(2) * (x + 6)^(2) * b^(2) + m^(2) * (4 * π^(2) * (x + 6)^(2) - ω_0^(2))^(2)))
f_0: ω_0 / (2 * π)
χ_t: A * sin(ω * t - θ)
Β: (10 + 2 * χ_t, 3)
Γ: (x(Β) + F_t, 3)
F_δ = Vector(Β, Γ)
Δ = (10, 3)
Ε: (10 - 2 * A, 3)
Ζ: (10 + 2 * A, 3)
κείμενο1: "f_0=" + f_0 + ""
d: x = f - 6
Η = Intersect(χ, d, (0, -0.8023962540835744))
c = 0.1 (slider from 0 to 1, step 0.1)
Α = Intersect(A', d, (-5.159, 0.7511213997708376))
Θ = (-6, 0)
Κ = (-1, 0)
g = Segment(Θ, Κ)
h = Segment(Ε, Ζ)
a: x = t
Ι = Intersect(χ, a, (0, -0.7497979500267151))