zc = 50
za = 200
α = 0.008664
β = 0.7853981633974483
v0 = 10
A: v0 * (za + zc) / (2.0 * za)
t = 80 (slider from 1 to 100, step 1)
ρ0: (za - zc) / (za + zc)
vc = If(x ≥ -80.0 ∧ x ≤ 0.0, A * sqrt(exp(-(0.01733) * x) + ρ0 * ρ0 * exp(0.01733 * x) + 2.0 * ρ0 * cos(1.5708 * x)))
vc'(x) = -vc(x)
C = Point(xAxis)
émetteur = OrthogonalLine(C, xAxis)
D = Intersect(xAxis, yAxis)
antenne = OrthogonalLine(D, xAxis)
B: v0 * (za - zc) / (2.0 * za)
vinst = If(x ≥ -80.0 ∧ x ≤ 0.0, A * (exp(-(α) * x) * cos(-(β) * x + t * 3.141592653589793 / 50.0) + ρ0 * exp(α * x) * cos(β * x + t * 3.141592653589793 / 50.0)))
F = Intersect(vc, émetteur, (-80.0, 14.375561156210631))
E = Intersect(vc, antenne, (0.0, 10.0))