Euler Explícito

Y_{0} = 1 (slider from -5 to 5)
a = 1 (slider from -5 to 5)
T: 1 / a
h = 1.5 (slider from 1 to 2.2)
A = Intersect(xAxis, yAxis)
B = Point(Circle[A, (8 * h)])
f = Segment(A, B)
C = Midpoint(A, B)
D = Midpoint(A, C)
E = Midpoint(C, B)
F = Midpoint(A, D)
G = Midpoint(D, C)
H = Midpoint(C, E)
I = Midpoint(E, B)
g = OrthogonalLine(F, xAxis)
i = OrthogonalLine(D, xAxis)
j = OrthogonalLine(G, xAxis)
k = OrthogonalLine(C, xAxis)
l = OrthogonalLine(H, xAxis)
m = OrthogonalLine(E, xAxis)
n = OrthogonalLine(I, xAxis)
p = OrthogonalLine(B, xAxis)
q(x) = (Y_{0} * ℯ^(((-a) * x)))
r(x) = ((-Y_{0}) * ℯ^(((-a) * x)))
J = Intersect(q, yAxis, (0, 1))
s = Tangent(J, q)
K = Intersect(s, g)
t = Line(K, xAxis)
b = Segment(J, K)
L = Intersect(r, t, (0.6931471805598846, -0.5000000000000304))
c = Tangent(L, r)
d = Line(K, c)
M = Intersect(d, i)
e = Segment(K, M)
f_1 = Line(M, xAxis)
N = Intersect(q, f_1, (1.3862943611143992, 0.2500000000013729))
g_1 = Tangent(N, q)
h_1 = Line(M, g_1)
O = Intersect(h_1, j)
i_1 = Segment(M, O)
j_1 = Line(O, xAxis)
P = Intersect(r, j_1, (2.0794415418821166, -0.12499999997471493))
k_1 = Tangent(P, r)
l_1 = Line(O, k_1)
Q = Intersect(l_1, k)
m_1 = Segment(O, Q)
n_1 = Line(Q, xAxis)
R = Intersect(q, n_1, (2.772588720632971, 0.06250000010042565))
p_1 = Tangent(R, q)
q_1 = Line(Q, p_1)
S = Intersect(q_1, l)
r_1 = Segment(Q, S)
s_1 = Line(S, xAxis)
U = Intersect(r, s_1, (3.465735896700942, -0.031250000190587025))
t_1 = Tangent(U, r)
a_1 = Line(S, t_1)
V = Intersect(a_1, m)
b_1 = Segment(S, V)
c_1 = Line(V, xAxis)
W = Intersect(q, c_1, (4.158883077260445, 0.01562500009530043))
d_1 = Tangent(W, q)
e_1 = Line(V, d_1)
Z = Intersect(e_1, n)
f_2 = Segment(V, Z)
g_2 = Line(Z, xAxis)
A_1 = Intersect(r, g_2, (4.85203025782039, -0.007812500047650214))
h_2 = Tangent(A_1, r)
i_2 = Line(Z, h_2)
B_1 = Intersect(i_2, p)
j_2 = Segment(Z, B_1)
C_1 = Point(Circle[A, T])
k_2 = Segment(A, C_1)
D_1 = Point(Circle[C_1, T])
l_2 = Segment(C_1, D_1)
m_2 = OrthogonalLine(C_1, xAxis)
n_2 = OrthogonalLine(D_1, xAxis)