Deformation = 0.9 (slider from 0.1 to 5, step 0.1)
SReglerPunktL = (-4.466666666666667, 8.6)
a = Line(SReglerPunktL, xAxis)
SReglerPunktR = Point(a)
Ausdehnung = 5.3 (slider from 0.1 to 10, step 0.1)
Umdrehungen = 4.8 (slider from 1 to 30, step 0.1)
SReglerLine1 = Segment(SReglerPunktL, SReglerPunktR)
BewegePerson = Point(SReglerLine1)
t: Distance[SReglerPunktL, BewegePerson] / SReglerLine1
Person: Ausdehnung * t * (cos(t * Umdrehungen * 2 * 3.141592653589793), Deformation * sin(t * Umdrehungen * 2 * 3.141592653589793))
Ortslinie1 = Locus(Person, BewegePerson)
AKW_{Fukushima} = (1.866666666666668, -1.4333333333333298)
AbstandAKW = Distance(Person, AKW_{Fukushima})
Strahlenintensitaet_{F}: (t * 12, 25 / (1 + AbstandAKW))
Ortslinie2 = Locus(Strahlenintensitaet_{F}, BewegePerson)