Muestra rastro

Muestra la gráfica

Muestra la gráfica

Tiempo (segundos)

Altura (metros)

Muestra rastro

Posición

Borrar rastros

MARTA

PEPE

k_1 = 2 (slider from 1 to 5, step 1)
α = 0 (slider from 0 to 31.416, step 0.001)
r = 2.5 (slider from 1.5 to 3.2, step 0.1)
a = 2 (slider from -5 to 6, step 0.1)
B = (0, 2.5)
c = Circle(B, r)
A: (x(B), y(B) + r)
A_1 = Rotate(A, (α * k_1 / 5) - 45°, B)
A_3 = Rotate(A_1, 90°, B)
A_2 = Rotate(A_1, 45°, B)
A_4 = Rotate(A_1, 135°, B)
A_5 = Rotate(A_1, 180°, B)
A_6 = Rotate(A_1, 225°, B)
A_7 = Rotate(A_1, 270°, B)
A_8 = Rotate(A_1, 315°, B)
d = Segment(B, A_2)
e = Segment(B, A_1)
g = Segment(B, A_4)
h = Segment(B, A_5)
i = Segment(B, A_6)
j = Segment(B, A_7)
k = Segment(B, A_8)
polígono1, b_1, e_1, f_1 = Polygon((x(B) - 1, (-1.5)), (x(B) + 1, (-1.5)), B)
l = Segment(A_1, A_8)
m = Segment(A_8, A_7)
n = Segment(A_7, A_6)
p = Segment(A_6, A_5)
q = Segment(A_5, A_4)
s = Segment(A_4, A_3)
t = Segment(A_3, A_2)
a_1 = Segment(A_2, A_1)
jaula1, c_1, d_1, g_1, h_1, i_1 = Polygon(A_1, A_1 - (0.3, 0.3), A_1 - (0.3, 0.8), A_1 + (0.3, (-0.8)), A_1 + (0.3, (-0.3)))
jaula2, j_1, l_1, m_1, n_1, a_2 = Polygon(A_2, A_2 - (0.3, 0.3), A_2 - (0.3, 0.8), A_2 + (0.3, (-0.8)), A_2 + (0.3, (-0.3)))
jaula3, p_1, q_1, r_1, s_1, a_3 = Polygon(A_3, A_3 - (0.3, 0.3), A_3 - (0.3, 0.8), A_3 + (0.3, (-0.8)), A_3 + (0.3, (-0.3)))
jaula4, t_1, b_2, c_2, d_2, c_3 = Polygon(A_4, A_4 - (0.3, 0.3), A_4 - (0.3, 0.8), A_4 + (0.3, (-0.8)), A_4 + (0.3, (-0.3)))
jaula5, e_2, f_2, g_2, h_2, d_3 = Polygon(A_5, A_5 - (0.3, 0.3), A_5 - (0.3, 0.8), A_5 + (0.3, (-0.8)), A_5 + (0.3, (-0.3)))
jaula6, i_2, j_2, k_2, l_2, e_3 = Polygon(A_6, A_6 - (0.3, 0.3), A_6 - (0.3, 0.8), A_6 + (0.3, (-0.8)), A_6 + (0.3, (-0.3)))
jaula7, m_2, n_2, p_2, q_2, f_3 = Polygon(A_7, A_7 - (0.3, 0.3), A_7 - (0.3, 0.8), A_7 + (0.3, (-0.8)), A_7 + (0.3, (-0.3)))
jaula8, r_2, s_2, t_2, b_3, g_3 = Polygon(A_8, A_8 - (0.3, 0.3), A_8 - (0.3, 0.8), A_8 + (0.3, (-0.8)), A_8 + (0.3, (-0.3)))
b = Segment(A_1, A_3)
h_3 = Segment(A_3, A_5)
i_3 = Segment(A_5, A_7)
j_3 = Segment(A_7, A_1)
k_3 = Segment(A_2, A_4)
l_3 = Segment(A_4, A_6)
m_3 = Segment(A_6, A_8)
n_3 = Segment(A_8, A_2)
C = Intersect(l_3, i_3)
p_3 = Circle(B, C)
P2: (α / 3 + (3 * 3.141592653589793 / 2), y(A_3) - 0.5)
P1: (α / 3 + (3 * 3.141592653589793 / 2), y(A_1) - 0.5)
lista2 = Sequence(Segment[(s, (-1.6)), (s, 5.7)], s, 4.71239, 15.70796, 0.5236)
rotulosx = Sequence(Text[(30 * s), (If[s < 1, (3.141592653589793 / 3 * s) + (3 * 3.141592653589793 / 2) - 0.1, If[s < 4, (3.141592653589793 / 3 * s) + (3 * 3.141592653589793 / 2) - 0.15, (3.141592653589793 / 3 * s) + (3 * 3.141592653589793 / 2) - 0.25]], (-1.9))], s, 0, 10)
ejey = Segment((4.71239, -1.65), (4.71239, 5.8))
lista1 = Sequence(Segment[((3 * 3.141592653589793 / 2) - 0.1, (0.5 * s) - 1.5), (15.35, (0.5 * s) - 1.5)], s, 1, 14)
ejex = Segment((4.6, -1.5), (15.5, -1.5))
m1 = false
m2 = false
p2 = false
rotulosy = Sequence(Text[(5 * s), (If[s < 2, 4.35, 4.2], s - 1.6)], s, 0, 7)
P11: P1
P21: P2
p1 = false
martax = Segment(P1, ((3 * 3.141592653589793 / 2), y(P1)))
martay = Segment(P1, (x(P1), (-1.5)))
pepex = Segment(P2, ((3 * 3.141592653589793 / 2), y(P2)))
pepey = Segment(P2, (x(P2), (-1.5)))
texto1: "Velocidad: " + k_1
D = (8.620000000000001, -4.9)
E = (9.02, -4.86)
f = Segment(D, E)
Goma = Point(f)
f1(x) = If[4.71238898038469 < x < 15.184364492350666, (r * sin(((3 * k_1 / 5) * (x - 3.141592653589793 / 4)) + ((9 * 3.141592653589793) - ((3 * 3.141592653589793) * k_1)) / 4)) + 2]
f2(x) = If[4.71238898038469 < x < 15.184364492350666, (r * sin(((3 * k_1 / 5) * (x - 3.141592653589793 / 4)) + ((11 * 3.141592653589793) - ((3 * 3.141592653589793) * k_1)) / 4)) + 2]
texto6: "Radio: " + ((5 * r)) + " metros"
q_3 = Segment(A_3, B)