Stroboskop

v =

a =

t =

1

2

3

Tabelle

0

2

4

6

8

10

12

14

16

18

20

Skalierung

Test

Messungen mit dem Stroboskop

Version Stand
08.11.2022
Andreas Jäger

Info

Δ t = 1,0 s

Ein  Körper  bewegt  sich  mit  einer  konstanten
Geschwindigkeit  des  Betrages v_x entlang  der 
x-Achse. Alle  1,0  Sekunden  wird  die Stroboskop-
lampe gezündet und dadurch der sich bewegende
Gegenstand an der momentanen Stelle aufgenommen. 

?

{x\over m}

feh: {-0.1, 0.2, 0, -0.2, 0.2, -0.1, 0, -0.3, 0.1, 0.1}
v = 2.5 (slider from 0 to 4, step 0.001)
a = 0 (slider from 0 to 1, step 0.001)
t = 10.501 (slider from 0 to 10.501, step 0.001)
lv: 20
s0: 0
S0: (s0, 0)
s: s0 + (v * t) + ((1 / 2 * a) * t^(2))
S: ((v * t) + ((1 / 2 * a) * t^(2)), 0)
ss = Segment(S - (0, 1), S + (0, 1))
mods = Mod(s, 2)
Vieleck1, f, g, h, i, j = Polygon((0, -2), (0, 2), (lv, 2), (lv, -2), (0, -2))
bs = If(mods < 0.05, true, false)
P0: ((0 * 2), 0)
P2: ((v * 2) + ((1 / 2 * a) * 2^(2)) + Element[feh, 2], 0)
P3: ((v * 3) + ((1 / 2 * a) * 3^(2)) + Element[feh, 3], 0)
P4: ((v * 4) + ((1 / 2 * a) * 4^(2)) + Element[feh, 4], 0)
P5: ((v * 5) + ((1 / 2 * a) * 5^(2)) + Element[feh, 5], 0)
P6: ((v * 6) + ((1 / 2 * a) * 6^(2)) + Element[feh, 6], 0)
P7: ((v * 7) + ((1 / 2 * a) * 7^(2)) + Element[feh, 7], 0)
P8: ((v * 8) + ((1 / 2 * a) * 8^(2)) + Element[feh, 8], 0)
P9: ((v * 9) + ((1 / 2 * a) * 9^(2)) + Element[feh, 9], 0)
PA: ((v * 10) + ((1 / 2 * a) * 10^(2)) + Element[feh, 10], 0)
P1: ((v * 1) + ((1 / 2 * a) * 1^(2)) + Element[feh, 1], 0)
xv: (v * t) + ((1 / 2 * a) * t^(2))
bs2 = true
l1 = Sequence(((v * i) + ((1 / 2 * a) * i^(2)), 0), i, 0, t, 0.01)
tMax: ((-v) + sqrt((40 * a) + v^(2))) / a
Text2: "x\over m\cr
\cr " + (LaTeX[If[t ≥ 1 ∧ x(P1) ≤ 20, x(P1)]]) + "
\cr " + (LaTeX[If[t ≥ 2 ∧ x(P2) ≤ 20, x(P2)]]) + "
\cr " + (LaTeX[If[t ≥ 3 ∧ x(P3) ≤ 20, x(P3)]]) + "
\cr " + (LaTeX[If[t ≥ 4 ∧ x(P4) ≤ 20, x(P4)]]) + "
\cr " + (LaTeX[If[t ≥ 5 ∧ x(P5) ≤ 20, x(P5)]]) + "
\cr " + (LaTeX[If[t ≥ 6 ∧ x(P6) ≤ 20, x(P6)]]) + "
\cr " + (LaTeX[If[t ≥ 7 ∧ x(P7) ≤ 20, x(P7)]]) + "
\cr " + (LaTeX[If[t ≥ 8 ∧ x(P8) ≤ 20, x(P8)]]) + "
\cr " + (LaTeX[If[t ≥ 9 ∧ x(P9) ≤ 20, x(P9)]]) + "
\cr " + (LaTeX[If[t ≥ 10 ∧ x(PA) ≤ 20, x(PA)]]) + ""
A = (20.834077199622506, 12.587443884012215)
bTab = false
Eingabefeld1 = Textfield(v)
Eingabefeld2 = Textfield(a)
Eingabefeld3 = Textfield(t)
auf: 1
bTab2 = true
l2 = Sequence(Segment[(i, -2), (i, 3)], i, 0, 20, 1)
bSkal = true
k = Segment((-2, 0), (0, 0))
l = Segment((0, 0), (20, 0))
u = Vector((20, 0), (30, 0))
Vieleck2, m, n, p, q, r = Polygon((0, -2), (0, 2), (lv, 2), (lv, -2), (0, -2))
ttt = 3.4 (slider from 0 to 10, step 0.1)
bs3 = false
b = false
btMax: t > 10.49
Text1: "t\over s\cr \cr" + (LaTeX[If[t ≥ 1 ∧ x(P1) ≤ 20, "1", "-"]]) + " \cr" + (LaTeX[If[t ≥ 2 ∧ x(P2) ≤ 20, "2", "-"]]) + " \cr" + (LaTeX[If[t ≥ 3 ∧ x(P3) ≤ 20, "3", "-"]]) + " \cr" + (LaTeX[If[t ≥ 4 ∧ x(P4) ≤ 20, "4", "-"]]) + " \cr" + (LaTeX[If[t ≥ 5 ∧ x(P5) ≤ 20, "5", "-"]]) + " \cr" + (LaTeX[If[t ≥ 6 ∧ x(P6) ≤ 20, "6", "-"]]) + " \cr" + (LaTeX[If[t ≥ 7 ∧ x(P7) ≤ 20, "7", "-"]]) + " \cr" + (LaTeX[If[t ≥ 8 ∧ x(P8) ≤ 20, "8", "-"]]) + " \cr" + (LaTeX[If[t ≥ 9 ∧ x(P9) ≤ 20, "9", "-"]]) + " \cr" + (LaTeX[If[t ≥ 10 ∧ x(PA) ≤ 20, "10", "-"]]) + ""
c = false