geo-38-dividirsegmento

Semirecta

Segmento

Separación marcas

Paralelas

Semirrecta

segmento

A: (0, 0)
B = (56.752981498637055, -0.11017319904051986)
segmentoAB = Segment(A, B)
Partes = 7 (slider from 1 to 10, step 1)
α = 1.2217304763960306 rad (slider from 0 to 6.283185307179586, step 0.08726646259971647)
D: (cos(α), sin(α))
g = Ray(A, D)
w = Vector(A, D)
modw = Length(w)
marcas = 7.8 (slider from 0 to 10, step 0.1)
ww: (((marcas * Partes)) / modw * w)
C: A + ww
d = Circle(A, marcas)
v: (1 / Partes * Vector[A, C])
A1: A
A2: A1 + v
A3: A2 + v
A4: A3 + v
A5: A4 + v
A6: A5 + v
A7: A6 + v
A8: A7 + v
A9: A8 + v
A10: A9 + v
A11: A10 + v
E1: 0
E2: 1
E3 = 2
E4 = 3
E5 = 4
E6 = 5
E7 = 6
E8 = 7
E9 = 8
E10 = 9
E11 = 10
u: (1 / Partes * Vector[A, B])
o = true
t = true
e = true
B1: A1
B2: B1 + u
B3: B2 + u
B4_{1}: B3 + u
B5_{1}: (B * 4) + u
B6_{1}: (B * 5) + u
B7_{1}: (B * 6) + u
B8_{1}: (B * 7) + u
B9_{1}: (B * 8) + u
B10_{1}: (B * 9) + u
B4: B3 + u
B5: B4 + u
B6: B5 + u
B7: B6 + u
B8: B7 + u
B9: B8 + u
B10: B9 + u
B11: B10 + u
C11 = Segment(A11, B11)
C10 = Segment(A10, B10)
C9 = Segment(A9, B9)
C8 = Segment(A8, B8)
C7 = Segment(A7, B7)
C6 = Segment(A6, B6)
C5 = Segment(A5, B5)
C4 = Segment(A4, B4)
C3 = Segment(A3, B3)
C2 = Segment(A2, B2)
D2 = Segment(A2, B2)
D3 = Segment(A3, B3)
D4 = Segment(A4, B4)
D5 = Segment(A5, B5)
D6 = Segment(A6, B6)
D7 = Segment(A7, B7)
D8 = Segment(A8, B8)
D9 = Segment(A9, B9)
D10 = Segment(A10, B10)
D11 = Segment(A11, B11)
F2: B2
F3: B3
F4: B4
F5: B5
F6: B6
F7: B7
F8: B8
F9: B9
F10: B10
F11: B11