r = 5
p(x) = ((2 * sin(x)) * cos(x / 5))
A = Point(p)
a = Tangent(A, p)
e = Semicircle(A + (0, (1.2 * r)), A - (0, (1.2 * r)))
f = Line(A + (1, 0), A + (1, 1))
C: A + (0, (-r))
r1 = 4.85
r2 = 4.65
r3 = 4.5
C1: A + (0, (-r1))
C2: A + (0, (-r2))
C3: A + (0, (-r3))
r4 = 4.05
B = Intersect(e, a, 1)
C4: A + (0, (-r4))
b = OrthogonalLine(B, xAxis)
D: (x(B), y(A))
polígono1, a2, b1, d = Polygon(A, D, B)
α = Angle(D, A, B)
m = If(a2 ≠ 0, Slope[a], If[y(B - A) > 0, Infinity, -Infinity])
α2: α / °
lista2 = Sequence(Segment[Rotate[C, ((5 * k))°, A], Rotate[C2, ((5 * k))°, A]], k, 18, 36)
c = Semicircle(A + (0, r), A + (0, (-r)))
lista1 = Sequence(Segment[Rotate[C, k°, A], Rotate[C1, k°, A]], k, 90, 180)
lista1b = Sequence(Segment[Rotate[C, k°, A], Rotate[C1, k°, A]], k, 0, 89)
lista2b = Sequence(Segment[Rotate[C, ((5 * k))°, A], Rotate[C2, ((5 * k))°, A]], k, 0, 17)
lista3 = Sequence(Segment[Rotate[C, ((10 * k))°, A], Rotate[C3, ((10 * k))°, A]], k, 9, 18)
lista3b = Sequence(Segment[Rotate[C, ((10 * k))°, A], Rotate[C3, ((10 * k))°, A]], k, 0, 8)
lista4 = Sequence(Text["" + ((k - 90)°), Rotate[C4, k°, A]], k, 90, 180, 10)
lista4b = Sequence(Text["" + (k - 90) + "º", Rotate[C4, k°, A]], k, 0, 80, 10)
E = Intersect(f, a)
g = Segment(A, A + (1, 0))
h = Segment(A + (1, 0), E)
α1: ((sgn(x(B - A)) * sgn(y(B - A))) * α)
texto2: "Pendiente = \frac{" + (LaTeX[If[y(B - A) < 0, (-b1), b1]]) + "}{" + (LaTeX[a2]) + "}=\frac{" + (LaTeX[m]) + "}{1}=" + (LaTeX[m]) + ""
α3: ((sgn(x(B - A)) * sgn(y(B - A))) * α2)
α4 = If(a2 ≠ 0, α3, If[y(B - A) > 0, 90, -90])
lista5: {Polygon[A, A + (1, 0), E]}
lista6: {Polygon[A, A + (1, 0), E]}
texto3_1: "tg(" + (LaTeX[α4]) + "º) = " + (LaTeX[m]) + ""