Videoanalyse - Fadenpendel

Version Stand
16.11.2021
Andreas Jäger

Stand

T(l)

T(m)

Ergebnis

Ergebnis

Ergebnis

Ergebnis

Ergebnis

Ergebnis

T(s0)

Ergebnis

Ergebnis

Ergebnis

Ergebnis

0

5

10

15

20

t/s

b4: false
bs0: false
b1: true
bl: true
bVersion = false
t1: 0
T1: (t1, -0.2)
t2: 1
T2: (t2, -0.21)
n: 1
fx = 0.04170731707317074 (slider from -5 to 5, step 0.1)
bm: false
b2: false
b3: false
ff = If(bl ∧ b1, 1, If[bm ∧ b1, 2, If[bs0 ∧ b1, 2]])
y0 = -0.22 (slider from -0.22 to 1, step 0.01)
A: (-0.83772, y0)
B: (9.71764, y0)
C: (-0.86097, y0)
D: (10.13982, y0)
E: (-0.7916, y0)
F: (9.51477, y0)
G: (-0.75021, y0)
H: (9.56302, y0)
I: (-0.31899, y0)
J: (9.82839, y0)
K: (-0.77349, y0)
L: (9.34196, y0)
M: (-0.77349, y0)
N: (9.57958, y0)
O: (-0.73599, y0)
P: (8.6879, y0)
Q: (-0.73163, y0)
R: (8.59227, y0)
S: (-0.73812, y0)
T: (8.68092, y0)
Z: (9.51469, y0)
W: (-0.74, y0)
U: (-0.65, y0)
V: (8.05097, y0)
Text2: " " + (If[bl, "T=T(l)", If[bm, "T=T(m)", If[bs0, "T=T(s_0)", " "]]]) + "
 " + (If[bl, If[b1, "l=0,24 m", If[b2, "l=0,38 m", "l=0,55 m"]], "l = 0,55 m"]) + "
 " + (If[bm, If[b1, "m=65 g", If[b2, "m=135 g", "m=295 g"]], "m=295 g"]) + "
 " + (If[bs0, If[b1, "s_0=0,09 m", If[b2, "s_0 = 0,20 m", If[b3, "s_0 = 0,31 m", "s_0 = 0,45 m"]]], "s_0=0,10 m"]) + "
 "
u = Vector((0, 0), (0, 6))
s1 = Segment(T1, T1 + (0, 5.5))
s2 = Segment(T2, T2 + (0, 5.5))
Text3: "T = " + ((ff * (t2 - t1) / n)) + " s"
Text1: "n = " + n + " Perioden

T_n = " + ((ff * (t2 - t1))) + " s
 
 "
xx0: 12
l1 = Sequence((If[i / ff ≤ xx0, i / ff], 0), i, 0, 22, 1)
v = Vector((0, 0), (xx0 + 0.5, 0))
yy0: -0.1