P_0

Inicializar

Animar

v_0

m_i

m_d

v_i

v_d

P

v

f(x) / m

mg

mg

A12 = (-21.008327454059177, 0.8642806749078771)
A11: (-17.182055217860423, -7.290169359569796)
C12 = Distance(A11, A12)
A10: (-12.993020822449614, -14.250954459609309)
C11 = Distance(A10, A11)
D11 = Distance(A11, A12)
A9: (-8.295042405833751, -19.848306071013795)
C10 = Distance(A9, A10)
A8: (-2.9231290442851874, -23.720214086856938)
A7: (3.0840524826354527, -25.22511530805756)
C8 = Distance(A7, A8)
A6: (9.117666499048513, -23.900041605440826)
A5: (14.536582989371242, -20.161400346481752)
C6 = Distance(A5, A6)
A4: (19.275314227731265, -14.664748351781457)
A3: (23.49571928710926, -7.788884385806903)
C4 = Distance(A3, A4)
h: 0.4
B11: (0.0014846716558405799, 0.0007596755125842093)
g = 1 (slider from 0.1 to 5, step 0.1)
vg: (0, (-g))
k = 1 (slider from 0.1 to 4, step 0.1)
m = 1 (slider from 0.1 to 5, step 0.1)
L = 4 (slider from 1 to 6, step 0.1)
F11: (1 / D11 * Vector[A11, A12])
E11: (1 / C11 * Vector[A11, A10])
minv: 1
G11: (((((-k) * (L - C11)) * E11) - ((k * (L - D11)) * F11) + (m * vg)) * minv)
H11: B11 + (G11 * h)
B10: (0.0021073125794808293, 0.0011851147846141934)
D10 = Distance(A10, A11)
F10: (1 / D10 * Vector[A10, A11])
E10: (1 / C10 * Vector[A10, A9])
G10: (((((-k) * (L - C10)) * E10) - ((k * (L - D10)) * F10) + (m * vg)) * minv)
H10: B10 + (G10 * h)
B9: (0.001172619096136028, 0.000587481824401965)
D9 = Distance(A9, A10)
C9 = Distance(A8, A9)
E9: (1 / C9 * Vector[A9, A8])
F9: (1 / D9 * Vector[A9, A10])
G9: (((((-k) * (L - C9)) * E9) - ((k * (L - D9)) * F9) + (m * vg)) * minv)
H9: B9 + (G9 * h)
B8: (0.00020835962955217783, -0.0003150873584370685)
D8 = Distance(A8, A9)
F8: (1 / D8 * Vector[A8, A9])
E8: (1 / C8 * Vector[A8, A7])
G8: (((((-k) * (L - C8)) * E8) - ((k * (L - D8)) * F8) + (m * vg)) * minv)
H8: B8 + (G8 * h)
B7: (0.0003391893796662172, 0.0004566313752424914)
D7 = Distance(A7, A8)
C7 = Distance(A6, A7)
E7: (1 / C7 * Vector[A7, A6])
F7: (1 / D7 * Vector[A7, A8])
G7: (((((-k) * (L - C7)) * E7) - ((k * (L - D7)) * F7) + (m * vg)) * minv)
H7: B7 + (G7 * h)
B6: (0.0005943102583263409, 0.0007265348939458297)
D6 = Distance(A6, A7)
F6: (1 / D6 * Vector[A6, A7])
E6: (1 / C6 * Vector[A6, A5])
G6: (((((-k) * (L - C6)) * E6) - ((k * (L - D6)) * F6) + (m * vg)) * minv)
H6: B6 + (G6 * h)
B5: (0.0017334306354940588, -0.00037448031491446696)
D5 = Distance(A5, A6)
C5 = Distance(A4, A5)
E5: (1 / C5 * Vector[A5, A4])
F5: (1 / D5 * Vector[A5, A6])
G5: (((((-k) * (L - C5)) * E5) - ((k * (L - D5)) * F5) + (m * vg)) * minv)
H5: B5 + (G5 * h)
B4: (0.002841903036157262, -0.0012182346421588646)
D4 = Distance(A4, A5)
F4: (1 / D4 * Vector[A4, A5])
E4: (1 / C4 * Vector[A4, A3])
G4: (((((-k) * (L - C4)) * E4) - ((k * (L - D4)) * F4) + (m * vg)) * minv)
H4: B4 + (G4 * h)
A2 = (27.34638573671687, 0.2880935583026254)
numpun: 11
rutinaprincipal = 3.8 (slider from -5 to 5, step 0.1)
anima = false
P_0x: 20
P_0y: 0
B2: (0, 0)
B3: (0.0021693440190532725, -0.0009177253603930334)
B12: (0, 0)
C3 = Distance(A2, A3)
D3 = Distance(A3, A4)
F3: (1 / D3 * Vector[A3, A4])
E3: (1 / C3 * Vector[A3, A2])
G3: (((((-k) * (L - C3)) * E3) - ((k * (L - D3)) * F3) + (m * vg)) * minv)
H3: B3 + (G3 * h)
J3 = Segment(A3, A2)
J4 = Segment(A4, A3)
J5 = Segment(A5, A4)
J6 = Segment(A6, A5)
J7 = Segment(A7, A6)
f_{i+1} = Segment(A8, A7)
f_{i-1} = Segment(A9, A8)
J10 = Segment(A10, A9)
J11 = Segment(A11, A10)
J12 = Segment(A12, A11)
E12: (1 / C12 * Vector[A12, A11])
I3: A3 + (h * (B3 + (G3 * h)))
I4: A4 + (h * (B4 + (G4 * h)))
I5: A5 + (h * (B5 + (G5 * h)))
I6: A6 + (h * (B6 + (G6 * h)))
I7: A7 + (h * (B7 + (G7 * h)))
I8: A8 + (h * (B8 + (G8 * h)))
I9: A9 + (h * (B9 + (G9 * h)))
I10: A10 + (h * (B10 + (G10 * h)))
I11: A11 + (h * (B11 + (G11 * h)))
saltoinicial: (2 * P_0x / (numpun - 1))
B_i = Intersect(f_{i+1}, f_{i-1})
B_{i-1} = Intersect(f_{i-1}, J10)
u = Vector(B_i, B_{i-1})
B_{i+1} = Intersect(J7, f_{i+1})
v = Vector(B_i, B_{i+1})
D = (-3.05829591559675, -29.43006827125911)
w = Vector(B_i, D)
A = (-3.0144667143018147, -28.701102033109994)
f = Segment(B_i, A)