e_0

Inicializar

Parar

v_0

d_{i-1}

d_{i+1}

u_{i-1}

u_{i+1}

e_h

v_h

f / m

muelles

A12: (-20, 0, 0)
A11: (-16.615827938307362, 0, -4.681349267506112)
C12 = Distance(A11, A12)
A10: (-12.94693287748752, 0, -8.628995633746488)
C11 = Distance(A10, A11)
D11 = Distance(A11, A12)
A9: (-8.941948315332391, 0, -11.707405290464086)
C10 = Distance(A9, A10)
A8: (-4.591589804443235, 0, -13.71412822318819)
A7: (-0.0004817874439308158, 0, -14.420478383191066)
C8 = Distance(A7, A8)
A6: (4.590692844438395, 0, -13.715136279237495)
A5: (8.941178200445837, 0, -11.70898137057586)
C6 = Distance(A5, A6)
A4: (12.946305267955358, 0, -8.630566806768686)
A3: (16.615431826564603, 0, -4.682373156534895)
C4 = Distance(A3, A4)
h: 0.4
g = 1 (slider from 0.1 to 4, step 0.1)
vg: (0, 0, (-g))
k = 2 (slider from 0.1 to 4, step 0.1)
m = 1 (slider from 0.1 to 4, step 0.1)
L = 3 (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)
B11: (0.00005656123611752392, 0, 0.00024020284021832332)
H11: B11 + (G11 * h)
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)
B10: (0.0001843031187819808, 0, 0.0006029095725236142)
H10: B10 + (G10 * h)
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)
B9: (0.0003220581273638069, 0, 0.0011170366327999555)
H9: B9 + (G9 * h)
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)
B8: (0.0003111097983415901, 0, 0.001698392257482093)
H8: B8 + (G8 * h)
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)
B7: (0.000054620387354266686, 0, 0.0020375071525459416)
H7: B7 + (G7 * h)
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)
B6: (-0.00024083599826270777, 0, 0.0018724945345932888)
H6: B6 + (G6 * h)
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)
B5: (-0.00032275273315834945, 0, 0.0013666161184649889)
H5: B5 + (G5 * h)
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)
B4: (-0.00022537957528302862, 0, 0.0008261512914118354)
H4: B4 + (G4 * h)
A2: (20, 0, 0)
numpun: 11
rutinaprincipal = 915 (slider from 0 to 1000, step 1)
anima = true
e_0: 20
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)
B3: (-0.00009315698657046307, 0, 0.000372462383318669)
H3: B3 + (G3 * h)
J3 = Segment(A3, A2)
J4 = Segment(A4, A3)
J5 = Segment(A5, A4)
J6 = Segment(A6, A5)
J7 = Segment(A7, A6)
J8 = Segment(A8, A7)
J9 = Segment(A9, A8)
J10 = Segment(A10, A9)
J11 = Segment(A11, A10)
J12 = Segment(A12, A11)
E12: (1 / C12 * Vector[A12, A11])
I3: A3 + (h * H3)
saltoinicial: (2 * e_0 / (numpun - 1))
I4: A4 + (h * H4)
I5: A5 + (h * H5)
I6: A6 + (h * H6)
I7: A7 + (h * H7)
I8: A8 + (h * H8)
I9: A9 + (h * H9)
I10: A10 + (h * H10)
I11: A11 + (h * H11)
b: 0
c: 0
a: 0
B2: (0, 0, 0)
B12: (0, 0, 0)