A1: (0, 20)
A2: (20, 22)
B1: (0, 0)
B2: (20, 5)
A3 = (40, 24)
A4 = (60, 26)
A5 = (80, 28)
A6 = (100, 30)
A7 = (120, 32)
A8 = (140, 34)
A9 = (160, 36)
A10 = (180, 38)
A11 = (200, 40)
B3 = (40, 10)
B4 = (60, 15)
B5 = (80, 20)
B6 = (100, 25)
B7 = (120, 30)
B8 = (140, 35)
B9 = (160, 40)
B10 = (180, 45)
B11 = (200, 50)
l1: {A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11}
l2: {B1, B2, B3, B4, B5, B6, B7, B8, B9, B10, B11}
f = FitLineY(l1)
g = FitLineY(l2)
Pulgar(x) = If[0 ≤ x ≤ Infinity, (0.1 * x) + 20]
Yastá(x) = If[0 ≤ x ≤ Infinity, (0.25 * x)]
ec1: x = 110
A = Intersect(Yastá, ec1)
B = Intersect(Pulgar, ec1)
C = Intersect(Pulgar, Yastá, (133.33333333333334, 33.333333333333336))

Tool: Transportador
Punto Central, Punto de giro
Input: A, C
Output: c1, c2, lista0, lista1, lista2, lista3, lista4, lista5, lista6, lista7, lista8, lista9, b, c, texto1, a

B: A + (4.48, 0)
c1 = Circle(A, 6)
c2 = Circle(A, 4.48)
a = Angle(B, A, C)
b = Segment(A + (4.48; 197.18873° + a), A + (4.48; 342.81127° + a))
c = Segment(A, Midpoint[b])
lista1 = Sequence(Segment[A + (6; s + a), A + (5.88; s + a)], s, 0, 6.28319, 0.01)
lista2 = Sequence(Segment[A + (6; s + a), A + (5.64; s + a)], s, 0, 6.28319, 0.05)
lista3 = Sequence(Segment[A + (6; s + a), A + (5.4; s + a)], s, 0, 6.28319, 0.1)
lista4 = Sequence(Segment[A + (6; s + a), A + (5.4; s + a)], s, 1, 6, 1)
lista5 = Sequence(Text[Element[KeepIf[x ≠ floor(x), Sequence[t, t, 0, 6.28319, 0.1]], s], A - (0.17, 0.08) + (5.17; a + Element[KeepIf[x ≠ floor(x), Sequence[t, t, 0, 6.28319, 0.1]], s])], s, 1, Length[KeepIf[x ≠ floor(x), Sequence[t, t, 0, 6.28319, 0.1]]])
lista6 = Sequence(Text[s, A - (0.08, 0.04) + (5.17; a + s)], s, 1, 6)
texto1 = Text("0", A + (((((((((((((((((((((((((((((-1 * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 1) * 0.08), 0.02) + (5.17; a))
lista8 = Sequence(Text["π/" + (s), A + (4.66; a + 3.141592653589793 / s + 0.05) - (0.17, 0.08)], s, 2, 6)
lista9: {Text["3π/2", A - (0.17, 0.08) + (4.66; (3 * 3.141592653589793 / 2) + a + 0.05)], Text["2π", A - (0.17, 0.08) + (4.745; (2 * 3.141592653589793) + a - 0.05)]}
lista0: {Segment[A + (6; a), A + (6; 3.141592653589793 + a)], Segment[A + (6; (3 * 3.141592653589793 / 2) + a), A + (4.48; (3 * 3.141592653589793 / 2) + a)]}
lista7 = Sequence(Segment[A + (6; 3.141592653589793 / s + a), A + (4.48; 3.141592653589793 / s + a)], s, 2, 6, 1)

Tool: Baldosa2
Dos puntos
Input: A, B
Output: l1, l2, C', D'

polígono1, f, g, h, i, C, D = Polygon(A, B, 4)
l1: {Polygon[A, B, C]}
l2: {Polygon[A, D, C]}
C': C
D': D