v(x) = sqrt(25.0 * exp(-(0.01733) * x) + 9.0 * exp(0.01733 * x) + 30.0 * cos(1.5708 * x))
v'(x) = -v(x)
vinst'(x) = 5.0 * exp(-(0.00866) * x) * cos(-(0.7854) * x + 3.0 * 0.7854) + 3.0 * exp(0.00866 * x) * cos(0.7854 * x + 3.0 * 0.7854)
vinst''(x) = 5.0 * exp(-(0.00866) * x) * cos(-(0.7854) * x + 4.5 * 0.7854) + 3.0 * exp(0.00866 * x) * cos(0.7854 * x + 4.5 * 0.7854)
t = 14.3 (slider from 1 to 40, step 0.1)
vins(x) = 5.0 * exp(-(0.00866) * x) * cos(-(0.7854) * x + 0.7854 * t) + 3.0 * exp(0.00866 * x) * cos(0.7854 * x + 0.7854 * t)
alfa = 0.00866
beta = 0.7854
va(x) = 5.0 * sqrt(exp(-2.0 * alfa * x) + (99.0 / 101.0)^(2.0) * exp(2.0 * alfa * x) + 2.0 * 99.0 / 101.0 * cos(2.0 * beta * x))
vb(x) = -va(x)
vasin(x) = 5.0 * (exp(-(alfa) * x) * cos(-(beta) * x + 0.7854 * t) + 99.0 / 101.0 * exp(alfa * x) * cos(beta * x + 0.7854 * t))
A = Intersect(va, yAxis, (0.0, 9.900990099009901))
B = Point(xAxis)
a = OrthogonalLine(B, xAxis)
C = Intersect(va, a, (-80.0, 12.447874673456298))
b = OrthogonalLine(A, xAxis)