Hilfskonstruktionen

n =

Wellenbad

Version Stand
18.12.2020
Andreas Jäger

Stand

Spur

h =

↑

↓

←    →

h0 = 10 (slider from 3.5 to 10, step 0.1)
n = 1.6 (slider from 1 to 1.6, step 0.01)
xL: 1
XL: (xL, -1)
f(x) = If[0 ≤ x ≤ (7 * π), 3 + (0.25 * sin(x))]
P1: (xL, f(xL))
Lichtgang1 = Line(XL, P1)
Tangente1 = Tangent(P1, f)
Senkrechte1 = OrthogonalLine(P1, Tangente1)
m(x) = If[-1 ≤ x ≤ 22.991148575128552, h0]
A = Intersect(m, Senkrechte1)
alpha2 = Angle(Lichtgang1, Senkrechte1)
alpha1 = Angle(Senkrechte1, Lichtgang1)
alphaM: ((360°) / ((2 * π)) * Min[alpha1, alpha2])
alphaL: ((360°) / ((2 * π)) * asin((n * sin(alphaM))))
AS2 = Rotate(A, alphaL, P1)
AS1 = Rotate(A, (-alphaL), P1)
g(x) = If[0 ≤ x ≤ (7 * π), 0]
a = IntegralBetween(f, g, 0, (7 * π))
h(x) = (1 / tan(alphaL) * (x - x(P1))) + y(P1)
A1 = Intersect(m, h, (2.488721144513699, 10))
u = Vector(XL, P1)
C = Intersect(m, Lichtgang1)
i = OrthogonalLine(XL, Lichtgang1)
α = Angle(AS1, P1, A)
AS = If(alpha1 ≤ alpha2, AS2, AS1)
j = Ray(P1, AS)
B = Intersect(m, j)
v = Vector(P1, B)
b = false
P2: P1
Eingabefeld1 = Textfield(n)
c = false
d = true
B2 = Intersect(m, j)
v2 = Vector(P1, B)
H0: (0, h0)
Eingabefeld2 = Textfield(h0)