1) Größe festlegen

2) Wasser einfüllen

3) Anschubsen

Rohrradius in cm:

Wassermenge in ml:

Amplitude in cm:

Zeitlupe

Pause

Ort y

Anzeige Kraft und Hilfslinien

l

\bold l

V = 29.632452031397595 (slider from Vb to Vb + 2 * A * h, step 0.01)
r = 1 (slider from 0.02 * s to 0.9 * s, step 0.1)
A: π * r^(2)
g = 9.81
h = 10 (slider from 2 to 20, step 1)
s = 2.222222 (slider from -5 to 5, step 1)
P2: (-s + r, h)
P3: (s - r, h)
P4: (s + r, h)
P5: (-s - r, 0)
P6: (-s + r, 0)
P7: (s - r, 0)
P8: (s + r, 0)
c = Semicircle(P8, P5)
d = Semicircle(P7, P6)
P1: (-s - r, h)
a = Segment(P1, P5)
b = Segment(P2, P6)
e_1 = Segment(P3, P7)
f = Segment(P8, P4)
E: (-s, y(P1) - 0.1 * (x(P2) - x(P1)))
e = Ellipse(P1, P2, E)
v = Vector(P1, P3)
e' = Translate(e, v)
rho = 1 (slider from -5 to 5, step 1)
P: (-s, h)
Vb: A * π * s
l: V / A
y0: (l - π * s) / 2
w: sqrt(200 * g / l)
Vmax: Vb + 2 * A * h
ymax = 0 (slider from 0 to Min[{abs(h - y0), y0, 2.9}] + 0.1, step 0.1)
k(x) = ymax * sin(w * x)
t = 0.286 (slider from 0 to 2 * π / w, step 0.0010)
Py: (-s - r, y0 + k(t))
vy = Vector(P1, Py)
e'_1 = Translate(e, vy)
Py2: (s - r, y0 - k(t))
u = Vector(P3, Py2)
e'' = Translate(e', u)
p = Semicircle(P7, P6)
Py1: (-s + r, y0 + k(t))
Py3: (s + r, y0 - k(t))
Vieleck1, p6, p5, py, py1 = Polygon(P6, P5, Py, Py1)
Vieleck2, p7, py2, py3, p8 = Polygon(P7, Py2, Py3, P8)
P0: (-s - r, y0)
z = Vector(P1, P0)
e'_2 = Translate(e, z)
B: (-s - r - 1, -s)
C: (x(B), h + 1)
i = Vector(B, C)
O: (x(B), y0)
F: 2 * k(t) * A * rho * g
Fv = Vector((-s, y0), (-s, y0 - 0.01 * F))
Fv2 = Vector((s, y0), (s, y0 + 0.01 * F))
Text1: "Frequenz: " + (w / (2 * π)) + "Hz"
kgraph = Function(k(x - (s + 1.5 * r + 0.5)), s + 1.5 * r + 0.5, 100)
j = false
m = false
n = false
e'_3 = Translate(e, u)
e''_1 = Translate(e', z)
e''_2 = Translate(e', vy)
Pml: (-s, y0 + k(t))
Pmr: (s, y0 - k(t))
Pmlu: (-s, 0)
Pmru: (s, 0)
q = Segment(Pml, Pmlu)
a_1 = Segment(Pmru, Pmr)
c_1 = Semicircle(Pmru, Pmlu)