Inicializar

Animar

Manual

d_1

d_2

u_1

u_2

e_h

v_h

f / m

muelles

v_0

d_3

d_4

u_3

u_4

e_0

Mostrar ejes

A21: (4, -12, 0)
h: 0.4
B21: (0, 0, 0)
A22: (4, -4, 0)
D21 = Distance(A21, A22)
H21: (1 / D21 * Vector[A21, A22])
A27: (12, -12, 0)
E21 = Distance(A21, A27)
I21: (1 / E21 * Vector[A21, A27])
A20: (4, -20, 0)
F21 = Distance(A21, A20)
J21: (1 / F21 * Vector[A21, A20])
A15: (-4, -12, 0)
C21 = Distance(A21, A15)
G21: (1 / C21 * Vector[A21, A15])
minv: 1
L = 2.9 (slider from 1 to 6, step 0.1)
m = 3 (slider from 0.1 to 4, step 0.1)
k = 2 (slider from 0.1 to 4, step 0.1)
g = 2 (slider from 0.1 to 4, step 0.1)
vg: (0, 0, (-g))
K21: (((((-k) * (L - C21)) * G21) - ((k * (L - D21)) * H21) - ((k * (L - E21)) * I21) - ((k * (L - F21)) * J21) + (m * vg)) * minv)
L21: B21 + (K21 * h)
A12: (-12, 12, 0)
B12: (0, 0, 0)
A11: (-12, 4, 0)
F12 = Distance(A12, A11)
J12: (1 / F12 * Vector[A12, A11])
A6: (-20, 12, 0)
C12 = Distance(A12, A6)
G12: (1 / C12 * Vector[A12, A6])
A13: (-12, 20, 0)
D12 = Distance(A12, A13)
H12: (1 / D12 * Vector[A12, A13])
A18: (-4, 12, 0)
E12 = Distance(A12, A18)
I12: (1 / E12 * Vector[A12, A18])
K12: (((((-k) * (L - C12)) * G12) - ((k * (L - D12)) * H12) - ((k * (L - E12)) * I12) - ((k * (L - F12)) * J12) + (m * vg)) * minv)
L12: B12 + (K12 * h)
B11: (0, 0, 0)
A17: (-4, 4, 0)
E11 = Distance(A11, A17)
I11: (1 / E11 * Vector[A11, A17])
D11 = Distance(A11, A12)
H11: (1 / D11 * Vector[A11, A12])
A5: (-20, 4, 0)
C11 = Distance(A11, A5)
G11: (1 / C11 * Vector[A11, A5])
A10: (-12, -4, 0)
F11 = Distance(A11, A10)
J11: (1 / F11 * Vector[A11, A10])
K11: (((((-k) * (L - C11)) * G11) - ((k * (L - D11)) * H11) - ((k * (L - E11)) * I11) - ((k * (L - F11)) * J11) + (m * vg)) * minv)
L11: B11 + (K11 * h)
B10: (0, 0, 0)
A16: (-4, -4, 0)
A4: (-20, -4, 0)
A9: (-12, -12, 0)
D10 = Distance(A10, A11)
H10: (1 / D10 * Vector[A10, A11])
C10 = Distance(A10, A4)
G10: (1 / C10 * Vector[A10, A4])
E10 = Distance(A10, A16)
I10: (1 / E10 * Vector[A10, A16])
F10 = Distance(A10, A9)
J10: (1 / F10 * Vector[A10, A9])
K10: (((((-k) * (L - C10)) * G10) - ((k * (L - D10)) * H10) - ((k * (L - E10)) * I10) - ((k * (L - F10)) * J10) + (m * vg)) * minv)
L10: B10 + (K10 * h)
A8: (-12, -20, 0)
A3: (-20, -12, 0)
F9 = Distance(A9, A8)
J9: (1 / F9 * Vector[A9, A8])
E9 = Distance(A9, A15)
I9: (1 / E9 * Vector[A9, A15])
C9 = Distance(A9, A3)
G9: (1 / C9 * Vector[A9, A3])
D9 = Distance(A9, A10)
H9: (1 / D9 * Vector[A9, A10])
B9: (0, 0, 0)
K9: (((((-k) * (L - C9)) * G9) - ((k * (L - D9)) * H9) - ((k * (L - E9)) * I9) - ((k * (L - F9)) * J9) + (m * vg)) * minv)
L9: B9 + (K9 * h)
A19: (-4, 20, 0)
B19: (0, 0, 0)
A25: (4, 20, 0)
D19 = Distance(A19, A18)
H19: (1 / D19 * Vector[A19, A18])
E19 = Distance(A19, A25)
I19: (1 / E19 * Vector[A19, A25])
C19 = Distance(A19, A13)
G19: (1 / C19 * Vector[A19, A13])
K19: (((((-k) * (L - C19)) * G19) - ((k * (L - D19)) * H19) - ((k * (L - E19)) * I19) + (m * vg)) * minv)
L19: B19 + (K19 * h)
A37: (20, 20, 0)
A36: (20, 12, 0)
D36 = Distance(A36, A37)
H36: (1 / D36 * Vector[A36, A37])
A35: (20, 4, 0)
E36 = Distance(A36, A35)
I36: (1 / E36 * Vector[A36, A35])
A30: (12, 12, 0)
C36 = Distance(A36, A30)
G36: (1 / C36 * Vector[A36, A30])
D35 = Distance(A35, A36)
H35: (1 / D35 * Vector[A35, A36])
A29: (12, 4, 0)
C35 = Distance(A35, A29)
G35: (1 / C35 * Vector[A35, A29])
A34: (20, -4, 0)
E35 = Distance(A35, A34)
I35: (1 / E35 * Vector[A35, A34])
A28: (12, -4, 0)
A33: (20, -12, 0)
E34 = Distance(A34, A33)
I34: (1 / E34 * Vector[A34, A33])
D34 = Distance(A34, A35)
H34: (1 / D34 * Vector[A34, A35])
C34 = Distance(A34, A28)
G34: (1 / C34 * Vector[A34, A28])
D33 = Distance(A33, A34)
H33: (1 / D33 * Vector[A33, A34])
A32: (20, -20, 0)
E33 = Distance(A33, A32)
I33: (1 / E33 * Vector[A33, A32])
C33 = Distance(A33, A27)
G33: (1 / C33 * Vector[A33, A27])
E3 = Distance(A3, A9)
A2: (-20, -20, 0)
B2: (0, 0, 0)
C3 = Distance(A3, A2)
B5: (0, 0, 0)
B4: (0, 0, 0)
B3: (0, 0, 0)
A7: (-20, 20, 0)
D6 = Distance(A6, A7)
H6: (1 / D6 * Vector[A6, A7])
C6 = Distance(A6, A5)
G6: (1 / C6 * Vector[A6, A5])
D5 = Distance(A5, A6)
C5 = Distance(A5, A4)
G5: (1 / C5 * Vector[A5, A4])
H5: (1 / D5 * Vector[A5, A6])
D4 = Distance(A4, A5)
H4: (1 / D4 * Vector[A4, A5])
C4 = Distance(A4, A3)
G4: (1 / C4 * Vector[A4, A3])
numpun: 6
rutinaprincipal = 576 (slider from 0 to 1000, step 1)
anima = false
e_0: -20
D3 = Distance(A3, A4)
H3: (1 / D3 * Vector[A3, A4])
G3: (1 / C3 * Vector[A3, A2])
N4 = Segment(A4, A3)
N5 = Segment(A5, A4)
N6 = Segment(A6, A5)
N7 = Segment(A7, A6)
N9 = Segment(A9, A8)
N10 = Segment(A10, A9)
N11 = Segment(A11, A10)
N12 = Segment(A12, A11)
b: 0
c: 0
a: 0
A14: (-4, -20, 0)
A23: (4, 4, 0)
A24: (4, 12, 0)
A26: (12, -20, 0)
A31: (12, 20, 0)
B13: (0, 0, 0)
B14: (0, 0, 0)
B15: (0, 0, 0)
B16: (0, 0, 0)
B17: (0, 0, 0)
B18: (0, 0, 0)
B20: (0, 0, 0)
B22: (0, 0, 0)
B23: (0, 0, 0)
B24: (0, 0, 0)
B25: (0, 0, 0)
B26: (0, 0, 0)
B27: (0, 0, 0)
B28: (0, 0, 0)
B29: (0, 0, 0)
B30: (0, 0, 0)
B31: (0, 0, 0)
B32: (0, 0, 0)
B33: (0, 0, 0)
B34: (0, 0, 0)
B35: (0, 0, 0)
B36: (0, 0, 0)
B37: (0, 0, 0)
saltoinicial: (-2 * e_0 / (numpun - 1))
B6: (0, 0, 0)
B7: (0, 0, 0)
B8: (0, 0, 0)
E4 = Distance(A4, A10)
E5 = Distance(A5, A11)
E6 = Distance(A6, A12)
I4: (1 / E4 * Vector[A4, A10])
I5: (1 / E5 * Vector[A5, A11])
I6: (1 / E6 * Vector[A6, A12])
F3: 0
F4: 0
F5: 0
F6: 0
ddd = Cell(2, 3)
texto1 = Cell(1, 1)
J3: (0, 0, 0)
J4: (0, 0, 0)
J5: (0, 0, 0)
J6: (0, 0, 0)
I3: (1 / E3 * Vector[A3, A9])
K3: (((((-k) * (L - C3)) * G3) - ((k * (L - D3)) * H3) - ((k * (L - E3)) * I3) + (m * vg)) * minv)
K4: (((((-k) * (L - C4)) * G4) - ((k * (L - D4)) * H4) - ((k * (L - E4)) * I4) + (m * vg)) * minv)
K5: (((((-k) * (L - C5)) * G5) - ((k * (L - D5)) * H5) - ((k * (L - E5)) * I5) + (m * vg)) * minv)
K6: (((((-k) * (L - C6)) * G6) - ((k * (L - D6)) * H6) - ((k * (L - E6)) * I6) + (m * vg)) * minv)
L3: B3 + (K3 * h)
L4: B4 + (K4 * h)
L5: B5 + (K5 * h)
L6: B6 + (K6 * h)
M3: A3 + (h * L3)
M4: A4 + (h * L4)
M5: A5 + (h * L5)
M6: A6 + (h * L6)
E8 = Distance(A8, A14)
C8 = Distance(A8, A2)
D8 = Distance(A8, A9)
H8: (1 / D8 * Vector[A8, A9])
G8: (1 / C8 * Vector[A8, A2])
F8: 0
J8: (0, 0, 0)
I8: (1 / E8 * Vector[A8, A14])
K8: (((((-k) * (L - C8)) * G8) - ((k * (L - D8)) * H8) - ((k * (L - E8)) * I8) + (m * vg)) * minv)
L8: B8 + (K8 * h)
M8: A8 + (h * L8)
E14 = Distance(A14, A20)
C14 = Distance(A14, A8)
D14 = Distance(A14, A15)
H14: (1 / D14 * Vector[A14, A15])
G14: (1 / C14 * Vector[A14, A8])
F14: 0
I14: (1 / E14 * Vector[A14, A20])
K14: (((((-k) * (L - C14)) * G14) - ((k * (L - D14)) * H14) - ((k * (L - E14)) * I14) + (m * vg)) * minv)
L14: B14 + (K14 * h)
M14: A14 + (h * L14)
E20 = Distance(A20, A26)
C20 = Distance(A20, A14)
D20 = Distance(A20, A21)
H20: (1 / D20 * Vector[A20, A21])
G20: (1 / C20 * Vector[A20, A14])
F20: 0
J20: (0, 0, 0)
I20: (1 / E20 * Vector[A20, A26])
K20: (((((-k) * (L - C20)) * G20) - ((k * (L - D20)) * H20) - ((k * (L - E20)) * I20) + (m * vg)) * minv)
L20: B20 + (K20 * h)
M20: A20 + (h * L20)
E26 = Distance(A26, A32)
C26 = Distance(A26, A20)
D26 = Distance(A26, A27)
H26: (1 / D26 * Vector[A26, A27])
G26: (1 / C26 * Vector[A26, A20])
F26: 0
J26: (0, 0, 0)
I26: (1 / E26 * Vector[A26, A32])
K26: (((((-k) * (L - C26)) * G26) - ((k * (L - D26)) * H26) - ((k * (L - E26)) * I26) + (m * vg)) * minv)
L26: B26 + (K26 * h)
M26: A26 + (h * L26)
M9: A9 + (h * L9)
M10: A10 + (h * L10)
M11: A11 + (h * L11)
M12: A12 + (h * L12)
M19: A19 + (h * L19)
M21: A21 + (h * L21)
M32: A32
M37: A37
M7: A7
L7: (0, 0, 0)
L32: (0, 0, 0)
L37: (0, 0, 0)
L2: (0, 0, 0)
M2: A2
F33: 0
J33: (0, 0, 0)
K33: (((((-k) * (L - C33)) * G33) - ((k * (L - D33)) * H33) - ((k * (L - E33)) * I33) + (m * vg)) * minv)
L33: B33 + (K33 * h)
M33: A33 + (h * L33)
F34: 0
J34: (0, 0, 0)
K34: (((((-k) * (L - C34)) * G34) - ((k * (L - D34)) * H34) - ((k * (L - E34)) * I34) + (m * vg)) * minv)
L34: B34 + (K34 * h)
M34: A34 + (h * L34)
F35: 0
J35: (0, 0, 0)
K35: (((((-k) * (L - C35)) * G35) - ((k * (L - D35)) * H35) - ((k * (L - E35)) * I35) + (m * vg)) * minv)
L35: B35 + (K35 * h)
M35: A35 + (h * L35)
F36: 0
J36: (0, 0, 0)
K36: (((((-k) * (L - C36)) * G36) - ((k * (L - D36)) * H36) - ((k * (L - E36)) * I36) + (m * vg)) * minv)
L36: B36 + (K36 * h)
M36: A36 + (h * L36)
F19: 0
J19: (0, 0, 0)
D13 = Distance(A13, A12)
H13: (1 / D13 * Vector[A13, A12])
E13 = Distance(A13, A19)
I13: (1 / E13 * Vector[A13, A19])
C13 = Distance(A13, A7)
G13: (1 / C13 * Vector[A13, A7])
K13: (((((-k) * (L - C13)) * G13) - ((k * (L - D13)) * H13) - ((k * (L - E13)) * I13) + (m * vg)) * minv)
L13: B13 + (K13 * h)
M13: A13 + (h * L13)
F13: 0
J13: (0, 0, 0)
D31 = Distance(A31, A30)
H31: (1 / D31 * Vector[A31, A30])
E31 = Distance(A31, A37)
I31: (1 / E31 * Vector[A31, A37])
C31 = Distance(A31, A25)
G31: (1 / C31 * Vector[A31, A25])
K31: (((((-k) * (L - C31)) * G31) - ((k * (L - D31)) * H31) - ((k * (L - E31)) * I31) + (m * vg)) * minv)
L31: B31 + (K31 * h)
M31: A31 + (h * L31)
F31: 0
J31: (0, 0, 0)
D25 = Distance(A25, A24)
H25: (1 / D25 * Vector[A25, A24])
E25 = Distance(A25, A31)
I25: (1 / E25 * Vector[A25, A31])
C25 = Distance(A25, A19)
G25: (1 / C25 * Vector[A25, A19])
K25: (((((-k) * (L - C25)) * G25) - ((k * (L - D25)) * H25) - ((k * (L - E25)) * I25) + (m * vg)) * minv)
L25: B25 + (K25 * h)
M25: A25 + (h * L25)
F25: 0
J25: (0, 0, 0)
J14: (0, 0, 0)
F15 = Distance(A15, A14)
J15: (1 / F15 * Vector[A15, A14])
C15 = Distance(A15, A9)
G15: (1 / C15 * Vector[A15, A9])
D15 = Distance(A15, A16)
H15: (1 / D15 * Vector[A15, A16])
E15 = Distance(A15, A21)
I15: (1 / E15 * Vector[A15, A21])
K15: (((((-k) * (L - C15)) * G15) - ((k * (L - D15)) * H15) - ((k * (L - E15)) * I15) - ((k * (L - F15)) * J15) + (m * vg)) * minv)
L15: B15 + (K15 * h)
M15: A15 + (h * L15)
F16 = Distance(A16, A15)
J16: (1 / F16 * Vector[A16, A15])
C16 = Distance(A16, A10)
G16: (1 / C16 * Vector[A16, A10])
D16 = Distance(A16, A17)
H16: (1 / D16 * Vector[A16, A17])
E16 = Distance(A16, A22)
I16: (1 / E16 * Vector[A16, A22])
K16: (((((-k) * (L - C16)) * G16) - ((k * (L - D16)) * H16) - ((k * (L - E16)) * I16) - ((k * (L - F16)) * J16) + (m * vg)) * minv)
L16: B16 + (K16 * h)
M16: A16 + (h * L16)
F17 = Distance(A17, A16)
J17: (1 / F17 * Vector[A17, A16])
C17 = Distance(A17, A11)
G17: (1 / C17 * Vector[A17, A11])
D17 = Distance(A17, A18)
H17: (1 / D17 * Vector[A17, A18])
E17 = Distance(A17, A23)
I17: (1 / E17 * Vector[A17, A23])
K17: (((((-k) * (L - C17)) * G17) - ((k * (L - D17)) * H17) - ((k * (L - E17)) * I17) - ((k * (L - F17)) * J17) + (m * vg)) * minv)
L17: B17 + (K17 * h)
M17: A17 + (h * L17)
F18 = Distance(A18, A17)
J18: (1 / F18 * Vector[A18, A17])
C18 = Distance(A18, A12)
G18: (1 / C18 * Vector[A18, A12])
D18 = Distance(A18, A19)
H18: (1 / D18 * Vector[A18, A19])
E18 = Distance(A18, A24)
I18: (1 / E18 * Vector[A18, A24])
K18: (((((-k) * (L - C18)) * G18) - ((k * (L - D18)) * H18) - ((k * (L - E18)) * I18) - ((k * (L - F18)) * J18) + (m * vg)) * minv)
L18: B18 + (K18 * h)
M18: A18 + (h * L18)
D22 = Distance(A22, A23)
H22: (1 / D22 * Vector[A22, A23])
E22 = Distance(A22, A28)
I22: (1 / E22 * Vector[A22, A28])
F22 = Distance(A22, A21)
J22: (1 / F22 * Vector[A22, A21])
C22 = Distance(A22, A16)
G22: (1 / C22 * Vector[A22, A16])
K22: (((((-k) * (L - C22)) * G22) - ((k * (L - D22)) * H22) - ((k * (L - E22)) * I22) - ((k * (L - F22)) * J22) + (m * vg)) * minv)
L22: B22 + (K22 * h)
M22: A22 + (h * L22)
D23 = Distance(A23, A24)
H23: (1 / D23 * Vector[A23, A24])
E23 = Distance(A23, A29)
I23: (1 / E23 * Vector[A23, A29])
F23 = Distance(A23, A22)
J23: (1 / F23 * Vector[A23, A22])
C23 = Distance(A23, A17)
G23: (1 / C23 * Vector[A23, A17])
K23: (((((-k) * (L - C23)) * G23) - ((k * (L - D23)) * H23) - ((k * (L - E23)) * I23) - ((k * (L - F23)) * J23) + (m * vg)) * minv)
L23: B23 + (K23 * h)
M23: A23 + (h * L23)
D24 = Distance(A24, A25)
H24: (1 / D24 * Vector[A24, A25])
E24 = Distance(A24, A30)
I24: (1 / E24 * Vector[A24, A30])
F24 = Distance(A24, A23)
J24: (1 / F24 * Vector[A24, A23])
C24 = Distance(A24, A18)
G24: (1 / C24 * Vector[A24, A18])
K24: (((((-k) * (L - C24)) * G24) - ((k * (L - D24)) * H24) - ((k * (L - E24)) * I24) - ((k * (L - F24)) * J24) + (m * vg)) * minv)
L24: B24 + (K24 * h)
M24: A24 + (h * L24)
F27 = Distance(A27, A26)
J27: (1 / F27 * Vector[A27, A26])
C27 = Distance(A27, A21)
G27: (1 / C27 * Vector[A27, A21])
D27 = Distance(A27, A28)
H27: (1 / D27 * Vector[A27, A28])
E27 = Distance(A27, A33)
I27: (1 / E27 * Vector[A27, A33])
K27: (((((-k) * (L - C27)) * G27) - ((k * (L - D27)) * H27) - ((k * (L - E27)) * I27) - ((k * (L - F27)) * J27) + (m * vg)) * minv)
L27: B27 + (K27 * h)
M27: A27 + (h * L27)
F28 = Distance(A28, A27)
J28: (1 / F28 * Vector[A28, A27])
C28 = Distance(A28, A22)
G28: (1 / C28 * Vector[A28, A22])
D28 = Distance(A28, A29)
H28: (1 / D28 * Vector[A28, A29])
E28 = Distance(A28, A34)
I28: (1 / E28 * Vector[A28, A34])
K28: (((((-k) * (L - C28)) * G28) - ((k * (L - D28)) * H28) - ((k * (L - E28)) * I28) - ((k * (L - F28)) * J28) + (m * vg)) * minv)
L28: B28 + (K28 * h)
M28: A28 + (h * L28)
F29 = Distance(A29, A28)
J29: (1 / F29 * Vector[A29, A28])
C29 = Distance(A29, A23)
G29: (1 / C29 * Vector[A29, A23])
D29 = Distance(A29, A30)
H29: (1 / D29 * Vector[A29, A30])
E29 = Distance(A29, A35)
I29: (1 / E29 * Vector[A29, A35])
K29: (((((-k) * (L - C29)) * G29) - ((k * (L - D29)) * H29) - ((k * (L - E29)) * I29) - ((k * (L - F29)) * J29) + (m * vg)) * minv)
L29: B29 + (K29 * h)
M29: A29 + (h * L29)
F30 = Distance(A30, A29)
J30: (1 / F30 * Vector[A30, A29])
C30 = Distance(A30, A24)
G30: (1 / C30 * Vector[A30, A24])
D30 = Distance(A30, A31)
H30: (1 / D30 * Vector[A30, A31])
E30 = Distance(A30, A36)
I30: (1 / E30 * Vector[A30, A36])
K30: (((((-k) * (L - C30)) * G30) - ((k * (L - D30)) * H30) - ((k * (L - E30)) * I30) - ((k * (L - F30)) * J30) + (m * vg)) * minv)
L30: B30 + (K30 * h)
M30: A30 + (h * L30)
N3 = Segment(A3, A2)
N13 = Segment(A13, A12)
N15 = Segment(A15, A14)
N16 = Segment(A16, A15)
N17 = Segment(A17, A16)
N18 = Segment(A18, A17)
N19 = Segment(A19, A18)
N21 = Segment(A21, A20)
N22 = Segment(A22, A21)
N23 = Segment(A23, A22)
N24 = Segment(A24, A23)
N25 = Segment(A25, A24)
N27 = Segment(A27, A26)
N28 = Segment(A28, A27)
N29 = Segment(A29, A28)
N30 = Segment(A30, A29)
N31 = Segment(A31, A30)
N33 = Segment(A33, A32)
N34 = Segment(A34, A33)
N35 = Segment(A35, A34)
N36 = Segment(A36, A35)
N37 = Segment(A37, A36)
O3 = Segment(A2, A8)
O4 = Segment(A3, A9)
O5 = Segment(A4, A10)
O6 = Segment(A5, A11)
O7 = Segment(A6, A12)
O8 = Segment(A7, A13)
O9 = Segment(A8, A14)
O10 = Segment(A9, A15)
O11 = Segment(A10, A16)
O12 = Segment(A11, A17)
O13 = Segment(A12, A18)
O14 = Segment(A13, A19)
O15 = Segment(A14, A20)
O16 = Segment(A15, A21)
O17 = Segment(A16, A22)
O18 = Segment(A17, A23)
O19 = Segment(A18, A24)
O20 = Segment(A19, A25)
O21 = Segment(A20, A26)
O22 = Segment(A21, A27)
O23 = Segment(A22, A28)
O24 = Segment(A23, A29)
O25 = Segment(A24, A30)
O26 = Segment(A25, A31)
O27 = Segment(A26, A32)
O28 = Segment(A27, A33)
O29 = Segment(A28, A34)
O30 = Segment(A29, A35)
O31 = Segment(A30, A36)
O32 = Segment(A31, A37)
ejes = false