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

Κύκλωμα ηλεκτρικών ταλαντώσεων, με αρχική ενέργεια στο πηνίο (ενέργεια μαγνητικού πεδίου).

start (άνοιγμα δ)

restart

ενέργεια

πεδία

stop

C_ μF = 1 (slider from 1 to 5, step 1)
L_ mH = 0.1 (slider from 0.1 to 0.5, step 0.1)
I = 1 (slider from 0.1 to 1, step 0.1)
ω: 1 / sqrt(C_ μF * 10 * L_ mH)
t = 0 (slider from 0 to 50, step 0.01)
ωt: ω * t
tt = 0
Q: I / ω
Μ = (2, 6)
Ζ = (2, 3)
β = 5.23 (slider from 0 to 5.58, step 0.01)
Α: (7 - sin(5 * β), 0.9 * β + 0.5 - 0.5 * cos(5 * β))
γτ1 = Locus(Α, β)
Γ = (3, 6)
Β = (6.6, 6)
a = Segment(Β, Γ)
Δ = Point(γτ1)
Ε = Point(xAxis)
c = Segment(Μ, Ζ)
b = Segment(Δ, Ε)
Η = (2, 2.5)
d = Segment(Ε, Η)
Θ = (9, 3.5)
Ι = (11, 3.5)
e = Segment(Θ, Ι)
Κ = (9, 2.5)
Λ = (11, 2.5)
f = Segment(Κ, Λ)
δ = 1 (slider from 0 to 1, step 1)
Ν: (2 + δ, 7 - δ)
h = Segment(Μ, Ν)
i_1: I * cos(ωt)
q_1: Q * sin(ωt)
ph = 0
Υ = (3.7450368598254684, 6.193322332800514)
Φ = (5.245036859825468, 6.193322332800514)
Χ = (5.245036859825468, 5.793322332800513)
Ψ = (3.7450368598254684, 5.793322332800513)
πολύγ1, υ, φ, χ, ψ = Polygon(Υ, Φ, Χ, Ψ)
Ω = (10, 6)
Α_1 = (10.007563121984694, 3.5429536430670976)
Β_1 = (10, 2.5)
Γ_1 = (10, 0)
g = Segment(Β, Ω)
j = Segment(Ω, Α_1)
k = Segment(Β_1, Γ_1)
l = Segment(Γ_1, Δ)
Ξ = (1, 3)
Ο = (3, 3)
m = Segment(Ξ, Ο)
Π = (1.5, 2.5)
Ρ = (2.5, 2.5)
n = Segment(Π, Ρ)
Σ = (2.023040517329318, 4.4731862012066355)
Δ_1 = (5.78846879111566, 3.0211158665497964)
Η_1 = (9.96, 4.75)
Ι_1 = (8.283632105070465, 0.07159799927809217)
Τ: (x(Σ), y(Σ) + i_1)
Ζ_1: (x(Η_1), y(Η_1) + i_1)
Θ_1: (x(Ι_1) + i_1, y(Ι_1))
Ε_1: (x(Δ_1), y(Δ_1) - i_1)
p = Segment(Σ, Τ)
r = Segment(Δ_1, Ε_1)
s = Segment(Η_1, Ζ_1)
a_1 = Segment(Ι_1, Θ_1)
Κ_1 = (5.062603099783352, 0.07159799927809217)
Λ_1: (x(Κ_1) - i_1, y(Κ_1))
b_1 = Segment(Κ_1, Λ_1)
C: 1 / (L_ mH * ω^(2))
U_b: 5 * L_ mH * i_1^(2)
U_e: 1 / 2 * q_1^(2) / C_ μF
Energy: U_e + U_b
Μ_1 = (8, -2)
Ν_1: (x(Μ_1), y(Μ_1) + 3 * U_b)
U_B = Segment(Μ_1, Ν_1)
Ξ_1 = (9, -2)
Ο_1: (x(Ξ_1), y(Ξ_1) + 3 * U_e)
U_E = Segment(Ξ_1, Ο_1)
Π_1: (7, 3 + 2.5 * i_1)
Ρ_1: (x(Π_1), y(Π_1) - 5 * i_1)
B = Vector(Π_1, Ρ_1)
Σ_1: (10, 3 - q_1 / 2)
Τ_1: (x(Σ_1), y(Σ_1) + q_1)
E = Vector(Σ_1, Τ_1)
Υ_1 = (6, 6.5)
Φ_1 = (6, -0.5)
Χ_1 = (8, -0.5)
Ψ_1 = (8, 6.5)
πολύγ2, υ_1, φ_1, χ_1, ψ_1 = Polygon(Υ_1, Φ_1, Χ_1, Ψ_1)
Ω_1 = (9, 3.45)
Α_2 = (9, 2.6)
Β_2 = (11, 2.6)
Γ_2 = (11, 3.45)
πολύγ3, ω_1, α_2, β_2, γ_2 = Polygon(Ω_1, Α_2, Β_2, Γ_2)
u = true
o = true
i = If(0 < x, I * cos(ω * x) - 4)
q = If(0 < x, Q * sin(ω * x) - 4)
c_1: x = t
Δ_2 = Intersect(q, c_1, (7.21, -3.200288407459402))
Ε_3 = Intersect(i, c_1, (7.21, -3.3996156491411686))
Ε_2 = Point(yAxis)
Ζ_2 = Intersect(xAxis, yAxis)
d_1 = Segment(Ε_2, Ζ_2)