Inicializar

Animar

Mostrar ejes

P_0

θ_0

f/m

θ_f

w_0

w_f

B4 = 0.5235987755982988
O: (0, 0, 0)
L = 5 (slider from 1 to 10, step 0.1)
A2: L
A3: A2 + 0.6
A4: A3 + 0.6
B3 = 0.5235987755982988
D4: O + (A4 * ((-cos(B4)), 0, (-sin(B4))))
g = 10 (slider from 0.1 to 20, step 0.1)
vg: (0, 0, (-g))
D3: O + (A3 * ((-cos(B3)), 0, (-sin(B3))))
C4 = 0
h: 0.1
B2 = 0.5235987755982988
D2: O + (A2 * ((-cos(B2)), 0, (-sin(B2))))
E4: vg - ((g * sin(B4)) * UnitVector[Vector[O, D4]])
F4 = If(x(E4) > 0, abs(E4), (-abs(E4)))
C3 = 0
E3: vg - ((g * sin(B3)) * UnitVector[Vector[O, D3]])
F3 = If(x(E3) > 0, abs(E3), (-abs(E3)))
E2: vg - ((g * sin(B2)) * UnitVector[Vector[O, D2]])
C2 = 0
m = 1 (slider from 0.1 to 4, step 0.1)
α0 = 0.5235987755982988 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
rutinaprincipal = 891 (slider from 0 to 1000, step 1)
anima = false
a: 0
ejes = false
P2 = Segment(O, D2)
F2 = If(x(E2) > 0, abs(E2), (-abs(E2)))
G2: C2 + (h * F2 / A2)
energiapotencial: ((m * g) * (L + z(D2)))
energiacinetica: ((0.5 * m) * (abs((C2 * L)))^(2))
energia: energiacinetica + energiapotencial
G3: C3 + (h * F3 / A3)
G4: C4 + (h * F4 / A4)
O + A4 (-cos(B4), 0, -sen(B4)): vg - ((g * sin(B4)) * UnitVector[Vector[O, D4]])
B5 = 0.5235987755982988
A5: A4 + 0.6
D5: O + (A5 * ((-cos(B5)), 0, (-sin(B5))))
C5 = 0
E5: vg - ((g * sin(B5)) * UnitVector[Vector[O, D5]])
F5 = If(x(E5) > 0, abs(E5), (-abs(E5)))
G5: C5 + (h * F5 / A5)
B6 = 0.5235987755982988
A6: A5 + 0.6
D6: O + (A6 * ((-cos(B6)), 0, (-sin(B6))))
C6 = 0
E6: vg - ((g * sin(B6)) * UnitVector[Vector[O, D6]])
F6 = If(x(E6) > 0, abs(E6), (-abs(E6)))
G6: C6 + (h * F6 / A6)
B7 = 0.5235987755982988
A7: A6 + 0.6
D7: O + (A7 * ((-cos(B7)), 0, (-sin(B7))))
C7 = 0
E7: vg - ((g * sin(B7)) * UnitVector[Vector[O, D7]])
F7 = If(x(E7) > 0, abs(E7), (-abs(E7)))
G7: C7 + (h * F7 / A7)
B8 = 0.5235987755982988
A8: A7 + 0.6
D8: O + (A8 * ((-cos(B8)), 0, (-sin(B8))))
C8 = 0
E8: vg - ((g * sin(B8)) * UnitVector[Vector[O, D8]])
F8 = If(x(E8) > 0, abs(E8), (-abs(E8)))
G8: C8 + (h * F8 / A8)
H2: B2 + (h * G2)
H3: B3 + (h * G3)
H4: B4 + (h * G4)
H5: B5 + (h * G5)
H6: B6 + (h * G6)
H7: B7 + (h * G7)
H8: B8 + (h * G8)
B9 = 0.5235987755982988
A9: A8 + 0.6
D9: O + (A9 * ((-cos(B9)), 0, (-sin(B9))))
C9 = 0
E9: vg - ((g * sin(B9)) * UnitVector[Vector[O, D9]])
F9 = If(x(E9) > 0, abs(E9), (-abs(E9)))
G9: C9 + (h * F9 / A9)
H9: B9 + (h * G9)
B10 = 0.5235987755982988
A10: A9 + 0.6
D10: O + (A10 * ((-cos(B10)), 0, (-sin(B10))))
C10 = 0
E10: vg - ((g * sin(B10)) * UnitVector[Vector[O, D10]])
F10 = If(x(E10) > 0, abs(E10), (-abs(E10)))
G10: C10 + (h * F10 / A10)
H10: B10 + (h * G10)
B11 = 0.5235987755982988
A11: A10 + 0.6
D11: O + (A11 * ((-cos(B11)), 0, (-sin(B11))))
C11 = 0
E11: vg - ((g * sin(B11)) * UnitVector[Vector[O, D11]])
F11 = If(x(E11) > 0, abs(E11), (-abs(E11)))
G11: C11 + (h * F11 / A11)
H11: B11 + (h * G11)
B12 = 0.5235987755982988
A12: A11 + 0.6
D12: O + (A12 * ((-cos(B12)), 0, (-sin(B12))))
C12 = 0
E12: vg - ((g * sin(B12)) * UnitVector[Vector[O, D12]])
F12 = If(x(E12) > 0, abs(E12), (-abs(E12)))
G12: C12 + (h * F12 / A12)
H12: B12 + (h * G12)
B13 = 0.5235987755982988
A13: A12 + 0.6
D13: O + (A13 * ((-cos(B13)), 0, (-sin(B13))))
C13 = 0
E13: vg - ((g * sin(B13)) * UnitVector[Vector[O, D13]])
F13 = If(x(E13) > 0, abs(E13), (-abs(E13)))
G13: C13 + (h * F13 / A13)
H13: B13 + (h * G13)
B14 = 0.5235987755982988
A14: A13 + 0.6
D14: O + (A14 * ((-cos(B14)), 0, (-sin(B14))))
C14 = 0
E14: vg - ((g * sin(B14)) * UnitVector[Vector[O, D14]])
F14 = If(x(E14) > 0, abs(E14), (-abs(E14)))
G14: C14 + (h * F14 / A14)
H14: B14 + (h * G14)
B15 = 0.5235987755982988
A15: A14 + 0.6
D15: O + (A15 * ((-cos(B15)), 0, (-sin(B15))))
C15 = 0
E15: vg - ((g * sin(B15)) * UnitVector[Vector[O, D15]])
F15 = If(x(E15) > 0, abs(E15), (-abs(E15)))
G15: C15 + (h * F15 / A15)
H15: B15 + (h * G15)
B16 = 0.5235987755982988
A16: A15 + 0.6
D16: O + (A16 * ((-cos(B16)), 0, (-sin(B16))))
C16 = 0
E16: vg - ((g * sin(B16)) * UnitVector[Vector[O, D16]])
F16 = If(x(E16) > 0, abs(E16), (-abs(E16)))
G16: C16 + (h * F16 / A16)
H16: B16 + (h * G16)
I2: (0, L - A2, 0)
I3: (0, L - A3, 0)
I4: (0, L - A4, 0)
I5: (0, L - A5, 0)
I6: (0, L - A6, 0)
I7: (0, L - A7, 0)
I8: (0, L - A8, 0)
I9: (0, L - A9, 0)
I10: (0, L - A10, 0)
I11: (0, L - A11, 0)
I12: (0, L - A12, 0)
I13: (0, L - A13, 0)
I14: (0, L - A14, 0)
I15: (0, L - A15, 0)
I16: (0, L - A16, 0)
K2: D2 + I2
K3: D3 + I3
K4: D4 + I4
K5: D5 + I5
K6: D6 + I6
K7: D7 + I7
K8: D8 + I8
K9: D9 + I9
K10: D10 + I10
K11: D11 + I11
K12: D12 + I12
K13: D13 + I13
K14: D14 + I14
K15: D15 + I15
K16: D16 + I16
J3 = Segment(I3, K3)
J2 = Segment(I2, K2)
J4 = Segment(I4, K4)
J5 = Segment(I5, K5)
J6 = Segment(I6, K6)
J7 = Segment(I7, K7)
J8 = Segment(I8, K8)
J9 = Segment(I9, K9)
J10 = Segment(I10, K10)
J11 = Segment(I11, K11)
J12 = Segment(I12, K12)
J13 = Segment(I13, K13)
J14 = Segment(I14, K14)
J15 = Segment(I15, K15)
J16 = Segment(I16, K16)
percha = Line(O, (0, 1, 0))