Eigengeschwindigkeitsbetrag

Fließgeschwindigkeit

A = (-1.94, -0.04)
a = Line(A, xAxis)
B = (3.6, 8.06)
C = (8.98, 8.06)
b = Line(B, a)
c = Line(C, a)
d = Circle(B, 1.0)
e = Circle(C, 1.0)
D = Intersect(e, c, 2.0)
E = Intersect(d, b, 2.0)
f = Ray(B, E)
g = Ray(C, D)
F = Point(g)
G = Point(f)
u = Vector(C, F)
v = Vector(B, G)
Zeit = 2 (slider from 0 to 30, step 0.1)
h = OrthogonalLine(A, a)
H = Point(a)
i = OrthogonalLine(H, a)
I = Point(h)
j = Line(I, a)
J = Intersect(i, j)
abstandAH = Distance(A, H)
TextAH: "\overline{" + (Name[A]) + (Name[H]) + "} \, = \, " + abstandAH
P_1: A + Zeit * (u + v)
abstandBG = Distance(B, G)
abstandCF = Distance(C, F)
Zeit_1: Distance[A, H] / (Distance[B, G] + Distance[C, F])
P_2: H + (Zeit - Zeit_1) * (u - v)
Zeit_2: Zeit_1 + Distance[A, H] / (Distance[B, G] - Distance[C, F])
P_3: I + Zeit * v
Zeit_3: Distance[I, J] / Distance[B, G]
Zeit_4: 2.0 * Zeit_3
P_4: J - (Zeit - Zeit_3) * v
k = OrthogonalLine(P_1, a)
l = OrthogonalLine(P_3, j)
p = Circle(P_3, 0.5)
q = Circle(P_1, 0.5)
K = Intersect(p, l, 2.0)
L, M = Intersect(p, j)
N = Intersect(q, k, 2.0)
O, P = Intersect(q, a)
m = Line(K, j)
n = Line(N, a)
r = Circle(K, 0.75)
s = Circle(N, 0.75)
Q, R = Intersect(r, m)
S, T = Intersect(s, n)
Vieleck1, q_1, l_1, m_1, r_1 = Polygon(Q, L, M, R)
Vieleck2, t, p_1, o, s_1 = Polygon(T, P, O, S)
a_1 = OrthogonalLine(P_4, j)
b_1 = OrthogonalLine(P_2, a)
c_1 = Circle(P_4, 0.5)
d_1 = Circle(P_2, 0.5)
U, V = Intersect(c_1, j)
W = Intersect(c_1, a_1, 2.0)
Z, A_1 = Intersect(d_1, a)
B_1 = Intersect(d_1, b_1, 2.0)
e_1 = Line(W, j)
f_1 = Line(B_1, a)
g_1 = Circle(W, 0.75)
h_1 = Circle(B_1, 0.75)
C_1, D_1 = Intersect(h_1, f_1)
E_1, F_1 = Intersect(g_1, e_1)
Vieleck3, e_2, u_1, v_1, f_2 = Polygon(E_1, U, V, F_1)
Vieleck4, c_2, z, a_2, d_2 = Polygon(C_1, Z, A_1, D_1)
TextCF: abstandCF + ""
TextBG: abstandBG + ""

Tool: Werkzeug1
Input: K, L, M, k
Output: Vieleck1

k = Line(K, L)
M = Point(k)
l = OrthogonalLine(M, k)
p = Circle(M, 0.5)
N, O = Intersect(p, k)
P = Intersect(p, l, 2.0)
m = Line(P, k)
q = Circle(P, 0.75)
Q, R = Intersect(q, m)
Vieleck1, q_1, n, o, r = Polygon(Q, N, O, R)