+

+

+

+

-

-

-

-

A

R

AA

AR

RA

RR

AAA

ARA

ARR

RAA

RAR

RRA

RRR

AAR

ramas4 = 2 (slider from 2 to 6, step 1)
fases = 3 (slider from 2 to 4, step 1)
ramas3 = 2 (slider from 2 to 6, step 1)
ramas2 = 2 (slider from 2 to 6, step 1)
ramas1 = 2 (slider from 2 to 6, step 1)
total4: (((ramas1 * ramas2) * ramas3) * ramas4)
total3: ((ramas1 * ramas2) * ramas3)
total2: (ramas1 * ramas2)
B = (14, 6)
A = (14, -4)
u = Vector(A, B)
puntos4 = Sequence(A + (k / (total4 - 1) * u), k, 0, total4 - 1)
mediatrices4 = Sequence(LineBisector[Element[puntos4, k], Element[puntos4, k + ramas4 - 1]], k, 1, total4 - 1, ramas4)
D = Midpoint(B, A)
f = LineBisector(B, A)
C = Point(f)
E = Midpoint(D, C)
F = Midpoint(E, C)
recta1 = OrthogonalLine(F, f)
G = Midpoint(E, D)
recta3 = OrthogonalLine(G, f)
puntos3f4 = Sequence(Intersect[recta3, Element[mediatrices4, k]], k, 1, total3)
mediatrices3f4 = Sequence(LineBisector[Element[puntos3f4, k], Element[puntos3f4, k + ramas3 - 1]], k, 1, total3 - 1, ramas3)
g = OrthogonalLine(A, recta3)
A_3 = Intersect(recta3, g)
puntos3f3 = Sequence(A_3 + (k / (total3 - 1) * u), k, 0, total3 - 1)
mediatrices3f3 = Sequence(LineBisector[Element[puntos3f3, k], Element[puntos3f3, k + ramas3 - 1]], k, 1, total3 - 1, ramas3)
recta2 = OrthogonalLine(E, f)
puntos2f4 = Sequence(Intersect[recta2, Element[mediatrices3f4, k]], k, 1, total2)
mediatrices2f4 = Sequence(LineBisector[Element[puntos2f4, k], Element[puntos2f4, k + ramas2 - 1]], k, 1, total2 - 1, ramas2)
puntos1f4 = Sequence(Intersect[recta1, Element[mediatrices2f4, k]], k, 1, ramas1)
puntos2f3 = Sequence(Intersect[recta2, Element[mediatrices3f3, k]], k, 1, total2)
mediatrices2f3 = Sequence(LineBisector[Element[puntos2f3, k], Element[puntos2f3, k + ramas2 - 1]], k, 1, total2 - 1, ramas2)
puntos1f3 = Sequence(Intersect[recta1, Element[mediatrices2f3, k]], k, 1, ramas1)
A_2 = Intersect(recta2, g)
puntos2f2 = Sequence(A_2 + (k / (total2 - 1) * u), k, 0, total2 - 1)
mediatrices2f2 = Sequence(LineBisector[Element[puntos2f2, k], Element[puntos2f2, k + ramas2 - 1]], k, 1, total2 - 1, ramas2)
puntos1f2 = Sequence(Intersect[recta1, Element[mediatrices2f2, k]], k, 1, ramas1)
h = OrthogonalLine(B, recta3)
B_3 = Intersect(h, recta3)
B_2 = Intersect(recta2, h)
puntos1 = If(fases ≟ 2, puntos1f2, fases ≟ 3, puntos1f3, puntos1f4)
puntos2 = If(fases ≟ 2, puntos2f2, fases ≟ 3, puntos2f3, puntos2f4)
segmentos1 = Sequence(Segment[C, Element[puntos1, k]], k, 1, ramas1)
puntos3 = If(fases ≟ 3, puntos3f3, puntos3f4)
segmentos2 = Sequence(Sequence[Segment[Element[puntos1, i], Element[puntos2, (ramas2 * (i - 1)) + j]], i, 1, ramas1], j, 1, ramas2)
segmentos3 = Sequence(Sequence[Segment[Element[puntos2, i], Element[puntos3, (ramas3 * (i - 1)) + j]], i, 1, total2], j, 1, ramas3)
segmentos4 = Sequence(Sequence[Segment[Element[puntos3, i], Element[puntos4, (ramas4 * (i - 1)) + j]], i, 1, total3], j, 1, ramas4)
vertextos: true