0

0

B

D

F

G

H

J

K

L

M

N

P

R

S

T

V

W

X

Y

Z

C

B

C

F

G

H

J

K

L

M

N

P

R

S

T

V

W

X

Y

Z

D

Giros aleatorios

Rotar manualmente

Ver árbol

+

-

+

-

+

-

-

+

RUEDAS = 3 (slider from 2 to 4, step 1)
alto: y(Corner[4]) - y(Corner[1])
P: (Corner[1] + Corner[4]) / 2 + (0.5, 0)
ancho: x(Corner[2]) - x(Corner[1])
PP: P + (ancho / 3 - 0.5, 0)
n_0 = 8 (slider from 2 to 10, step 1)
n_1 = 10 (slider from 2 to 10, step 1)
N_0 = If(RUEDAS > 2, n_0, n_1)
P_4 = (1.2479297531288744, 2.297490710184339)
nv4 = Random(1, 3)
n_3 = 20 (slider from 3 to 20, step 1)
A = (0.92, -0.08)
des_1 = 1 (slider from 0 to 1, step 0.01)
n_2 = 15 (slider from 3 to 20, step 1)
nt4 = Random(1, n_2)
P_3 = (2.714698073902847, 0.05805369799252673)
nv3 = Random(1, 3)
nt3 = Random(1, n_2)
P_2 = (-0.07846035320541234, -0.7456402354702749)
nv2 = Random(1, 3)
nt2 = Random(1, n_1)
nv = Random(1, 3)
P_1 = (1.4833257895319654, 0.12655278949505389)
nt = Random(1, n_0)
r3:1.8
A': A + (0.1, 0.1)
d3 = Circle(A', r3 + 0.25)
B = Point(d3)
A1:1
r1 = 0.6 (slider from 0.5 to 5, step 0.1)
C: A + (0, 1)
C' = Rotate(C, 10°, A)
c1 = Circle(A, r1)
B_1 = Point(c1)
B1 = Rotate(B_1, (((A1 - 0.5) * 2) * π / n_0), A)
A10:10
A2:2
A3: (2 * A2) - A1
A4: (2 * A3) - A2
A5: (2 * A4) - A3
A6: (2 * A5) - A4
A7: (2 * A6) - A5
A8: (2 * A7) - A6
A9: (2 * A8) - A7
C1: "" + A1
C2: "" + A2
C3: "" + A3
C4: "" + A4
C5: "" + A5
C6: "" + A6
C7: "" + A7
C8: "" + A8
C9: "" + A9
d1 = Circle(A', r1 + 0.25)
B2 = Rotate(B_1, (((A2 - 0.500000000000002) * 2) * π / n_0), A)
B3 = Rotate(B_1, (((A3 - 0.500000000000002) * 2) * π / n_0), A)
B4 = Rotate(B_1, (((A4 - 0.500000000000002) * 2) * π / n_0), A)
B5 = Rotate(B_1, (((A5 - 0.500000000000002) * 2) * π / n_0), A)
B6 = Rotate(B_1, (((A6 - 0.500000000000002) * 2) * π / n_0), A)
B7 = Rotate(B_1, (((A7 - 0.500000000000002) * 2) * π / n_0), A)
B8 = Rotate(B_1, (((A8 - 0.500000000000002) * 2) * π / n_0), A)
B9 = Rotate(B_1, (((A9 - 0.500000000000002) * 2) * π / n_0), A)
B10 = Rotate(B_1, (((A10 - 0.500000000000002) * 2) * π / n_0), A)
α1 = Angle(B1, A, C')
B11: (α1 - π / 18) / ((2 * π / n_0)) + 1
B12:0.2
D1 = If(abs(B$11 - A1)  <  B$12, C1, "")
D2 = If(abs(B$11 - A2)  <  B$12, C2, "")
D3 = If(abs(B$11 - A3)  <  B$12, C3, "")
D4 = If(abs(B$11 - A4)  <  B$12, C4, "")
D5 = If(abs(B$11 - A5)  <  B$12, C5, "")
D6 = If(abs(B$11 - A6)  <  B$12, C6, "")
D7 = If(abs(B$11 - A7)  <  B$12, C7, "")
D8 = If(abs(B$11 - A8)  <  B$12, C8, "")
D9 = If(abs(B$11 - A9)  <  B$12, C9, "")
A14:1
A15:2
A16: (2 * A15) - A14
A17: (2 * A16) - A15
A18: (2 * A17) - A16
A19: (2 * A18) - A17
A20: (2 * A19) - A18
A21: (2 * A20) - A19
A22: (2 * A21) - A20
A23:10
D10 = If(abs(B$11 - A10)  <  B$12, C10, "")
r2 = 1.2 (slider from -5 to 5, step 0.05)
c2 = Circle(A, r2)
B_2 = Point(c2)
B14 = Rotate(B_2, (((A14 - 0.5) * 2) * π / n_1), A)
B15 = Rotate(B_2, (((A15 - 0.500000000000002) * 2) * π / n_1), A)
B16 = Rotate(B_2, (((A16 - 0.500000000000002) * 2) * π / n_1), A)
B17 = Rotate(B_2, (((A17 - 0.500000000000002) * 2) * π / n_1), A)
B18 = Rotate(B_2, (((A18 - 0.500000000000002) * 2) * π / n_1), A)
B19 = Rotate(B_2, (((A19 - 0.500000000000002) * 2) * π / n_1), A)
B20 = Rotate(B_2, (((A20 - 0.500000000000002) * 2) * π / n_1), A)
B21 = Rotate(B_2, (((A21 - 0.500000000000002) * 2) * π / n_1), A)
B22 = Rotate(B_2, (((A22 - 0.500000000000002) * 2) * π / n_1), A)
B23 = Rotate(B_2, (((A23 - 0.500000000000004) * 2) * π / n_1), A)
C15: "" + A15
C16: "" + A16
C17: "" + A17
C18: "" + A18
C19: "" + A19
C20: "" + A20
C21: "" + A21
C22: "" + A22
C14: "" + A14 + ""
d2 = Circle(A', r2 + 0.25)
D11: "" + (D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10) + ""
α2 = Angle(B14, A, C')
B24: (α2 - π / 18) / ((2 * π / n_1)) + 1
B25:0.25
D14 = If(abs(B$24 - A14)  <  B$25, C14, "")
D15 = If(abs(B$24 - A15)  <  B$25, C15, "")
D16 = If(abs(B$24 - A16)  <  B$25, C16, "")
D17 = If(abs(B$24 - A17)  <  B$25, C17, "")
D18 = If(abs(B$24 - A18)  <  B$25, C18, "")
D19 = If(abs(B$24 - A19)  <  B$25, C19, "")
D20 = If(abs(B$24 - A20)  <  B$25, C20, "")
D21 = If(abs(B$24 - A21)  <  B$25, C21, "")
D22 = If(abs(B$24 - A22)  <  B$25, C22, "")
D23 = If(abs(B$24 - A23)  <  B$25, C23, "")
D24: "" + (D14 + D15 + D16 + D17 + D18 + D19 + D20 + D21 + D22 + D23) + ""
c3 = Circle(A, r3)
A27:1
A28:2
A29: (2 * A28) - A27
A30: (2 * A29) - A28
A31: (2 * A30) - A29
A32: (2 * A31) - A30
A33: (2 * A32) - A31
A34: (2 * A33) - A32
A35: (2 * A34) - A33
A36: (2 * A35) - A34
A37: (2 * A36) - A35
A38: (2 * A37) - A36
A39: (2 * A38) - A37
A40: (2 * A39) - A38
A41: (2 * A40) - A39
A42: (2 * A41) - A40
A43: (2 * A42) - A41
A44: (2 * A43) - A42
A45: (2 * A44) - A43
A46: (2 * A45) - A44
B_3 = Point(c3)
B27 = Rotate(B_3, (((A27 - 0.5) * 2) * π / n_2), A)
B28 = Rotate(B_3, (((A28 - 0.500000000000002) * 2) * π / n_2), A)
B29 = Rotate(B_3, (((A29 - 0.500000000000002) * 2) * π / n_2), A)
B30 = Rotate(B_3, (((A30 - 0.500000000000002) * 2) * π / n_2), A)
B31 = Rotate(B_3, (((A31 - 0.500000000000002) * 2) * π / n_2), A)
B32 = Rotate(B_3, (((A32 - 0.500000000000002) * 2) * π / n_2), A)
B33 = Rotate(B_3, (((A33 - 0.500000000000002) * 2) * π / n_2), A)
B34 = Rotate(B_3, (((A34 - 0.500000000000002) * 2) * π / n_2), A)
B35 = Rotate(B_3, (((A35 - 0.500000000000002) * 2) * π / n_2), A)
B36 = Rotate(B_3, (((A36 - 0.500000000000002) * 2) * π / n_2), A)
B37 = Rotate(B_3, (((A37 - 0.500000000000002) * 2) * π / n_2), A)
B38 = Rotate(B_3, (((A38 - 0.500000000000002) * 2) * π / n_2), A)
B39 = Rotate(B_3, (((A39 - 0.500000000000002) * 2) * π / n_2), A)
B40 = Rotate(B_3, (((A40 - 0.500000000000002) * 2) * π / n_2), A)
B41 = Rotate(B_3, (((A41 - 0.500000000000002) * 2) * π / n_2), A)
B42 = Rotate(B_3, (((A42 - 0.500000000000002) * 2) * π / n_2), A)
B43 = Rotate(B_3, (((A43 - 0.500000000000002) * 2) * π / n_2), A)
B44 = Rotate(B_3, (((A44 - 0.500000000000002) * 2) * π / n_2), A)
B45 = Rotate(B_3, (((A45 - 0.500000000000002) * 2) * π / n_2), A)
B46 = Rotate(B_3, (((A46 - 0.500000000000002) * 2) * π / n_2), A)
α3 = Angle(B27, A, C')
B47: (α3 - π / 18) / ((2 * π / n_2)) + 1
B48:0.3
D27 = If(abs(B$47 - A27)  <  B$48, C27, "")
D28 = If(abs(B$47 - A28)  <  B$48, C28, "")
D29 = If(abs(B$47 - A29)  <  B$48, C29, "")
D30 = If(abs(B$47 - A30)  <  B$48, C30, "")
D31 = If(abs(B$47 - A31)  <  B$48, C31, "")
D32 = If(abs(B$47 - A32)  <  B$48, C32, "")
D33 = If(abs(B$47 - A33)  <  B$48, C33, "")
D34 = If(abs(B$47 - A34)  <  B$48, C34, "")
D35 = If(abs(B$47 - A35)  <  B$48, C35, "")
D36 = If(abs(B$47 - A36)  <  B$48, C36, "")
D37 = If(abs(B$47 - A37)  <  B$48, C37, "")
D38 = If(abs(B$47 - A38)  <  B$48, C38, "")
D39 = If(abs(B$47 - A39)  <  B$48, C39, "")
D40 = If(abs(B$47 - A40)  <  B$48, C40, "")
D41 = If(abs(B$47 - A41)  <  B$48, C41, "")
D42 = If(abs(B$47 - A42)  <  B$48, C42, "")
D43 = If(abs(B$47 - A43)  <  B$48, C43, "")
D44 = If(abs(B$47 - A44)  <  B$48, C44, "")
D45 = If(abs(B$47 - A45)  <  B$48, C45, "")
D46 = If(abs(B$47 - A46)  <  B$48, C46, "")
a = Ray(A', B)
D47: "" + (D27 + D28 + D29 + D30 + D31 + D32 + D33 + D34 + D35 + D36 + D37 + D38 + D39 + D40 + D41 + D42 + D43 + D44 + D45 + D46) + ""
b: x = x(A')
D = Intersect(d2, a, 1)
E = Intersect(d1, a, 1)
B' = Mirror(B, b)
D' = Mirror(D, b)
E' = Mirror(E, b)
s1 = Sector(d1, E, E')
s2 = Sector(d2, D, D')
s3 = Sector(d3, B, B')
r4:2.4
c4 = Circle(A, r4)
A50:1
A51:2
A52: (2 * A51) - A50
A53: (2 * A52) - A51
A54: (2 * A53) - A52
A55: (2 * A54) - A53
A56: (2 * A55) - A54
A57: (2 * A56) - A55
A58: (2 * A57) - A56
A59: (2 * A58) - A57
A60: (2 * A59) - A58
A61: (2 * A60) - A59
A62: (2 * A61) - A60
A63: (2 * A62) - A61
A64: (2 * A63) - A62
A65: (2 * A64) - A63
A66: (2 * A65) - A64
A67: (2 * A66) - A65
A68: (2 * A67) - A66
A69: (2 * A68) - A67
B_4 = Point(c4)
B50 = Rotate(B_4, (((A50 - 0.5) * 2) * π / n_3), A)
B51 = Rotate(B_4, (((A51 - 0.500000000000002) * 2) * π / n_3), A)
B52 = Rotate(B_4, (((A52 - 0.500000000000002) * 2) * π / n_3), A)
B53 = Rotate(B_4, (((A53 - 0.500000000000002) * 2) * π / n_3), A)
B54 = Rotate(B_4, (((A54 - 0.500000000000002) * 2) * π / n_3), A)
B55 = Rotate(B_4, (((A55 - 0.500000000000002) * 2) * π / n_3), A)
B56 = Rotate(B_4, (((A56 - 0.500000000000002) * 2) * π / n_3), A)
B57 = Rotate(B_4, (((A57 - 0.500000000000002) * 2) * π / n_3), A)
B58 = Rotate(B_4, (((A58 - 0.500000000000002) * 2) * π / n_3), A)
B59 = Rotate(B_4, (((A59 - 0.500000000000002) * 2) * π / n_3), A)
B60 = Rotate(B_4, (((A60 - 0.500000000000002) * 2) * π / n_3), A)
B61 = Rotate(B_4, (((A61 - 0.500000000000002) * 2) * π / n_3), A)
B62 = Rotate(B_4, (((A62 - 0.500000000000002) * 2) * π / n_3), A)
B63 = Rotate(B_4, (((A63 - 0.500000000000002) * 2) * π / n_3), A)
B64 = Rotate(B_4, (((A64 - 0.500000000000002) * 2) * π / n_3), A)
B65 = Rotate(B_4, (((A65 - 0.500000000000002) * 2) * π / n_3), A)
B66 = Rotate(B_4, (((A66 - 0.500000000000002) * 2) * π / n_3), A)
B67 = Rotate(B_4, (((A67 - 0.500000000000002) * 2) * π / n_3), A)
B68 = Rotate(B_4, (((A68 - 0.500000000000002) * 2) * π / n_3), A)
B69 = Rotate(B_4, (((A69 - 0.500000000000002) * 2) * π / n_3), A)
d4 = Circle(A', r4 + 0.25)
F = Intersect(d4, a, 1)
F' = Mirror(F, b)
s4 = Sector(d4, F, F')
α4 = Angle(B50, A, C')
B70: (α4 - π / 18) / ((2 * π / n_3)) + 1
B71:0.35
D50 = If(abs(B$70 - A50)  <  B$71, C50, "")
D51 = If(abs(B$70 - A51)  <  B$71, C51, "")
D52 = If(abs(B$70 - A52)  <  B$71, C52, "")
D53 = If(abs(B$70 - A53)  <  B$71, C53, "")
D54 = If(abs(B$70 - A54)  <  B$71, C54, "")
D55 = If(abs(B$70 - A55)  <  B$71, C55, "")
D56 = If(abs(B$70 - A56)  <  B$71, C56, "")
D57 = If(abs(B$70 - A57)  <  B$71, C57, "")
D58 = If(abs(B$70 - A58)  <  B$71, C58, "")
D59 = If(abs(B$70 - A59)  <  B$71, C59, "")
D60 = If(abs(B$70 - A60)  <  B$71, C60, "")
D61 = If(abs(B$70 - A61)  <  B$71, C61, "")
D62 = If(abs(B$70 - A62)  <  B$71, C62, "")
D63 = If(abs(B$70 - A63)  <  B$71, C63, "")
D64 = If(abs(B$70 - A64)  <  B$71, C64, "")
D65 = If(abs(B$70 - A65)  <  B$71, C65, "")
D66 = If(abs(B$70 - A66)  <  B$71, C66, "")
D67 = If(abs(B$70 - A67)  <  B$71, C67, "")
D68 = If(abs(B$70 - A68)  <  B$71, C68, "")
D69 = If(abs(B$70 - A69)  <  B$71, C69, "")
D70: "" + (D50 + D51 + D52 + D53 + D54 + D55 + D56 + D57 + D58 + D59 + D60 + D61 + D62 + D63 + D64 + D65 + D66 + D67 + D68 + D69) + ""
polígonopantalla, c, d, e, f = Polygon(Corner[1], Corner[2], Corner[3], Corner[4])
puntos1 = Sequence(PP + (0, (k * (alto - 1) / N_0)), k, (1 - N_0) / 2, N_0 / 2)
PPP: PP + (ancho / 3 - 0.5, 0)
N_1 = If(RUEDAS > 2, n_1, n_2)
N_2 = If(RUEDAS > 2, n_2, n_3)
puntos2 = Sequence((ancho / 3 - 0.5, (k * (alto - 1) / N_0 / N_1)), k, (1 - N_1) / 2, N_1 / 2)
ss2 = Sequence(Sequence[Segment[Element[puntos1, i], Element[puntos1, i] + Element[puntos2, j]], j, 1, N_1], i, 1, N_0)
ss1 = Sequence(Segment[P, PP + (0, (k * (alto - 1) / N_0))], k, (1 - N_0) / 2, N_0 / 2)
puntos3 = Sequence((ancho / 3 - 0.5, (k * (alto - 1) / N_0 / N_1 / N_2)), k, (1 - N_2) / 2, N_2 / 2)
arbol:0
ss3: {1, 2, 3}