Volantes

Transmisión

Rastro

Curva

Comprobar

r_1

y

x

v_1 t

Volantes1 = 3 (slider from 1 to 6, step 1)
Orden1 = 5 (slider from 2 to 20, step 1)
Volantes: round(Volantes1)
Orden: round(Orden1)
verVolantes = true
verTransmisión = true
verRastro = false
verCurva = false
comprobar = false
circun = 6
E1 = (9.2, 0.32)
cc = Circle(E1, (2 * circun))
c = Circle(E1, circun)
P = Point(c)
PP = Intersect(cc, Ray[E1, P])
r1 = 2.4 (slider from 0.1 to 3, step 0.1)
r2 = 1.2 (slider from 0.1 to 3, step 0.1)
r3 = 1 (slider from 0.1 to 3, step 0.1)
r4 = 0.8 (slider from 0.1 to 3, step 0.1)
r5 = 0.6 (slider from 0.1 to 3, step 0.1)
r6 = 0.4 (slider from 0.1 to 3, step 0.1)
v1 = 1 (slider from -20 to 20, step 1)
v2 = 6 (slider from -20 to 20, step 1)
v3 = -4 (slider from -20 to 20, step 1)
v4 = 1 (slider from -20 to 20, step 1)
v5 = 11 (slider from -20 to 20, step 1)
v6 = -2 (slider from -20 to 20, step 1)
f2 = 0 rad (slider from 0 to 4.71238898038469, step 1.5707963267948966)
f3 = 1.5707963267948966 rad (slider from 0 to 4.71238898038469, step 1.5707963267948966)
f4 = 0 rad (slider from 0 to 4.71238898038469, step 1.5707963267948966)
f5 = 0 rad (slider from 0 to 4.71238898038469, step 1.5707963267948966)
f6 = 0 rad (slider from 0 to 4.71238898038469, step 1.5707963267948966)
α = Angle(E1 + (1, 0), E1, P)
E2 = Rotate(E1 + (r1, 0), (v1 * α), E1)
E3 = Rotate(E2 + (r2, 0), f2 + (v2 * α), E2)
E4 = Rotate(E3 + (r3, 0), f3 + (v3 * α), E3)
lugar3 = Locus(E4, P)
Ba3 = Point(lugar3)
E5 = Rotate(E4 + (r4, 0), f4 + (v4 * α), E4)
E6 = Rotate(E5 + (r5, 0), f5 + (v5 * α), E5)
E7 = Rotate(E6 + (r6, 0), f6 + (v6 * α), E6)
lugar6 = Locus(E7, P)
Ba6 = Point(lugar6)
lugar5 = Locus(E6, P)
Ba5 = Point(lugar5)
lugar4 = Locus(E5, P)
Ba4 = Point(lugar4)
lugar2 = Locus(E3, P)
Ba2 = Point(lugar2)
lugar1 = Locus(E2, P)
Ba1 = Point(lugar1)
yB1 = 2.36
xB1 = 4.36 (slider from 3.06 to 50, step 0.01)
A = (-5, -4.8)
B = (3, -4.8)
C = (3, 2.4)
D = (-5, 2.4)
texto1: "r_1 = " + r1
texto2: "r_2 = " + r2
texto3: "r_3 = " + r3
texto4: "r_4 = " + r4
texto5: "r_5 = " + r5
texto6: "r_6 = " + r6
texto7: "v_1 = " + v1
texto8: "v_2 = " + v2
texto9: "v_3 = " + v3
texto10: "v_4 = " + v4
texto11: "v_5 = " + v5
texto12: "v_6 = " + v6
c_1 = Circle(E1, r1)
c_2 = Circle(E2, r2)
c_3 = Circle(E3, r3)
xBorra = -3 (slider from -3 to -2.5, step 0.01)
yBorra = 3.2600000000000002 (slider from 3.25 to 3.75, step 0.01)
PuntoGoma: (xBorra, yBorra)
EE2: E2
EE3: E3
EE4: E4
c_4 = Circle(E4, r4)
EE5: E5
c_5 = Circle(E5, r5)
c_6 = Circle(E6, r6)
EE6: E6
EE7: E7
s1 = Segment(E1, E2)
s2 = Segment(E2, E3)
s3 = Segment(E3, E4)
s4 = Segment(E4, E5)
s5 = Segment(E5, E6)
s6 = Segment(E6, E7)
lista1 = Sequence(Mod[(20 * Orden) + Object["v" + (k)], Orden], k, 1, 6)
lista2 = First(lista1, Volantes)
lista3 = Union(lista2, {})
test = If(Length[lista3] ≟ 1, true, false)
rr2 = If(Volantes > 1, r2, 0)
rr3 = If(Volantes > 2, r3, 0)
rr4 = If(Volantes > 3, r4, 0)
rr5 = If(Volantes > 4, r5, 0)
P1 = Rotate(PP, 3.141592653589793 - (Mod[Orden, 2] * 3.141592653589793 / Orden), E1)
rr6 = If(Volantes > 5, r6, 0)
P2 = Rotate(PP, 3.141592653589793 + (2 * 3.141592653589793 / Orden) - (Mod[Orden, 2] * 3.141592653589793 / Orden), E1)
d = CircleSector(E1, P1, P2)
lista4 = Sequence(Segment[E1, Rotate[P, ((2 * 3.141592653589793) * k / Orden), E1]], k, 0, Orden - 1)
ang1 = Angle(E1 + (1, 0), E1, P1)
lista6: {Ba1, Ba2, Ba3, Ba4, Ba5, Ba6}
B1 = Element(lista6, Volantes)
ang2 = Angle(E1 + (1, 0), E1, P2)
lista5 = Sequence(Rotate[B1, ((2 * 3.141592653589793) * k / Orden), E1], k, 0, Orden - 1)
A2 = 2
A3 = 3
A4: (2 * A3) - A2
A5: (2 * A4) - A3
A6: (2 * A5) - A4
A7: (2 * A6) - A5
A8: (2 * A7) - A6
A9: (2 * A8) - A7
A10: (2 * A9) - A8
A11: (2 * A10) - A9
A12: (2 * A11) - A10
A13: (2 * A12) - A11
A14: (2 * A13) - A12
A15: (2 * A14) - A13
A16: (2 * A15) - A14
A17: (2 * A16) - A15
A18: (2 * A17) - A16
A19: (2 * A18) - A17
A20: (2 * A19) - A18
B2 = Element(lista5, A2)
B3 = Element(lista5, A3)
B4 = Element(lista5, A4)
B5 = Element(lista5, A5)
B6 = Element(lista5, A6)
B7 = Element(lista5, A7)
B8 = Element(lista5, A8)
B9 = Element(lista5, A9)
B10 = Element(lista5, A10)
B11 = Element(lista5, A11)
B12 = Element(lista5, A12)
B13 = Element(lista5, A13)
B14 = Element(lista5, A14)
B15 = Element(lista5, A15)
B16 = Element(lista5, A16)
B17 = Element(lista5, A17)
B18 = Element(lista5, A18)
B19 = Element(lista5, A19)
B20 = Element(lista5, A20)
a = Ray(E1, B1)
b = Segment(P2, P1)
E = Intersect(a, b)
testB: (AffineRatio[P1, P2, E] ≥ 0) ∧ (AffineRatio[P1, P2, E] ≤ 1)
Bb1: Ba1
Bb2: Ba2
Bb3: Ba3
Bb4: Ba4
Bb5: Ba5
Bb6: Ba6
F = (-5, 1.2)
G = (3, 1.2)
H = (-5, 0)
I = (3, 0)
J = (-5, -1.2)
K = (3, -1.2)
L = (-5, -2.4)
M = (3, -2.4)
N = (-5, -3.5999999999999996)
O = (3, -3.5999999999999996)
lista7: {Polygon[H, I, G, F], Polygon[L, M, K, J], Polygon[A, B, O, N]}
texto13: "f_2 =" + f2
texto14: "f_3 = " + f3
texto15: "f_4 = " + f4
texto16: "f_5 = " + f5
texto17: "f_6 = " + f6
texto18: "Este trazado no tiene simetría rotacional de orden " + Orden + "."
testC = If(r4 ≟ 1.4 ∧ r5 ≟ 1.5 ∧ r6 ≟ 0.9, true, false)
e = Segment(E1, EE2)
Q: (x(EE2), y(E1))
f = Segment(EE2, Q)
g = Segment(E1, Q)
β = Angle(Q, E1, EE2)
texto19: "Volantes = " + Volantes
texto20: "Orden = " + Orden