r

ω

φ

$g(x) = \cos(x)$

$f(x) = \sin(x)$

$x$

$\triangleright$

$\circ$

v: 0
M: (v, 0)
gL2: -1.5
gR2: 1.5
gU2: -1.5
gO2: 1.5
gL1: -1
gR1: 8
gU1: -1.5
gO1: 1.5
α = 2.5830872929516078 rad (slider from 0 to 360°, step 0.017453292519943295)
t = 0 (slider from 0 to tmax, step 0.01)
a = 0.5 (slider from 0.5 to 3, step 0.5)
omega = 0.5 (slider from 0.5 to 4, step 0.5)
iphi = 0 (slider from 0 to 7, step 1)
phi: (iphi * pi / 4)
f0(t) = (a * sin((omega * t) + phi))
g0(t) = (a * cos((omega * t) + phi))
zweipi: (2 * pi)
g(x) = If[x ≥ 0, (a * cos((omega * x) + phi))]
f(x) = If[x ≥ 0, (a * sin((omega * x) + phi))]
P: (g0(t), f0(t)) + (v, 0)
Q: (x(P), 0)
R: (g(0), f(0)) + (v, 0)
c = CircleArc(M, R, P)
w = Angle(R, M, P)
S: (0, y(P)) + (v, 0)
k = Circle(M, a)
j = Segment((v, (-a)), (v, a))
vK: -1
Text3: "f(t) = " + (LaTeX[f0]) + ""
Text4: "g(t) = " + (LaTeX[g0]) + ""
i = Segment((v - a, 0), (v + a, 0))
Text5: "\varphi = " + (LaTeX[iphi]) + "\pi/4"
Text1: "P(\textcolor[rgb]{0.4,0.6,0}{" + (LaTeX[g0]) + ")}|\textcolor[rgb]{0,0.6,1}{" + (LaTeX[f0]) + "})"
xP: 4
yP: 6
AP: (xP, yP)
K: (xP, y(P))
b: 0.5
n: 16
d: (yP - y(K)) / n
vR: (b, d)
vL: ((-b), d)
FederPunkte: {K, K + (1 / 2 * vL), K + (1 / 2 * vL) + vR, K + (3 / 2 * vL) + vR, K + (3 / 2 * vL) + (2 * vR), K + (5 / 2 * vL) + (2 * vR), K + (5 / 2 * vL) + (3 * vR), K + (7 / 2 * vL) + (3 * vR), K + (7 / 2 * vL) + (4 * vR), K + (9 / 2 * vL) + (4 * vR), K + (9 / 2 * vL) + (5 * vR), AP}
FederPunkteRechts = Sequence(K + ((((2 * i) - 1) * 1 / 2) * vL) + (i * vR), i, 1, n / 2, 1)
FederPunkteLinks = Sequence(K + ((((2 * i) - 1) * 1 / 2) * vL) + ((i - 1) * vR), i, 1, n / 2, 1)
FederRechts = Sequence(Segment[Element[FederPunkteLinks, i], Element[FederPunkteRechts, i]], i, 1, n / 2)
FederLinks = Sequence(Segment[Element[FederPunkteRechts, i], Element[FederPunkteLinks, i + 1]], i, 1, n / 2 - 1)
FederUnten = Segment(K, Element[FederPunkteLinks, 1])
FederOben = Segment(Element[FederPunkteRechts, Length[FederPunkteRechts]], AP)
tmax: zweipi
x0: t