Zeiger

Oszillatoren

Welle

einzelner Testpunkt

Verschieben des blauen Punktes 
auf der x-Achse ändert die Abstände 
zwischen den Beobachtungspunkten

Zeit = 1 (slider from 0 to 100, step 0.01)
P99min: x(Corner[2])
Periodendauer = 5 (slider from 0.5 to 10, step 0.5)
Amplitude = 2 (slider from 0.5 to 8, step 0.1)
wversatz = 0
zeigeran = true
λ = 10 (slider from 10 to 320, step 1)
Periodenzahl: Zeit / Periodendauer
w(x) = Amplitude * sin(2 * 3.141592653589793 * (-(x / λ) + Periodenzahl))
w1og: Periodenzahl * λ
w1ug = -10
Ptest = Point(xAxis)
Ptestphw1: (Periodenzahl - x(Ptest) / λ) * 2 * 3.141592653589793
Quelle = (0, 0)
w1 = Function(w, w1ug, w1og)
zversatz: -Max[2 * Amplitude + 0.5, 10]
P00 = (0, 0)
P00phw1: (Periodenzahl - x(P00) / λ) * 2 * 3.141592653589793
W1A0P00: (x(P00), wversatz)
W1A1P00: W1A0P00 + If[(x(P00) ≥ w1ug) ∧ (x(P00) ≤ w1og), Vector[Amplitude * (0, sin(P00phw1))]]
w1P00a01 = Segment(W1A0P00, W1A1P00)
ZZ0P00: (x(P00), If[zeigeran, zversatz, 0])
ZZ1P00: ZZ0P00 + If[(x(P00) ≥ w1ug) ∧ (x(P00) ≤ w1og), Vector[Amplitude * (cos(P00phw1), sin(P00phw1))]]
z01P00 = Segment(ZZ0P00, ZZ1P00)
nulllinie = Ray((P99min / 100, 0), (2, 0))
P01 = Point(nulllinie)
P01phw1: (Periodenzahl - x(P01) / λ) * 2 * 3.141592653589793
W1A0P01: (x(P01), wversatz)
W1A1P01: W1A0P01 + If[(x(P01) ≥ w1ug) ∧ (x(P01) ≤ w1og), Vector[Amplitude * (0, sin(P01phw1))]]
w1P01a01 = Segment(W1A0P01, W1A1P01)
ZZ0P01: (x(P01), If[zeigeran, zversatz, 0])
ZZ1P01: ZZ0P01 + If[(x(P01) ≥ w1ug) ∧ (x(P01) ≤ w1og), Vector[Amplitude * (cos(P01phw1), sin(P01phw1))]]
z01P01 = Segment(ZZ0P01, ZZ1P01)
P02: (2 * x(P01), 0)
P02phw1: (Periodenzahl - x(P02) / λ) * 2 * 3.141592653589793
W1A0P02: (x(P02), wversatz)
W1A1P02: W1A0P02 + If[(x(P02) ≥ w1ug) ∧ (x(P02) ≤ w1og), Vector[Amplitude * (0, sin(P02phw1))]]
w1P02a01 = Segment(W1A0P02, W1A1P02)
ZZ0P02: (x(P02), If[zeigeran, zversatz, 0])
ZZ1P02: ZZ0P02 + If[(x(P02) ≥ w1ug) ∧ (x(P02) ≤ w1og), Vector[Amplitude * (cos(P02phw1), sin(P02phw1))]]
z01P02 = Segment(ZZ0P02, ZZ1P02)
P03: (3 * x(P01), 0)
P03phw1: (Periodenzahl - x(P03) / λ) * 2 * 3.141592653589793
W1A0P03: (x(P03), wversatz)
W1A1P03: W1A0P03 + If[(x(P03) ≥ w1ug) ∧ (x(P03) ≤ w1og), Vector[Amplitude * (0, sin(P03phw1))]]
w1P03a01 = Segment(W1A0P03, W1A1P03)
ZZ0P03: (x(P03), If[zeigeran, zversatz, 0])
ZZ1P03: ZZ0P03 + If[(x(P03) ≥ w1ug) ∧ (x(P03) ≤ w1og), Vector[Amplitude * (cos(P03phw1), sin(P03phw1))]]
z01P03 = Segment(ZZ0P03, ZZ1P03)
P04: (4 * x(P01), 0)
P04phw1: (Periodenzahl - x(P04) / λ) * 2 * 3.141592653589793
W1A0P04: (x(P04), wversatz)
W1A1P04: W1A0P04 + If[(x(P04) ≥ w1ug) ∧ (x(P04) ≤ w1og), Vector[Amplitude * (0, sin(P04phw1))]]
w1P04a01 = Segment(W1A0P04, W1A1P04)
ZZ0P04: (x(P04), If[zeigeran, zversatz, 0])
ZZ1P04: ZZ0P04 + If[(x(P04) ≥ w1ug) ∧ (x(P04) ≤ w1og), Vector[Amplitude * (cos(P04phw1), sin(P04phw1))]]
z01P04 = Segment(ZZ0P04, ZZ1P04)
P05: (5 * x(P01), 0)
P05phw1: (Periodenzahl - x(P05) / λ) * 2 * 3.141592653589793
W1A0P05: (x(P05), wversatz)
W1A1P05: W1A0P05 + If[(x(P05) ≥ w1ug) ∧ (x(P05) ≤ w1og), Vector[Amplitude * (0, sin(P05phw1))]]
w1P05a01 = Segment(W1A0P05, W1A1P05)
ZZ0P05: (x(P05), If[zeigeran, zversatz, 0])
ZZ1P05: ZZ0P05 + If[(x(P05) ≥ w1ug) ∧ (x(P05) ≤ w1og), Vector[Amplitude * (cos(P05phw1), sin(P05phw1))]]
z01P05 = Segment(ZZ0P05, ZZ1P05)
P06: (6 * x(P01), 0)
P06phw1: (Periodenzahl - x(P06) / λ) * 2 * 3.141592653589793
W1A0P06: (x(P06), wversatz)
W1A1P06: W1A0P06 + If[(x(P06) ≥ w1ug) ∧ (x(P06) ≤ w1og), Vector[Amplitude * (0, sin(P06phw1))]]
w1P06a01 = Segment(W1A0P06, W1A1P06)
ZZ0P06: (x(P06), If[zeigeran, zversatz, 0])
ZZ1P06: ZZ0P06 + If[(x(P06) ≥ w1ug) ∧ (x(P06) ≤ w1og), Vector[Amplitude * (cos(P06phw1), sin(P06phw1))]]
z01P06 = Segment(ZZ0P06, ZZ1P06)
P07: (7 * x(P01), 0)
P07phw1: (Periodenzahl - x(P07) / λ) * 2 * 3.141592653589793
W1A0P07: (x(P07), wversatz)
W1A1P07: W1A0P07 + If[(x(P07) ≥ w1ug) ∧ (x(P07) ≤ w1og), Vector[Amplitude * (0, sin(P07phw1))]]
w1P07a01 = Segment(W1A0P07, W1A1P07)
ZZ0P07: (x(P07), If[zeigeran, zversatz, 0])
ZZ1P07: ZZ0P07 + If[(x(P07) ≥ w1ug) ∧ (x(P07) ≤ w1og), Vector[Amplitude * (cos(P07phw1), sin(P07phw1))]]
z01P07 = Segment(ZZ0P07, ZZ1P07)
P08: (8 * x(P01), 0)
P08phw1: (Periodenzahl - x(P08) / λ) * 2 * 3.141592653589793
W1A0P08: (x(P08), wversatz)
W1A1P08: W1A0P08 + If[(x(P08) ≥ w1ug) ∧ (x(P08) ≤ w1og), Vector[Amplitude * (0, sin(P08phw1))]]
w1P08a01 = Segment(W1A0P08, W1A1P08)
ZZ0P08: (x(P08), If[zeigeran, zversatz, 0])
ZZ1P08: ZZ0P08 + If[(x(P08) ≥ w1ug) ∧ (x(P08) ≤ w1og), Vector[Amplitude * (cos(P08phw1), sin(P08phw1))]]
z01P08 = Segment(ZZ0P08, ZZ1P08)
P09: (9 * x(P01), 0)
P09phw1: (Periodenzahl - x(P09) / λ) * 2 * 3.141592653589793
W1A0P09: (x(P09), wversatz)
W1A1P09: W1A0P09 + If[(x(P09) ≥ w1ug) ∧ (x(P09) ≤ w1og), Vector[Amplitude * (0, sin(P09phw1))]]
w1P09a01 = Segment(W1A0P09, W1A1P09)
ZZ0P09: (x(P09), If[zeigeran, zversatz, 0])
ZZ1P09: ZZ0P09 + If[(x(P09) ≥ w1ug) ∧ (x(P09) ≤ w1og), Vector[Amplitude * (cos(P09phw1), sin(P09phw1))]]
z01P09 = Segment(ZZ0P09, ZZ1P09)
P10: (10 * x(P01), 0)
P10phw1: (Periodenzahl - x(P10) / λ) * 2 * 3.141592653589793
W1A0P10: (x(P10), wversatz)
W1A1P10: W1A0P10 + If[(x(P10) ≥ w1ug) ∧ (x(P10) ≤ w1og), Vector[Amplitude * (0, sin(P10phw1))]]
w1P10a01 = Segment(W1A0P10, W1A1P10)
ZZ0P10: (x(P10), If[zeigeran, zversatz, 0])
ZZ1P10: ZZ0P10 + If[(x(P10) ≥ w1ug) ∧ (x(P10) ≤ w1og), Vector[Amplitude * (cos(P10phw1), sin(P10phw1))]]
z01P10 = Segment(ZZ0P10, ZZ1P10)
P11: (11 * x(P01), 0)
P11phw1: (Periodenzahl - x(P11) / λ) * 2 * 3.141592653589793
W1A0P11: (x(P11), wversatz)
W1A1P11: W1A0P11 + If[(x(P11) ≥ w1ug) ∧ (x(P11) ≤ w1og), Vector[Amplitude * (0, sin(P11phw1))]]
w1P11a01 = Segment(W1A0P11, W1A1P11)
ZZ0P11: (x(P11), If[zeigeran, zversatz, 0])
ZZ1P11: ZZ0P11 + If[(x(P11) ≥ w1ug) ∧ (x(P11) ≤ w1og), Vector[Amplitude * (cos(P11phw1), sin(P11phw1))], (0, 0)]
z01P11 = Segment(ZZ0P11, ZZ1P11)
P12: (12 * x(P01), 0)
P12phw1: (Periodenzahl - x(P12) / λ) * 2 * 3.141592653589793
W1A0P12: (x(P12), wversatz)
W1A1P12: W1A0P12 + If[(x(P12) ≥ w1ug) ∧ (x(P12) ≤ w1og), Vector[Amplitude * (0, sin(P12phw1))]]
w1P12a01 = Segment(W1A0P12, W1A1P12)
ZZ0P12: (x(P12), If[zeigeran, zversatz, 0])
ZZ1P12: ZZ0P12 + If[(x(P12) ≥ w1ug) ∧ (x(P12) ≤ w1og), Vector[Amplitude * (cos(P12phw1), sin(P12phw1))]]
z01P12 = Segment(ZZ0P12, ZZ1P12)
P13: (13 * x(P01), 0)
P13phw1: (Periodenzahl - x(P13) / λ) * 2 * 3.141592653589793
W1A0P13: (x(P13), wversatz)
W1A1P13: W1A0P13 + If[(x(P13) ≥ w1ug) ∧ (x(P13) ≤ w1og), Vector[Amplitude * (0, sin(P13phw1))]]
w1P13a01 = Segment(W1A0P13, W1A1P13)
ZZ0P13: (x(P13), If[zeigeran, zversatz, 0])
ZZ1P13: ZZ0P13 + If[(x(P13) ≥ w1ug) ∧ (x(P13) ≤ w1og), Vector[Amplitude * (cos(P13phw1), sin(P13phw1))]]
z01P13 = Segment(ZZ0P13, ZZ1P13)
P14: (14 * x(P01), 0)
P14phw1: (Periodenzahl - x(P14) / λ) * 2 * 3.141592653589793
W1A0P14: (x(P14), wversatz)
W1A1P14: W1A0P14 + If[(x(P14) ≥ w1ug) ∧ (x(P14) ≤ w1og), Vector[Amplitude * (0, sin(P14phw1))]]
w1P14a01 = Segment(W1A0P14, W1A1P14)
ZZ0P14: (x(P14), If[zeigeran, zversatz, 0])
ZZ1P14: ZZ0P14 + If[(x(P14) ≥ w1ug) ∧ (x(P14) ≤ w1og), Vector[Amplitude * (cos(P14phw1), sin(P14phw1))]]
z01P14 = Segment(ZZ0P14, ZZ1P14)
P15: (15 * x(P01), 0)
P15phw1: (Periodenzahl - x(P15) / λ) * 2 * 3.141592653589793
W1A0P15: (x(P15), wversatz)
W1A1P15: W1A0P15 + If[(x(P15) ≥ w1ug) ∧ (x(P15) ≤ w1og), Vector[Amplitude * (0, sin(P15phw1))]]
w1P15a01 = Segment(W1A0P15, W1A1P15)
ZZ0P15: (x(P15), If[zeigeran, zversatz, 0])
ZZ1P15: ZZ0P15 + If[(x(P15) ≥ w1ug) ∧ (x(P15) ≤ w1og), Vector[Amplitude * (cos(P15phw1), sin(P15phw1))]]
z01P15 = Segment(ZZ0P15, ZZ1P15)
P16: (16 * x(P01), 0)
P16phw1: (Periodenzahl - x(P16) / λ) * 2 * 3.141592653589793
W1A0P16: (x(P16), wversatz)
W1A1P16: W1A0P16 + If[(x(P16) ≥ w1ug) ∧ (x(P16) ≤ w1og), Vector[Amplitude * (0, sin(P16phw1))]]
w1P16a01 = Segment(W1A0P16, W1A1P16)
ZZ0P16: (x(P16), If[zeigeran, zversatz, 0])
ZZ1P16: ZZ0P16 + If[(x(P16) ≥ w1ug) ∧ (x(P16) ≤ w1og), Vector[Amplitude * (cos(P16phw1), sin(P16phw1))]]
z01P16 = Segment(ZZ0P16, ZZ1P16)
P17: (17 * x(P01), 0)
P17phw1: (Periodenzahl - x(P17) / λ) * 2 * 3.141592653589793
W1A0P17: (x(P17), wversatz)
W1A1P17: W1A0P17 + If[(x(P17) ≥ w1ug) ∧ (x(P17) ≤ w1og), Vector[Amplitude * (0, sin(P17phw1))]]
w1P17a01 = Segment(W1A0P17, W1A1P17)
ZZ0P17: (x(P17), If[zeigeran, zversatz, 0])
ZZ1P17: ZZ0P17 + If[(x(P17) ≥ w1ug) ∧ (x(P17) ≤ w1og), Vector[Amplitude * (cos(P17phw1), sin(P17phw1))]]
z01P17 = Segment(ZZ0P17, ZZ1P17)
P18: (18 * x(P01), 0)
P18phw1: (Periodenzahl - x(P18) / λ) * 2 * 3.141592653589793
W1A0P18: (x(P18), wversatz)
W1A1P18: W1A0P18 + If[(x(P18) ≥ w1ug) ∧ (x(P18) ≤ w1og), Vector[Amplitude * (0, sin(P18phw1))]]
w1P18a01 = Segment(W1A0P18, W1A1P18)
ZZ0P18: (x(P18), If[zeigeran, zversatz, 0])
ZZ1P18: ZZ0P18 + If[(x(P18) ≥ w1ug) ∧ (x(P18) ≤ w1og), Vector[Amplitude * (cos(P18phw1), sin(P18phw1))]]
z01P18 = Segment(ZZ0P18, ZZ1P18)
P19: (19 * x(P01), 0)
P19phw1: (Periodenzahl - x(P19) / λ) * 2 * 3.141592653589793
W1A0P19: (x(P19), wversatz)
W1A1P19: W1A0P19 + If[(x(P19) ≥ w1ug) ∧ (x(P19) ≤ w1og), Vector[Amplitude * (0, sin(P19phw1))]]
w1P19a01 = Segment(W1A0P19, W1A1P19)
ZZ0P19: (x(P19), If[zeigeran, zversatz, 0])
ZZ1P19: ZZ0P19 + If[(x(P19) ≥ w1ug) ∧ (x(P19) ≤ w1og), Vector[Amplitude * (cos(P19phw1), sin(P19phw1))]]
z01P19 = Segment(ZZ0P19, ZZ1P19)
P20: (20 * x(P01), 0)
P20phw1: (Periodenzahl - x(P20) / λ) * 2 * 3.141592653589793
W1A0P20: (x(P20), wversatz)
W1A1P20: W1A0P20 + If[(x(P20) ≥ w1ug) ∧ (x(P20) ≤ w1og), Vector[Amplitude * (0, sin(P20phw1))]]
w1P20a01 = Segment(W1A0P20, W1A1P20)
ZZ0P20: (x(P20), If[zeigeran, zversatz, 0])
ZZ1P20: ZZ0P20 + If[(x(P20) ≥ w1ug) ∧ (x(P20) ≤ w1og), Vector[Amplitude * (cos(P20phw1), sin(P20phw1))]]
z01P20 = Segment(ZZ0P20, ZZ1P20)
P21: (21 * x(P01), 0)
P21phw1: (Periodenzahl - x(P21) / λ) * 2 * 3.141592653589793
W1A0P21: (x(P21), wversatz)
W1A1P21: W1A0P21 + If[(x(P21) ≥ w1ug) ∧ (x(P21) ≤ w1og), Vector[Amplitude * (0, sin(P21phw1))]]
w1P21a01 = Segment(W1A0P21, W1A1P21)
ZZ0P21: (x(P21), If[zeigeran, zversatz, 0])
ZZ1P21: ZZ0P21 + If[(x(P21) ≥ w1ug) ∧ (x(P21) ≤ w1og), Vector[Amplitude * (cos(P21phw1), sin(P21phw1))]]
z01P21 = Segment(ZZ0P21, ZZ1P21)
P22: (22 * x(P01), 0)
P22phw1: (Periodenzahl - x(P22) / λ) * 2 * 3.141592653589793
W1A0P22: (x(P22), wversatz)
W1A1P22: W1A0P22 + If[(x(P22) ≥ w1ug) ∧ (x(P22) ≤ w1og), Vector[Amplitude * (0, sin(P22phw1))]]
w1P22a01 = Segment(W1A0P22, W1A1P22)
ZZ0P22: (x(P22), If[zeigeran, zversatz, 0])
ZZ1P22: ZZ0P22 + If[(x(P22) ≥ w1ug) ∧ (x(P22) ≤ w1og), Vector[Amplitude * (cos(P22phw1), sin(P22phw1))]]
z01P22 = Segment(ZZ0P22, ZZ1P22)
P23: (23 * x(P01), 0)
P23phw1: (Periodenzahl - x(P23) / λ) * 2 * 3.141592653589793
W1A0P23: (x(P23), wversatz)
W1A1P23: W1A0P23 + If[(x(P23) ≥ w1ug) ∧ (x(P23) ≤ w1og), Vector[Amplitude * (0, sin(P23phw1))]]
w1P23a01 = Segment(W1A0P23, W1A1P23)
ZZ0P23: (x(P23), If[zeigeran, zversatz, 0])
ZZ1P23: ZZ0P23 + If[(x(P23) ≥ w1ug) ∧ (x(P23) ≤ w1og), Vector[Amplitude * (cos(P23phw1), sin(P23phw1))]]
z01P23 = Segment(ZZ0P23, ZZ1P23)
P24: (24 * x(P01), 0)
P24phw1: (Periodenzahl - x(P24) / λ) * 2 * 3.141592653589793
W1A0P24: (x(P24), wversatz)
W1A1P24: W1A0P24 + If[(x(P24) ≥ w1ug) ∧ (x(P24) ≤ w1og), Vector[Amplitude * (0, sin(P24phw1))]]
w1P24a01 = Segment(W1A0P24, W1A1P24)
ZZ0P24: (x(P24), If[zeigeran, zversatz, 0])
ZZ1P24: ZZ0P24 + If[(x(P24) ≥ w1ug) ∧ (x(P24) ≤ w1og), Vector[Amplitude * (cos(P24phw1), sin(P24phw1))]]
z01P24 = Segment(ZZ0P24, ZZ1P24)
P25: (25 * x(P01), 0)
P25phw1: (Periodenzahl - x(P25) / λ) * 2 * 3.141592653589793
W1A0P25: (x(P25), wversatz)
W1A1P25: W1A0P25 + If[(x(P25) ≥ w1ug) ∧ (x(P25) ≤ w1og), Vector[Amplitude * (0, sin(P25phw1))]]
w1P25a01 = Segment(W1A0P25, W1A1P25)
ZZ0P25: (x(P25), If[zeigeran, zversatz, 0])
ZZ1P25: ZZ0P25 + If[(x(P25) ≥ w1ug) ∧ (x(P25) ≤ w1og), Vector[Amplitude * (cos(P25phw1), sin(P25phw1))]]
z01P25 = Segment(ZZ0P25, ZZ1P25)
P26: (26 * x(P01), 0)
P26phw1: (Periodenzahl - x(P26) / λ) * 2 * 3.141592653589793
W1A0P26: (x(P26), wversatz)
W1A1P26: W1A0P26 + If[(x(P26) ≥ w1ug) ∧ (x(P26) ≤ w1og), Vector[Amplitude * (0, sin(P26phw1))]]
w1P26a01 = Segment(W1A0P26, W1A1P26)
ZZ0P26: (x(P26), If[zeigeran, zversatz, 0])
ZZ1P26: ZZ0P26 + If[(x(P26) ≥ w1ug) ∧ (x(P26) ≤ w1og), Vector[Amplitude * (cos(P26phw1), sin(P26phw1))]]
z01P26 = Segment(ZZ0P26, ZZ1P26)
P27: (27 * x(P01), 0)
P27phw1: (Periodenzahl - x(P27) / λ) * 2 * 3.141592653589793
W1A0P27: (x(P27), wversatz)
W1A1P27: W1A0P27 + If[(x(P27) ≥ w1ug) ∧ (x(P27) ≤ w1og), Vector[Amplitude * (0, sin(P27phw1))]]
w1P27a01 = Segment(W1A0P27, W1A1P27)
ZZ0P27: (x(P27), If[zeigeran, zversatz, 0])
ZZ1P27: ZZ0P27 + If[(x(P27) ≥ w1ug) ∧ (x(P27) ≤ w1og), Vector[Amplitude * (cos(P27phw1), sin(P27phw1))]]
z01P27 = Segment(ZZ0P27, ZZ1P27)
P28: (28 * x(P01), 0)
P28phw1: (Periodenzahl - x(P28) / λ) * 2 * 3.141592653589793
W1A0P28: (x(P28), wversatz)
W1A1P28: W1A0P28 + If[(x(P28) ≥ w1ug) ∧ (x(P28) ≤ w1og), Vector[Amplitude * (0, sin(P28phw1))]]
w1P28a01 = Segment(W1A0P28, W1A1P28)
ZZ0P28: (x(P28), If[zeigeran, zversatz, 0])
ZZ1P28: ZZ0P28 + If[(x(P28) ≥ w1ug) ∧ (x(P28) ≤ w1og), Vector[Amplitude * (cos(P28phw1), sin(P28phw1))]]
z01P28 = Segment(ZZ0P28, ZZ1P28)
P29: (29 * x(P01), 0)
P29phw1: (Periodenzahl - x(P29) / λ) * 2 * 3.141592653589793
W1A0P29: (x(P29), wversatz)
W1A1P29: W1A0P29 + If[(x(P29) ≥ w1ug) ∧ (x(P29) ≤ w1og), Vector[Amplitude * (0, sin(P29phw1))]]
w1P29a01 = Segment(W1A0P29, W1A1P29)
ZZ0P29: (x(P29), If[zeigeran, zversatz, 0])
ZZ1P29: ZZ0P29 + If[(x(P29) ≥ w1ug) ∧ (x(P29) ≤ w1og), Vector[Amplitude * (cos(P29phw1), sin(P29phw1))]]
z01P29 = Segment(ZZ0P29, ZZ1P29)
P30: (30 * x(P01), 0)
P30phw1: (Periodenzahl - x(P30) / λ) * 2 * 3.141592653589793
W1A0P30: (x(P30), wversatz)
W1A1P30: W1A0P30 + If[(x(P30) ≥ w1ug) ∧ (x(P30) ≤ w1og), Vector[Amplitude * (0, sin(P30phw1))]]
w1P30a01 = Segment(W1A0P30, W1A1P30)
ZZ0P30: (x(P30), If[zeigeran, zversatz, 0])
ZZ1P30: ZZ0P30 + If[(x(P30) ≥ w1ug) ∧ (x(P30) ≤ w1og), Vector[Amplitude * (cos(P30phw1), sin(P30phw1))]]
z01P30 = Segment(ZZ0P30, ZZ1P30)
P31: (31 * x(P01), 0)
P31phw1: (Periodenzahl - x(P31) / λ) * 2 * 3.141592653589793
W1A0P31: (x(P31), wversatz)
W1A1P31: W1A0P31 + If[(x(P31) ≥ w1ug) ∧ (x(P31) ≤ w1og), Vector[Amplitude * (0, sin(P31phw1))]]
w1P31a01 = Segment(W1A0P31, W1A1P31)
ZZ0P31: (x(P31), If[zeigeran, zversatz, 0])
ZZ1P31: ZZ0P31 + If[(x(P31) ≥ w1ug) ∧ (x(P31) ≤ w1og), Vector[Amplitude * (cos(P31phw1), sin(P31phw1))]]
z01P31 = Segment(ZZ0P31, ZZ1P31)
P32: (32 * x(P01), 0)
P32phw1: (Periodenzahl - x(P32) / λ) * 2 * 3.141592653589793
W1A0P32: (x(P32), wversatz)
W1A1P32: W1A0P32 + If[(x(P32) ≥ w1ug) ∧ (x(P32) ≤ w1og), Vector[Amplitude * (0, sin(P32phw1))]]
w1P32a01 = Segment(W1A0P32, W1A1P32)
ZZ0P32: (x(P32), If[zeigeran, zversatz, 0])
ZZ1P32: ZZ0P32 + If[(x(P32) ≥ w1ug) ∧ (x(P32) ≤ w1og), Vector[Amplitude * (cos(P32phw1), sin(P32phw1))]]
z01P32 = Segment(ZZ0P32, ZZ1P32)
P33: (33 * x(P01), 0)
P33phw1: (Periodenzahl - x(P33) / λ) * 2 * 3.141592653589793
W1A0P33: (x(P33), wversatz)
W1A1P33: W1A0P33 + If[(x(P33) ≥ w1ug) ∧ (x(P33) ≤ w1og), Vector[Amplitude * (0, sin(P33phw1))]]
w1P33a01 = Segment(W1A0P33, W1A1P33)
ZZ0P33: (x(P33), If[zeigeran, zversatz, 0])
ZZ1P33: ZZ0P33 + If[(x(P33) ≥ w1ug) ∧ (x(P33) ≤ w1og), Vector[Amplitude * (cos(P33phw1), sin(P33phw1))]]
z01P33 = Segment(ZZ0P33, ZZ1P33)
P34: (34 * x(P01), 0)
P34phw1: (Periodenzahl - x(P34) / λ) * 2 * 3.141592653589793
W1A0P34: (x(P34), wversatz)
W1A1P34: W1A0P34 + If[(x(P34) ≥ w1ug) ∧ (x(P34) ≤ w1og), Vector[Amplitude * (0, sin(P34phw1))]]
w1P34a01 = Segment(W1A0P34, W1A1P34)
ZZ0P34: (x(P34), If[zeigeran, zversatz, 0])
ZZ1P34: ZZ0P34 + If[(x(P34) ≥ w1ug) ∧ (x(P34) ≤ w1og), Vector[Amplitude * (cos(P34phw1), sin(P34phw1))]]
z01P34 = Segment(ZZ0P34, ZZ1P34)
P35: (35 * x(P01), 0)
P35phw1: (Periodenzahl - x(P35) / λ) * 2 * 3.141592653589793
W1A0P35: (x(P35), wversatz)
W1A1P35: W1A0P35 + If[(x(P35) ≥ w1ug) ∧ (x(P35) ≤ w1og), Vector[Amplitude * (0, sin(P35phw1))]]
w1P35a01 = Segment(W1A0P35, W1A1P35)
ZZ0P35: (x(P35), If[zeigeran, zversatz, 0])
ZZ1P35: ZZ0P35 + If[(x(P35) ≥ w1ug) ∧ (x(P35) ≤ w1og), Vector[Amplitude * (cos(P35phw1), sin(P35phw1))]]
z01P35 = Segment(ZZ0P35, ZZ1P35)
P36: (36 * x(P01), 0)
P36phw1: (Periodenzahl - x(P36) / λ) * 2 * 3.141592653589793
W1A0P36: (x(P36), wversatz)
W1A1P36: W1A0P36 + If[(x(P36) ≥ w1ug) ∧ (x(P36) ≤ w1og), Vector[Amplitude * (0, sin(P36phw1))]]
w1P36a01 = Segment(W1A0P36, W1A1P36)
ZZ0P36: (x(P36), If[zeigeran, zversatz, 0])
ZZ1P36: ZZ0P36 + If[(x(P36) ≥ w1ug) ∧ (x(P36) ≤ w1og), Vector[Amplitude * (cos(P36phw1), sin(P36phw1))]]
z01P36 = Segment(ZZ0P36, ZZ1P36)
P37: (37 * x(P01), 0)
P37phw1: (Periodenzahl - x(P37) / λ) * 2 * 3.141592653589793
W1A0P37: (x(P37), wversatz)
W1A1P37: W1A0P37 + If[(x(P37) ≥ w1ug) ∧ (x(P37) ≤ w1og), Vector[Amplitude * (0, sin(P37phw1))]]
w1P37a01 = Segment(W1A0P37, W1A1P37)
ZZ0P37: (x(P37), If[zeigeran, zversatz, 0])
ZZ1P37: ZZ0P37 + If[(x(P37) ≥ w1ug) ∧ (x(P37) ≤ w1og), Vector[Amplitude * (cos(P37phw1), sin(P37phw1))]]
z01P37 = Segment(ZZ0P37, ZZ1P37)
P38: (38 * x(P01), 0)
P38phw1: (Periodenzahl - x(P38) / λ) * 2 * 3.141592653589793
W1A0P38: (x(P38), wversatz)
W1A1P38: W1A0P38 + If[(x(P38) ≥ w1ug) ∧ (x(P38) ≤ w1og), Vector[Amplitude * (0, sin(P38phw1))]]
w1P38a01 = Segment(W1A0P38, W1A1P38)
ZZ0P38: (x(P38), If[zeigeran, zversatz, 0])
ZZ1P38: ZZ0P38 + If[(x(P38) ≥ w1ug) ∧ (x(P38) ≤ w1og), Vector[Amplitude * (cos(P38phw1), sin(P38phw1))]]
z01P38 = Segment(ZZ0P38, ZZ1P38)
P39: (39 * x(P01), 0)
P39phw1: (Periodenzahl - x(P39) / λ) * 2 * 3.141592653589793
W1A0P39: (x(P39), wversatz)
W1A1P39: W1A0P39 + If[(x(P39) ≥ w1ug) ∧ (x(P39) ≤ w1og), Vector[Amplitude * (0, sin(P39phw1))]]
w1P39a01 = Segment(W1A0P39, W1A1P39)
ZZ0P39: (x(P39), If[zeigeran, zversatz, 0])
ZZ1P39: ZZ0P39 + If[(x(P39) ≥ w1ug) ∧ (x(P39) ≤ w1og), Vector[Amplitude * (cos(P39phw1), sin(P39phw1))]]
z01P39 = Segment(ZZ0P39, ZZ1P39)
P40: (40 * x(P01), 0)
P40phw1: (Periodenzahl - x(P40) / λ) * 2 * 3.141592653589793
W1A0P40: (x(P40), wversatz)
W1A1P40: W1A0P40 + If[(x(P40) ≥ w1ug) ∧ (x(P40) ≤ w1og), Vector[Amplitude * (0, sin(P40phw1))]]
w1P40a01 = Segment(W1A0P40, W1A1P40)
ZZ0P40: (x(P40), If[zeigeran, zversatz, 0])
ZZ1P40: ZZ0P40 + If[(x(P40) ≥ w1ug) ∧ (x(P40) ≤ w1og), Vector[Amplitude * (cos(P40phw1), sin(P40phw1))]]
z01P40 = Segment(ZZ0P40, ZZ1P40)
P41: (41 * x(P01), 0)
P41phw1: (Periodenzahl - x(P41) / λ) * 2 * 3.141592653589793
W1A0P41: (x(P41), wversatz)
W1A1P41: W1A0P41 + If[(x(P41) ≥ w1ug) ∧ (x(P41) ≤ w1og), Vector[Amplitude * (0, sin(P41phw1))]]
w1P41a01 = Segment(W1A0P41, W1A1P41)
ZZ0P41: (x(P41), If[zeigeran, zversatz, 0])
ZZ1P41: ZZ0P41 + If[(x(P41) ≥ w1ug) ∧ (x(P41) ≤ w1og), Vector[Amplitude * (cos(P41phw1), sin(P41phw1))]]
z01P41 = Segment(ZZ0P41, ZZ1P41)
P42: (42 * x(P01), 0)
P42phw1: (Periodenzahl - x(P42) / λ) * 2 * 3.141592653589793
W1A0P42: (x(P42), wversatz)
W1A1P42: W1A0P42 + If[(x(P42) ≥ w1ug) ∧ (x(P42) ≤ w1og), Vector[Amplitude * (0, sin(P42phw1))]]
w1P42a01 = Segment(W1A0P42, W1A1P42)
ZZ0P42: (x(P42), If[zeigeran, zversatz, 0])
ZZ1P42: ZZ0P42 + If[(x(P42) ≥ w1ug) ∧ (x(P42) ≤ w1og), Vector[Amplitude * (cos(P42phw1), sin(P42phw1))]]
z01P42 = Segment(ZZ0P42, ZZ1P42)
P43: (43 * x(P01), 0)
P43phw1: (Periodenzahl - x(P43) / λ) * 2 * 3.141592653589793
W1A0P43: (x(P43), wversatz)
W1A1P43: W1A0P43 + If[(x(P43) ≥ w1ug) ∧ (x(P43) ≤ w1og), Vector[Amplitude * (0, sin(P43phw1))]]
w1P43a01 = Segment(W1A0P43, W1A1P43)
ZZ0P43: (x(P43), If[zeigeran, zversatz, 0])
ZZ1P43: ZZ0P43 + If[(x(P43) ≥ w1ug) ∧ (x(P43) ≤ w1og), Vector[Amplitude * (cos(P43phw1), sin(P43phw1))]]
z01P43 = Segment(ZZ0P43, ZZ1P43)
P44: (44 * x(P01), 0)
P44phw1: (Periodenzahl - x(P44) / λ) * 2 * 3.141592653589793
W1A0P44: (x(P44), wversatz)
W1A1P44: W1A0P44 + If[(x(P44) ≥ w1ug) ∧ (x(P44) ≤ w1og), Vector[Amplitude * (0, sin(P44phw1))]]
w1P44a01 = Segment(W1A0P44, W1A1P44)
ZZ0P44: (x(P44), If[zeigeran, zversatz, 0])
ZZ1P44: ZZ0P44 + If[(x(P44) ≥ w1ug) ∧ (x(P44) ≤ w1og), Vector[Amplitude * (cos(P44phw1), sin(P44phw1))]]
z01P44 = Segment(ZZ0P44, ZZ1P44)
P45: (45 * x(P01), 0)
P45phw1: (Periodenzahl - x(P45) / λ) * 2 * 3.141592653589793
W1A0P45: (x(P45), wversatz)
W1A1P45: W1A0P45 + If[(x(P45) ≥ w1ug) ∧ (x(P45) ≤ w1og), Vector[Amplitude * (0, sin(P45phw1))]]
w1P45a01 = Segment(W1A0P45, W1A1P45)
ZZ0P45: (x(P45), If[zeigeran, zversatz, 0])
ZZ1P45: ZZ0P45 + If[(x(P45) ≥ w1ug) ∧ (x(P45) ≤ w1og), Vector[Amplitude * (cos(P45phw1), sin(P45phw1))]]
z01P45 = Segment(ZZ0P45, ZZ1P45)
P46: (46 * x(P01), 0)
P46phw1: (Periodenzahl - x(P46) / λ) * 2 * 3.141592653589793
W1A0P46: (x(P46), wversatz)
W1A1P46: W1A0P46 + If[(x(P46) ≥ w1ug) ∧ (x(P46) ≤ w1og), Vector[Amplitude * (0, sin(P46phw1))]]
w1P46a01 = Segment(W1A0P46, W1A1P46)
ZZ0P46: (x(P46), If[zeigeran, zversatz, 0])
ZZ1P46: ZZ0P46 + If[(x(P46) ≥ w1ug) ∧ (x(P46) ≤ w1og), Vector[Amplitude * (cos(P46phw1), sin(P46phw1))]]
z01P46 = Segment(ZZ0P46, ZZ1P46)
P47: (47 * x(P01), 0)
P47phw1: (Periodenzahl - x(P47) / λ) * 2 * 3.141592653589793
W1A0P47: (x(P47), wversatz)
W1A1P47: W1A0P47 + If[(x(P47) ≥ w1ug) ∧ (x(P47) ≤ w1og), Vector[Amplitude * (0, sin(P47phw1))]]
w1P47a01 = Segment(W1A0P47, W1A1P47)
ZZ0P47: (x(P47), If[zeigeran, zversatz, 0])
ZZ1P47: ZZ0P47 + If[(x(P47) ≥ w1ug) ∧ (x(P47) ≤ w1og), Vector[Amplitude * (cos(P47phw1), sin(P47phw1))]]
z01P47 = Segment(ZZ0P47, ZZ1P47)
P48: (48 * x(P01), 0)
P48phw1: (Periodenzahl - x(P48) / λ) * 2 * 3.141592653589793
W1A0P48: (x(P48), wversatz)
W1A1P48: W1A0P48 + If[(x(P48) ≥ w1ug) ∧ (x(P48) ≤ w1og), Vector[Amplitude * (0, sin(P48phw1))]]
w1P48a01 = Segment(W1A0P48, W1A1P48)
ZZ0P48: (x(P48), If[zeigeran, zversatz, 0])
ZZ1P48: ZZ0P48 + If[(x(P48) ≥ w1ug) ∧ (x(P48) ≤ w1og), Vector[Amplitude * (cos(P48phw1), sin(P48phw1))]]
z01P48 = Segment(ZZ0P48, ZZ1P48)
P49: (49 * x(P01), 0)
P49phw1: (Periodenzahl - x(P49) / λ) * 2 * 3.141592653589793
W1A0P49: (x(P49), wversatz)
W1A1P49: W1A0P49 + If[(x(P49) ≥ w1ug) ∧ (x(P49) ≤ w1og), Vector[Amplitude * (0, sin(P49phw1))]]
w1P49a01 = Segment(W1A0P49, W1A1P49)
ZZ0P49: (x(P49), If[zeigeran, zversatz, 0])
ZZ1P49: ZZ0P49 + If[(x(P49) ≥ w1ug) ∧ (x(P49) ≤ w1og), Vector[Amplitude * (cos(P49phw1), sin(P49phw1))]]
z01P49 = Segment(ZZ0P49, ZZ1P49)
P50: (50 * x(P01), 0)
P50phw1: (Periodenzahl - x(P50) / λ) * 2 * 3.141592653589793
W1A0P50: (x(P50), wversatz)
W1A1P50: W1A0P50 + If[(x(P50) ≥ w1ug) ∧ (x(P50) ≤ w1og), Vector[Amplitude * (0, sin(P50phw1))]]
w1P50a01 = Segment(W1A0P50, W1A1P50)
ZZ0P50: (x(P50), If[zeigeran, zversatz, 0])
ZZ1P50: ZZ0P50 + If[(x(P50) ≥ w1ug) ∧ (x(P50) ≤ w1og), Vector[Amplitude * (cos(P50phw1), sin(P50phw1))]]
z01P50 = Segment(ZZ0P50, ZZ1P50)
P51: (51 * x(P01), 0)
P51phw1: (Periodenzahl - x(P51) / λ) * 2 * 3.141592653589793
W1A0P51: (x(P51), wversatz)
W1A1P51: W1A0P51 + If[(x(P51) ≥ w1ug) ∧ (x(P51) ≤ w1og), Vector[Amplitude * (0, sin(P51phw1))]]
w1P51a01 = Segment(W1A0P51, W1A1P51)
ZZ0P51: (x(P51), If[zeigeran, zversatz, 0])
ZZ1P51: ZZ0P51 + If[(x(P51) ≥ w1ug) ∧ (x(P51) ≤ w1og), Vector[Amplitude * (cos(P51phw1), sin(P51phw1))]]
z01P51 = Segment(ZZ0P51, ZZ1P51)
P52: (52 * x(P01), 0)
P52phw1: (Periodenzahl - x(P52) / λ) * 2 * 3.141592653589793
W1A0P52: (x(P52), wversatz)
W1A1P52: W1A0P52 + If[(x(P52) ≥ w1ug) ∧ (x(P52) ≤ w1og), Vector[Amplitude * (0, sin(P52phw1))]]
w1P52a01 = Segment(W1A0P52, W1A1P52)
ZZ0P52: (x(P52), If[zeigeran, zversatz, 0])
ZZ1P52: ZZ0P52 + If[(x(P52) ≥ w1ug) ∧ (x(P52) ≤ w1og), Vector[Amplitude * (cos(P52phw1), sin(P52phw1))]]
z01P52 = Segment(ZZ0P52, ZZ1P52)
P53: (53 * x(P01), 0)
P53phw1: (Periodenzahl - x(P53) / λ) * 2 * 3.141592653589793
W1A0P53: (x(P53), wversatz)
W1A1P53: W1A0P53 + If[(x(P53) ≥ w1ug) ∧ (x(P53) ≤ w1og), Vector[Amplitude * (0, sin(P53phw1))]]
w1P53a01 = Segment(W1A0P53, W1A1P53)
ZZ0P53: (x(P53), If[zeigeran, zversatz, 0])
ZZ1P53: ZZ0P53 + If[(x(P53) ≥ w1ug) ∧ (x(P53) ≤ w1og), Vector[Amplitude * (cos(P53phw1), sin(P53phw1))]]
z01P53 = Segment(ZZ0P53, ZZ1P53)
P54: (54 * x(P01), 0)
P54phw1: (Periodenzahl - x(P54) / λ) * 2 * 3.141592653589793
W1A0P54: (x(P54), wversatz)
W1A1P54: W1A0P54 + If[(x(P54) ≥ w1ug) ∧ (x(P54) ≤ w1og), Vector[Amplitude * (0, sin(P54phw1))]]
w1P54a01 = Segment(W1A0P54, W1A1P54)
ZZ0P54: (x(P54), If[zeigeran, zversatz, 0])
ZZ1P54: ZZ0P54 + If[(x(P54) ≥ w1ug) ∧ (x(P54) ≤ w1og), Vector[Amplitude * (cos(P54phw1), sin(P54phw1))]]
z01P54 = Segment(ZZ0P54, ZZ1P54)
P55: (55 * x(P01), 0)
P55phw1: (Periodenzahl - x(P55) / λ) * 2 * 3.141592653589793
W1A0P55: (x(P55), wversatz)
W1A1P55: W1A0P55 + If[(x(P55) ≥ w1ug) ∧ (x(P55) ≤ w1og), Vector[Amplitude * (0, sin(P55phw1))]]
w1P55a01 = Segment(W1A0P55, W1A1P55)
ZZ0P55: (x(P55), If[zeigeran, zversatz, 0])
ZZ1P55: ZZ0P55 + If[(x(P55) ≥ w1ug) ∧ (x(P55) ≤ w1og), Vector[Amplitude * (cos(P55phw1), sin(P55phw1))]]
z01P55 = Segment(ZZ0P55, ZZ1P55)
P56: (56 * x(P01), 0)
P56phw1: (Periodenzahl - x(P56) / λ) * 2 * 3.141592653589793
W1A0P56: (x(P56), wversatz)
W1A1P56: W1A0P56 + If[(x(P56) ≥ w1ug) ∧ (x(P56) ≤ w1og), Vector[Amplitude * (0, sin(P56phw1))]]
w1P56a01 = Segment(W1A0P56, W1A1P56)
ZZ0P56: (x(P56), If[zeigeran, zversatz, 0])
ZZ1P56: ZZ0P56 + If[(x(P56) ≥ w1ug) ∧ (x(P56) ≤ w1og), Vector[Amplitude * (cos(P56phw1), sin(P56phw1))]]
z01P56 = Segment(ZZ0P56, ZZ1P56)
P57: (57 * x(P01), 0)
P57phw1: (Periodenzahl - x(P57) / λ) * 2 * 3.141592653589793
W1A0P57: (x(P57), wversatz)
W1A1P57: W1A0P57 + If[(x(P57) ≥ w1ug) ∧ (x(P57) ≤ w1og), Vector[Amplitude * (0, sin(P57phw1))]]
w1P57a01 = Segment(W1A0P57, W1A1P57)
ZZ0P57: (x(P57), If[zeigeran, zversatz, 0])
ZZ1P57: ZZ0P57 + If[(x(P57) ≥ w1ug) ∧ (x(P57) ≤ w1og), Vector[Amplitude * (cos(P57phw1), sin(P57phw1))]]
z01P57 = Segment(ZZ0P57, ZZ1P57)
P58: (58 * x(P01), 0)
P58phw1: (Periodenzahl - x(P58) / λ) * 2 * 3.141592653589793
W1A0P58: (x(P58), wversatz)
W1A1P58: W1A0P58 + If[(x(P58) ≥ w1ug) ∧ (x(P58) ≤ w1og), Vector[Amplitude * (0, sin(P58phw1))]]
w1P58a01 = Segment(W1A0P58, W1A1P58)
ZZ0P58: (x(P58), If[zeigeran, zversatz, 0])
ZZ1P58: ZZ0P58 + If[(x(P58) ≥ w1ug) ∧ (x(P58) ≤ w1og), Vector[Amplitude * (cos(P58phw1), sin(P58phw1))]]
z01P58 = Segment(ZZ0P58, ZZ1P58)
P59: (59 * x(P01), 0)
P59phw1: (Periodenzahl - x(P59) / λ) * 2 * 3.141592653589793
W1A0P59: (x(P59), wversatz)
W1A1P59: W1A0P59 + If[(x(P59) ≥ w1ug) ∧ (x(P59) ≤ w1og), Vector[Amplitude * (0, sin(P59phw1))]]
w1P59a01 = Segment(W1A0P59, W1A1P59)
ZZ0P59: (x(P59), If[zeigeran, zversatz, 0])
ZZ1P59: ZZ0P59 + If[(x(P59) ≥ w1ug) ∧ (x(P59) ≤ w1og), Vector[Amplitude * (cos(P59phw1), sin(P59phw1))]]
z01P59 = Segment(ZZ0P59, ZZ1P59)
P60: (60 * x(P01), 0)
P60phw1: (Periodenzahl - x(P60) / λ) * 2 * 3.141592653589793
W1A0P60: (x(P60), wversatz)
W1A1P60: W1A0P60 + If[(x(P60) ≥ w1ug) ∧ (x(P60) ≤ w1og), Vector[Amplitude * (0, sin(P60phw1))]]
w1P60a01 = Segment(W1A0P60, W1A1P60)
ZZ0P60: (x(P60), If[zeigeran, zversatz, 0])
ZZ1P60: ZZ0P60 + If[(x(P60) ≥ w1ug) ∧ (x(P60) ≤ w1og), Vector[Amplitude * (cos(P60phw1), sin(P60phw1))]]
z01P60 = Segment(ZZ0P60, ZZ1P60)
P61: (61 * x(P01), 0)
P61phw1: (Periodenzahl - x(P61) / λ) * 2 * 3.141592653589793
W1A0P61: (x(P61), wversatz)
W1A1P61: W1A0P61 + If[(x(P61) ≥ w1ug) ∧ (x(P61) ≤ w1og), Vector[Amplitude * (0, sin(P61phw1))]]
w1P61a01 = Segment(W1A0P61, W1A1P61)
ZZ0P61: (x(P61), If[zeigeran, zversatz, 0])
ZZ1P61: ZZ0P61 + If[(x(P61) ≥ w1ug) ∧ (x(P61) ≤ w1og), Vector[Amplitude * (cos(P61phw1), sin(P61phw1))]]
z01P61 = Segment(ZZ0P61, ZZ1P61)
P62: (62 * x(P01), 0)
P62phw1: (Periodenzahl - x(P62) / λ) * 2 * 3.141592653589793
W1A0P62: (x(P62), wversatz)
W1A1P62: W1A0P62 + If[(x(P62) ≥ w1ug) ∧ (x(P62) ≤ w1og), Vector[Amplitude * (0, sin(P62phw1))]]
w1P62a01 = Segment(W1A0P62, W1A1P62)
ZZ0P62: (x(P62), If[zeigeran, zversatz, 0])
ZZ1P62: ZZ0P62 + If[(x(P62) ≥ w1ug) ∧ (x(P62) ≤ w1og), Vector[Amplitude * (cos(P62phw1), sin(P62phw1))]]
z01P62 = Segment(ZZ0P62, ZZ1P62)
P63: (63 * x(P01), 0)
P63phw1: (Periodenzahl - x(P63) / λ) * 2 * 3.141592653589793
W1A0P63: (x(P63), wversatz)
W1A1P63: W1A0P63 + If[(x(P63) ≥ w1ug) ∧ (x(P63) ≤ w1og), Vector[Amplitude * (0, sin(P63phw1))]]
w1P63a01 = Segment(W1A0P63, W1A1P63)
ZZ0P63: (x(P63), If[zeigeran, zversatz, 0])
ZZ1P63: ZZ0P63 + If[(x(P63) ≥ w1ug) ∧ (x(P63) ≤ w1og), Vector[Amplitude * (cos(P63phw1), sin(P63phw1))]]
z01P63 = Segment(ZZ0P63, ZZ1P63)
P64: (64 * x(P01), 0)
P64phw1: (Periodenzahl - x(P64) / λ) * 2 * 3.141592653589793
W1A0P64: (x(P64), wversatz)
W1A1P64: W1A0P64 + If[(x(P64) ≥ w1ug) ∧ (x(P64) ≤ w1og), Vector[Amplitude * (0, sin(P64phw1))]]
w1P64a01 = Segment(W1A0P64, W1A1P64)
ZZ0P64: (x(P64), If[zeigeran, zversatz, 0])
ZZ1P64: ZZ0P64 + If[(x(P64) ≥ w1ug) ∧ (x(P64) ≤ w1og), Vector[Amplitude * (cos(P64phw1), sin(P64phw1))]]
z01P64 = Segment(ZZ0P64, ZZ1P64)
P65: (65 * x(P01), 0)
P65phw1: (Periodenzahl - x(P65) / λ) * 2 * 3.141592653589793
W1A0P65: (x(P65), wversatz)
W1A1P65: W1A0P65 + If[(x(P65) ≥ w1ug) ∧ (x(P65) ≤ w1og), Vector[Amplitude * (0, sin(P65phw1))]]
w1P65a01 = Segment(W1A0P65, W1A1P65)
ZZ0P65: (x(P65), If[zeigeran, zversatz, 0])
ZZ1P65: ZZ0P65 + If[(x(P65) ≥ w1ug) ∧ (x(P65) ≤ w1og), Vector[Amplitude * (cos(P65phw1), sin(P65phw1))]]
z01P65 = Segment(ZZ0P65, ZZ1P65)
P66: (66 * x(P01), 0)
P66phw1: (Periodenzahl - x(P66) / λ) * 2 * 3.141592653589793
W1A0P66: (x(P66), wversatz)
W1A1P66: W1A0P66 + If[(x(P66) ≥ w1ug) ∧ (x(P66) ≤ w1og), Vector[Amplitude * (0, sin(P66phw1))]]
w1P66a01 = Segment(W1A0P66, W1A1P66)
ZZ0P66: (x(P66), If[zeigeran, zversatz, 0])
ZZ1P66: ZZ0P66 + If[(x(P66) ≥ w1ug) ∧ (x(P66) ≤ w1og), Vector[Amplitude * (cos(P66phw1), sin(P66phw1))]]
z01P66 = Segment(ZZ0P66, ZZ1P66)
P67: (67 * x(P01), 0)
P67phw1: (Periodenzahl - x(P67) / λ) * 2 * 3.141592653589793
W1A0P67: (x(P67), wversatz)
W1A1P67: W1A0P67 + If[(x(P67) ≥ w1ug) ∧ (x(P67) ≤ w1og), Vector[Amplitude * (0, sin(P67phw1))]]
w1P67a01 = Segment(W1A0P67, W1A1P67)
ZZ0P67: (x(P67), If[zeigeran, zversatz, 0])
ZZ1P67: ZZ0P67 + If[(x(P67) ≥ w1ug) ∧ (x(P67) ≤ w1og), Vector[Amplitude * (cos(P67phw1), sin(P67phw1))]]
z01P67 = Segment(ZZ0P67, ZZ1P67)
P68: (68 * x(P01), 0)
P68phw1: (Periodenzahl - x(P68) / λ) * 2 * 3.141592653589793
W1A0P68: (x(P68), wversatz)
W1A1P68: W1A0P68 + If[(x(P68) ≥ w1ug) ∧ (x(P68) ≤ w1og), Vector[Amplitude * (0, sin(P68phw1))]]
w1P68a01 = Segment(W1A0P68, W1A1P68)
ZZ0P68: (x(P68), If[zeigeran, zversatz, 0])
ZZ1P68: ZZ0P68 + If[(x(P68) ≥ w1ug) ∧ (x(P68) ≤ w1og), Vector[Amplitude * (cos(P68phw1), sin(P68phw1))]]
z01P68 = Segment(ZZ0P68, ZZ1P68)
P69: (69 * x(P01), 0)
P69phw1: (Periodenzahl - x(P69) / λ) * 2 * 3.141592653589793
W1A0P69: (x(P69), wversatz)
W1A1P69: W1A0P69 + If[(x(P69) ≥ w1ug) ∧ (x(P69) ≤ w1og), Vector[Amplitude * (0, sin(P69phw1))]]
w1P69a01 = Segment(W1A0P69, W1A1P69)
ZZ0P69: (x(P69), If[zeigeran, zversatz, 0])
ZZ1P69: ZZ0P69 + If[(x(P69) ≥ w1ug) ∧ (x(P69) ≤ w1og), Vector[Amplitude * (cos(P69phw1), sin(P69phw1))]]
z01P69 = Segment(ZZ0P69, ZZ1P69)
P70: (70 * x(P01), 0)
P70phw1: (Periodenzahl - x(P70) / λ) * 2 * 3.141592653589793
W1A0P70: (x(P70), wversatz)
W1A1P70: W1A0P70 + If[(x(P70) ≥ w1ug) ∧ (x(P70) ≤ w1og), Vector[Amplitude * (0, sin(P70phw1))]]
w1P70a01 = Segment(W1A0P70, W1A1P70)
ZZ0P70: (x(P70), If[zeigeran, zversatz, 0])
ZZ1P70: ZZ0P70 + If[(x(P70) ≥ w1ug) ∧ (x(P70) ≤ w1og), Vector[Amplitude * (cos(P70phw1), sin(P70phw1))]]
z01P70 = Segment(ZZ0P70, ZZ1P70)
P71: (71 * x(P01), 0)
P71phw1: (Periodenzahl - x(P71) / λ) * 2 * 3.141592653589793
W1A0P71: (x(P71), wversatz)
W1A1P71: W1A0P71 + If[(x(P71) ≥ w1ug) ∧ (x(P71) ≤ w1og), Vector[Amplitude * (0, sin(P71phw1))]]
w1P71a01 = Segment(W1A0P71, W1A1P71)
ZZ0P71: (x(P71), If[zeigeran, zversatz, 0])
ZZ1P71: ZZ0P71 + If[(x(P71) ≥ w1ug) ∧ (x(P71) ≤ w1og), Vector[Amplitude * (cos(P71phw1), sin(P71phw1))]]
z01P71 = Segment(ZZ0P71, ZZ1P71)
P72: (72 * x(P01), 0)
P72phw1: (Periodenzahl - x(P72) / λ) * 2 * 3.141592653589793
W1A0P72: (x(P72), wversatz)
W1A1P72: W1A0P72 + If[(x(P72) ≥ w1ug) ∧ (x(P72) ≤ w1og), Vector[Amplitude * (0, sin(P72phw1))]]
w1P72a01 = Segment(W1A0P72, W1A1P72)
ZZ0P72: (x(P72), If[zeigeran, zversatz, 0])
ZZ1P72: ZZ0P72 + If[(x(P72) ≥ w1ug) ∧ (x(P72) ≤ w1og), Vector[Amplitude * (cos(P72phw1), sin(P72phw1))]]
z01P72 = Segment(ZZ0P72, ZZ1P72)
P73: (73 * x(P01), 0)
P73phw1: (Periodenzahl - x(P73) / λ) * 2 * 3.141592653589793
W1A0P73: (x(P73), wversatz)
W1A1P73: W1A0P73 + If[(x(P73) ≥ w1ug) ∧ (x(P73) ≤ w1og), Vector[Amplitude * (0, sin(P73phw1))]]
w1P73a01 = Segment(W1A0P73, W1A1P73)
ZZ0P73: (x(P73), If[zeigeran, zversatz, 0])
ZZ1P73: ZZ0P73 + If[(x(P73) ≥ w1ug) ∧ (x(P73) ≤ w1og), Vector[Amplitude * (cos(P73phw1), sin(P73phw1))]]
z01P73 = Segment(ZZ0P73, ZZ1P73)
P74: (74 * x(P01), 0)
P74phw1: (Periodenzahl - x(P74) / λ) * 2 * 3.141592653589793
W1A0P74: (x(P74), wversatz)
W1A1P74: W1A0P74 + If[(x(P74) ≥ w1ug) ∧ (x(P74) ≤ w1og), Vector[Amplitude * (0, sin(P74phw1))]]
w1P74a01 = Segment(W1A0P74, W1A1P74)
ZZ0P74: (x(P74), If[zeigeran, zversatz, 0])
ZZ1P74: ZZ0P74 + If[(x(P74) ≥ w1ug) ∧ (x(P74) ≤ w1og), Vector[Amplitude * (cos(P74phw1), sin(P74phw1))]]
z01P74 = Segment(ZZ0P74, ZZ1P74)
P75: (75 * x(P01), 0)
P75phw1: (Periodenzahl - x(P75) / λ) * 2 * 3.141592653589793
W1A0P75: (x(P75), wversatz)
W1A1P75: W1A0P75 + If[(x(P75) ≥ w1ug) ∧ (x(P75) ≤ w1og), Vector[Amplitude * (0, sin(P75phw1))]]
w1P75a01 = Segment(W1A0P75, W1A1P75)
ZZ0P75: (x(P75), If[zeigeran, zversatz, 0])
ZZ1P75: ZZ0P75 + If[(x(P75) ≥ w1ug) ∧ (x(P75) ≤ w1og), Vector[Amplitude * (cos(P75phw1), sin(P75phw1))]]
z01P75 = Segment(ZZ0P75, ZZ1P75)
P76: (76 * x(P01), 0)
P76phw1: (Periodenzahl - x(P76) / λ) * 2 * 3.141592653589793
W1A0P76: (x(P76), wversatz)
W1A1P76: W1A0P76 + If[(x(P76) ≥ w1ug) ∧ (x(P76) ≤ w1og), Vector[Amplitude * (0, sin(P76phw1))]]
w1P76a01 = Segment(W1A0P76, W1A1P76)
ZZ0P76: (x(P76), If[zeigeran, zversatz, 0])
ZZ1P76: ZZ0P76 + If[(x(P76) ≥ w1ug) ∧ (x(P76) ≤ w1og), Vector[Amplitude * (cos(P76phw1), sin(P76phw1))]]
z01P76 = Segment(ZZ0P76, ZZ1P76)
P77: (77 * x(P01), 0)
P77phw1: (Periodenzahl - x(P77) / λ) * 2 * 3.141592653589793
W1A0P77: (x(P77), wversatz)
W1A1P77: W1A0P77 + If[(x(P77) ≥ w1ug) ∧ (x(P77) ≤ w1og), Vector[Amplitude * (0, sin(P77phw1))]]
w1P77a01 = Segment(W1A0P77, W1A1P77)
ZZ0P77: (x(P77), If[zeigeran, zversatz, 0])
ZZ1P77: ZZ0P77 + If[(x(P77) ≥ w1ug) ∧ (x(P77) ≤ w1og), Vector[Amplitude * (cos(P77phw1), sin(P77phw1))]]
z01P77 = Segment(ZZ0P77, ZZ1P77)
P78: (78 * x(P01), 0)
P78phw1: (Periodenzahl - x(P78) / λ) * 2 * 3.141592653589793
W1A0P78: (x(P78), wversatz)
W1A1P78: W1A0P78 + If[(x(P78) ≥ w1ug) ∧ (x(P78) ≤ w1og), Vector[Amplitude * (0, sin(P78phw1))]]
w1P78a01 = Segment(W1A0P78, W1A1P78)
ZZ0P78: (x(P78), If[zeigeran, zversatz, 0])
ZZ1P78: ZZ0P78 + If[(x(P78) ≥ w1ug) ∧ (x(P78) ≤ w1og), Vector[Amplitude * (cos(P78phw1), sin(P78phw1))]]
z01P78 = Segment(ZZ0P78, ZZ1P78)
P79: (79 * x(P01), 0)
P79phw1: (Periodenzahl - x(P79) / λ) * 2 * 3.141592653589793
W1A0P79: (x(P79), wversatz)
W1A1P79: W1A0P79 + If[(x(P79) ≥ w1ug) ∧ (x(P79) ≤ w1og), Vector[Amplitude * (0, sin(P79phw1))]]
w1P79a01 = Segment(W1A0P79, W1A1P79)
ZZ0P79: (x(P79), If[zeigeran, zversatz, 0])
ZZ1P79: ZZ0P79 + If[(x(P79) ≥ w1ug) ∧ (x(P79) ≤ w1og), Vector[Amplitude * (cos(P79phw1), sin(P79phw1))]]
z01P79 = Segment(ZZ0P79, ZZ1P79)
P80: (80 * x(P01), 0)
P80phw1: (Periodenzahl - x(P80) / λ) * 2 * 3.141592653589793
W1A0P80: (x(P80), wversatz)
W1A1P80: W1A0P80 + If[(x(P80) ≥ w1ug) ∧ (x(P80) ≤ w1og), Vector[Amplitude * (0, sin(P80phw1))]]
w1P80a01 = Segment(W1A0P80, W1A1P80)
ZZ0P80: (x(P80), If[zeigeran, zversatz, 0])
ZZ1P80: ZZ0P80 + If[(x(P80) ≥ w1ug) ∧ (x(P80) ≤ w1og), Vector[Amplitude * (cos(P80phw1), sin(P80phw1))]]
z01P80 = Segment(ZZ0P80, ZZ1P80)
P81: (81 * x(P01), 0)
P81phw1: (Periodenzahl - x(P81) / λ) * 2 * 3.141592653589793
W1A0P81: (x(P81), wversatz)
W1A1P81: W1A0P81 + If[(x(P81) ≥ w1ug) ∧ (x(P81) ≤ w1og), Vector[Amplitude * (0, sin(P81phw1))]]
w1P81a01 = Segment(W1A0P81, W1A1P81)
ZZ0P81: (x(P81), If[zeigeran, zversatz, 0])
ZZ1P81: ZZ0P81 + If[(x(P81) ≥ w1ug) ∧ (x(P81) ≤ w1og), Vector[Amplitude * (cos(P81phw1), sin(P81phw1))]]
z01P81 = Segment(ZZ0P81, ZZ1P81)
P82: (82 * x(P01), 0)
P82phw1: (Periodenzahl - x(P82) / λ) * 2 * 3.141592653589793
W1A0P82: (x(P82), wversatz)
W1A1P82: W1A0P82 + If[(x(P82) ≥ w1ug) ∧ (x(P82) ≤ w1og), Vector[Amplitude * (0, sin(P82phw1))]]
w1P82a01 = Segment(W1A0P82, W1A1P82)
ZZ0P82: (x(P82), If[zeigeran, zversatz, 0])
ZZ1P82: ZZ0P82 + If[(x(P82) ≥ w1ug) ∧ (x(P82) ≤ w1og), Vector[Amplitude * (cos(P82phw1), sin(P82phw1))]]
z01P82 = Segment(ZZ0P82, ZZ1P82)
P83: (83 * x(P01), 0)
P83phw1: (Periodenzahl - x(P83) / λ) * 2 * 3.141592653589793
W1A0P83: (x(P83), wversatz)
W1A1P83: W1A0P83 + If[(x(P83) ≥ w1ug) ∧ (x(P83) ≤ w1og), Vector[Amplitude * (0, sin(P83phw1))]]
w1P83a01 = Segment(W1A0P83, W1A1P83)
ZZ0P83: (x(P83), If[zeigeran, zversatz, 0])
ZZ1P83: ZZ0P83 + If[(x(P83) ≥ w1ug) ∧ (x(P83) ≤ w1og), Vector[Amplitude * (cos(P83phw1), sin(P83phw1))]]
z01P83 = Segment(ZZ0P83, ZZ1P83)
P84: (84 * x(P01), 0)
P84phw1: (Periodenzahl - x(P84) / λ) * 2 * 3.141592653589793
W1A0P84: (x(P84), wversatz)
W1A1P84: W1A0P84 + If[(x(P84) ≥ w1ug) ∧ (x(P84) ≤ w1og), Vector[Amplitude * (0, sin(P84phw1))]]
w1P84a01 = Segment(W1A0P84, W1A1P84)
ZZ0P84: (x(P84), If[zeigeran, zversatz, 0])
ZZ1P84: ZZ0P84 + If[(x(P84) ≥ w1ug) ∧ (x(P84) ≤ w1og), Vector[Amplitude * (cos(P84phw1), sin(P84phw1))]]
z01P84 = Segment(ZZ0P84, ZZ1P84)
P85: (85 * x(P01), 0)
P85phw1: (Periodenzahl - x(P85) / λ) * 2 * 3.141592653589793
W1A0P85: (x(P85), wversatz)
W1A1P85: W1A0P85 + If[(x(P85) ≥ w1ug) ∧ (x(P85) ≤ w1og), Vector[Amplitude * (0, sin(P85phw1))]]
w1P85a01 = Segment(W1A0P85, W1A1P85)
ZZ0P85: (x(P85), If[zeigeran, zversatz, 0])
ZZ1P85: ZZ0P85 + If[(x(P85) ≥ w1ug) ∧ (x(P85) ≤ w1og), Vector[Amplitude * (cos(P85phw1), sin(P85phw1))]]
z01P85 = Segment(ZZ0P85, ZZ1P85)
P86: (86 * x(P01), 0)
P86phw1: (Periodenzahl - x(P86) / λ) * 2 * 3.141592653589793
W1A0P86: (x(P86), wversatz)
W1A1P86: W1A0P86 + If[(x(P86) ≥ w1ug) ∧ (x(P86) ≤ w1og), Vector[Amplitude * (0, sin(P86phw1))]]
w1P86a01 = Segment(W1A0P86, W1A1P86)
ZZ0P86: (x(P86), If[zeigeran, zversatz, 0])
ZZ1P86: ZZ0P86 + If[(x(P86) ≥ w1ug) ∧ (x(P86) ≤ w1og), Vector[Amplitude * (cos(P86phw1), sin(P86phw1))]]
z01P86 = Segment(ZZ0P86, ZZ1P86)
P87: (87 * x(P01), 0)
P87phw1: (Periodenzahl - x(P87) / λ) * 2 * 3.141592653589793
W1A0P87: (x(P87), wversatz)
W1A1P87: W1A0P87 + If[(x(P87) ≥ w1ug) ∧ (x(P87) ≤ w1og), Vector[Amplitude * (0, sin(P87phw1))]]
w1P87a01 = Segment(W1A0P87, W1A1P87)
ZZ0P87: (x(P87), If[zeigeran, zversatz, 0])
ZZ1P87: ZZ0P87 + If[(x(P87) ≥ w1ug) ∧ (x(P87) ≤ w1og), Vector[Amplitude * (cos(P87phw1), sin(P87phw1))]]
z01P87 = Segment(ZZ0P87, ZZ1P87)
P88: (88 * x(P01), 0)
P88phw1: (Periodenzahl - x(P88) / λ) * 2 * 3.141592653589793
W1A0P88: (x(P88), wversatz)
W1A1P88: W1A0P88 + If[(x(P88) ≥ w1ug) ∧ (x(P88) ≤ w1og), Vector[Amplitude * (0, sin(P88phw1))]]
w1P88a01 = Segment(W1A0P88, W1A1P88)
ZZ0P88: (x(P88), If[zeigeran, zversatz, 0])
ZZ1P88: ZZ0P88 + If[(x(P88) ≥ w1ug) ∧ (x(P88) ≤ w1og), Vector[Amplitude * (cos(P88phw1), sin(P88phw1))]]
z01P88 = Segment(ZZ0P88, ZZ1P88)
P89: (89 * x(P01), 0)
P89phw1: (Periodenzahl - x(P89) / λ) * 2 * 3.141592653589793
W1A0P89: (x(P89), wversatz)
W1A1P89: W1A0P89 + If[(x(P89) ≥ w1ug) ∧ (x(P89) ≤ w1og), Vector[Amplitude * (0, sin(P89phw1))]]
w1P89a01 = Segment(W1A0P89, W1A1P89)
ZZ0P89: (x(P89), If[zeigeran, zversatz, 0])
ZZ1P89: ZZ0P89 + If[(x(P89) ≥ w1ug) ∧ (x(P89) ≤ w1og), Vector[Amplitude * (cos(P89phw1), sin(P89phw1))]]
z01P89 = Segment(ZZ0P89, ZZ1P89)
P90: (90 * x(P01), 0)
P90phw1: (Periodenzahl - x(P90) / λ) * 2 * 3.141592653589793
W1A0P90: (x(P90), wversatz)
W1A1P90: W1A0P90 + If[(x(P90) ≥ w1ug) ∧ (x(P90) ≤ w1og), Vector[Amplitude * (0, sin(P90phw1))]]
w1P90a01 = Segment(W1A0P90, W1A1P90)
ZZ0P90: (x(P90), If[zeigeran, zversatz, 0])
ZZ1P90: ZZ0P90 + If[(x(P90) ≥ w1ug) ∧ (x(P90) ≤ w1og), Vector[Amplitude * (cos(P90phw1), sin(P90phw1))]]
z01P90 = Segment(ZZ0P90, ZZ1P90)
P91: (91 * x(P01), 0)
P91phw1: (Periodenzahl - x(P91) / λ) * 2 * 3.141592653589793
W1A0P91: (x(P91), wversatz)
W1A1P91: W1A0P91 + If[(x(P91) ≥ w1ug) ∧ (x(P91) ≤ w1og), Vector[Amplitude * (0, sin(P91phw1))]]
w1P91a01 = Segment(W1A0P91, W1A1P91)
ZZ0P91: (x(P91), If[zeigeran, zversatz, 0])
ZZ1P91: ZZ0P91 + If[(x(P91) ≥ w1ug) ∧ (x(P91) ≤ w1og), Vector[Amplitude * (cos(P91phw1), sin(P91phw1))]]
z01P91 = Segment(ZZ0P91, ZZ1P91)
P92: (92 * x(P01), 0)
P92phw1: (Periodenzahl - x(P92) / λ) * 2 * 3.141592653589793
W1A0P92: (x(P92), wversatz)
W1A1P92: W1A0P92 + If[(x(P92) ≥ w1ug) ∧ (x(P92) ≤ w1og), Vector[Amplitude * (0, sin(P92phw1))]]
w1P92a01 = Segment(W1A0P92, W1A1P92)
ZZ0P92: (x(P92), If[zeigeran, zversatz, 0])
ZZ1P92: ZZ0P92 + If[(x(P92) ≥ w1ug) ∧ (x(P92) ≤ w1og), Vector[Amplitude * (cos(P92phw1), sin(P92phw1))]]
z01P92 = Segment(ZZ0P92, ZZ1P92)
P93: (93 * x(P01), 0)
P93phw1: (Periodenzahl - x(P93) / λ) * 2 * 3.141592653589793
W1A0P93: (x(P93), wversatz)
W1A1P93: W1A0P93 + If[(x(P93) ≥ w1ug) ∧ (x(P93) ≤ w1og), Vector[Amplitude * (0, sin(P93phw1))]]
w1P93a01 = Segment(W1A0P93, W1A1P93)
ZZ0P93: (x(P93), If[zeigeran, zversatz, 0])
ZZ1P93: ZZ0P93 + If[(x(P93) ≥ w1ug) ∧ (x(P93) ≤ w1og), Vector[Amplitude * (cos(P93phw1), sin(P93phw1))]]
z01P93 = Segment(ZZ0P93, ZZ1P93)
P94: (94 * x(P01), 0)
P94phw1: (Periodenzahl - x(P94) / λ) * 2 * 3.141592653589793
W1A0P94: (x(P94), wversatz)
W1A1P94: W1A0P94 + If[(x(P94) ≥ w1ug) ∧ (x(P94) ≤ w1og), Vector[Amplitude * (0, sin(P94phw1))]]
w1P94a01 = Segment(W1A0P94, W1A1P94)
ZZ0P94: (x(P94), If[zeigeran, zversatz, 0])
ZZ1P94: ZZ0P94 + If[(x(P94) ≥ w1ug) ∧ (x(P94) ≤ w1og), Vector[Amplitude * (cos(P94phw1), sin(P94phw1))]]
z01P94 = Segment(ZZ0P94, ZZ1P94)
P95: (95 * x(P01), 0)
P95phw1: (Periodenzahl - x(P95) / λ) * 2 * 3.141592653589793
W1A0P95: (x(P95), wversatz)
W1A1P95: W1A0P95 + If[(x(P95) ≥ w1ug) ∧ (x(P95) ≤ w1og), Vector[Amplitude * (0, sin(P95phw1))]]
w1P95a01 = Segment(W1A0P95, W1A1P95)
ZZ0P95: (x(P95), If[zeigeran, zversatz, 0])
ZZ1P95: ZZ0P95 + If[(x(P95) ≥ w1ug) ∧ (x(P95) ≤ w1og), Vector[Amplitude * (cos(P95phw1), sin(P95phw1))]]
z01P95 = Segment(ZZ0P95, ZZ1P95)
P96: (96 * x(P01), 0)
P96phw1: (Periodenzahl - x(P96) / λ) * 2 * 3.141592653589793
W1A0P96: (x(P96), wversatz)
W1A1P96: W1A0P96 + If[(x(P96) ≥ w1ug) ∧ (x(P96) ≤ w1og), Vector[Amplitude * (0, sin(P96phw1))]]
w1P96a01 = Segment(W1A0P96, W1A1P96)
ZZ0P96: (x(P96), If[zeigeran, zversatz, 0])
ZZ1P96: ZZ0P96 + If[(x(P96) ≥ w1ug) ∧ (x(P96) ≤ w1og), Vector[Amplitude * (cos(P96phw1), sin(P96phw1))]]
z01P96 = Segment(ZZ0P96, ZZ1P96)
P97: (97 * x(P01), 0)
P97phw1: (Periodenzahl - x(P97) / λ) * 2 * 3.141592653589793
W1A0P97: (x(P97), wversatz)
W1A1P97: W1A0P97 + If[(x(P97) ≥ w1ug) ∧ (x(P97) ≤ w1og), Vector[Amplitude * (0, sin(P97phw1))]]
w1P97a01 = Segment(W1A0P97, W1A1P97)
ZZ0P97: (x(P97), If[zeigeran, zversatz, 0])
ZZ1P97: ZZ0P97 + If[(x(P97) ≥ w1ug) ∧ (x(P97) ≤ w1og), Vector[Amplitude * (cos(P97phw1), sin(P97phw1))]]
z01P97 = Segment(ZZ0P97, ZZ1P97)
P98: (98 * x(P01), 0)
P98phw1: (Periodenzahl - x(P98) / λ) * 2 * 3.141592653589793
W1A0P98: (x(P98), wversatz)
W1A1P98: W1A0P98 + If[(x(P98) ≥ w1ug) ∧ (x(P98) ≤ w1og), Vector[Amplitude * (0, sin(P98phw1))]]
w1P98a01 = Segment(W1A0P98, W1A1P98)
ZZ0P98: (x(P98), If[zeigeran, zversatz, 0])
ZZ1P98: ZZ0P98 + If[(x(P98) ≥ w1ug) ∧ (x(P98) ≤ w1og), Vector[Amplitude * (cos(P98phw1), sin(P98phw1))]]
z01P98 = Segment(ZZ0P98, ZZ1P98)
P99: (99 * x(P01), 0)
P99phw1: (Periodenzahl - x(P99) / λ) * 2 * 3.141592653589793
W1A0P99: (x(P99), wversatz)
W1A1P99: W1A0P99 + If[(x(P99) ≥ w1ug) ∧ (x(P99) ≤ w1og), Vector[Amplitude * (0, sin(P99phw1))]]
w1P99a01 = Segment(W1A0P99, W1A1P99)
ZZ0P99: (x(P99), If[zeigeran, zversatz, 0])
ZZ1P99: ZZ0P99 + If[(x(P99) ≥ w1ug) ∧ (x(P99) ≤ w1og), Vector[Amplitude * (cos(P99phw1), sin(P99phw1))]]
z01P99 = Segment(ZZ0P99, ZZ1P99)
Amplitudentext: "Amplitude = " + Amplitude
Periodenzahltext: "Periodenzahl = " + Periodenzahl
oszisan = true
wellean = true
Ptestan = false
Zeittext: "Zeit = " + Zeit
Wellenlaenge: "Wellenlänge = " + λ + " cm"
vertP00 = Segment(P00, (x(P00), zversatz))
vertP01 = Segment(P01, (x(P01), zversatz))
vertP02 = Segment(P02, (x(P02), zversatz))
vertP03 = Segment(P03, (x(P03), zversatz))
vertP04 = Segment(P04, (x(P04), zversatz))
vertP05 = Segment(P05, (x(P05), zversatz))
vertP06 = Segment(P06, (x(P06), zversatz))
vertP07 = Segment(P07, (x(P07), zversatz))
vertP08 = Segment(P08, (x(P08), zversatz))
vertP09 = Segment(P09, (x(P09), zversatz))
vertP10 = Segment(P10, (x(P10), zversatz))
vertP11 = Segment(P11, (x(P11), zversatz))
vertP12 = Segment(P12, (x(P12), zversatz))
vertP13 = Segment(P13, (x(P13), zversatz))
vertP14 = Segment(P14, (x(P14), zversatz))
vertP15 = Segment(P15, (x(P15), zversatz))
vertP16 = Segment(P16, (x(P16), zversatz))
vertP17 = Segment(P17, (x(P17), zversatz))
vertP18 = Segment(P18, (x(P18), zversatz))
vertP19 = Segment(P19, (x(P19), zversatz))
vertP20 = Segment(P20, (x(P20), zversatz))
vertP21 = Segment(P21, (x(P21), zversatz))
vertP22 = Segment(P22, (x(P22), zversatz))
vertP23 = Segment(P23, (x(P23), zversatz))
vertP24 = Segment(P24, (x(P24), zversatz))
vertP25 = Segment(P25, (x(P25), zversatz))
vertP26 = Segment(P26, (x(P26), zversatz))
vertP27 = Segment(P27, (x(P27), zversatz))
vertP28 = Segment(P28, (x(P28), zversatz))
vertP29 = Segment(P29, (x(P29), zversatz))
vertP30 = Segment(P30, (x(P30), zversatz))
vertP31 = Segment(P31, (x(P31), zversatz))
vertP32 = Segment(P32, (x(P32), zversatz))
vertP33 = Segment(P33, (x(P33), zversatz))
vertP34 = Segment(P34, (x(P34), zversatz))
vertP35 = Segment(P35, (x(P35), zversatz))
vertP36 = Segment(P36, (x(P36), zversatz))
vertP37 = Segment(P37, (x(P37), zversatz))
vertP38 = Segment(P38, (x(P38), zversatz))
vertP39 = Segment(P39, (x(P39), zversatz))
vertP40 = Segment(P40, (x(P40), zversatz))
vertP41 = Segment(P41, (x(P41), zversatz))
vertP42 = Segment(P42, (x(P42), zversatz))
vertP43 = Segment(P43, (x(P43), zversatz))
vertP44 = Segment(P44, (x(P44), zversatz))
vertP45 = Segment(P45, (x(P45), zversatz))
vertP46 = Segment(P46, (x(P46), zversatz))
vertP47 = Segment(P47, (x(P47), zversatz))
vertP48 = Segment(P48, (x(P48), zversatz))
vertP49 = Segment(P49, (x(P49), zversatz))
vertP50 = Segment(P50, (x(P50), zversatz))
vertP51 = Segment(P51, (x(P51), zversatz))
vertP52 = Segment(P52, (x(P52), zversatz))
vertP53 = Segment(P53, (x(P53), zversatz))
vertP54 = Segment(P54, (x(P54), zversatz))
vertP55 = Segment(P55, (x(P55), zversatz))
vertP56 = Segment(P56, (x(P56), zversatz))
vertP57 = Segment(P57, (x(P57), zversatz))
vertP58 = Segment(P58, (x(P58), zversatz))
vertP59 = Segment(P59, (x(P59), zversatz))
vertP60 = Segment(P60, (x(P60), zversatz))
vertP61 = Segment(P61, (x(P61), zversatz))
vertP62 = Segment(P62, (x(P62), zversatz))
vertP63 = Segment(P63, (x(P63), zversatz))
vertP64 = Segment(P64, (x(P64), zversatz))
vertP65 = Segment(P65, (x(P65), zversatz))
vertP66 = Segment(P66, (x(P66), zversatz))
vertP67 = Segment(P67, (x(P67), zversatz))
vertP68 = Segment(P68, (x(P68), zversatz))
vertP69 = Segment(P69, (x(P69), zversatz))
vertP70 = Segment(P70, (x(P70), zversatz))
vertP71 = Segment(P71, (x(P71), zversatz))
vertP72 = Segment(P72, (x(P72), zversatz))
vertP73 = Segment(P73, (x(P73), zversatz))
vertP74 = Segment(P74, (x(P74), zversatz))
vertP75 = Segment(P75, (x(P75), zversatz))
vertP76 = Segment(P76, (x(P76), zversatz))
vertP77 = Segment(P77, (x(P77), zversatz))
vertP78 = Segment(P78, (x(P78), zversatz))
vertP79 = Segment(P79, (x(P79), zversatz))
vertP80 = Segment(P80, (x(P80), zversatz))
vertP81 = Segment(P81, (x(P81), zversatz))
vertP82 = Segment(P82, (x(P82), zversatz))
vertP83 = Segment(P83, (x(P83), zversatz))
vertP84 = Segment(P84, (x(P84), zversatz))
vertP85 = Segment(P85, (x(P85), zversatz))
vertP86 = Segment(P86, (x(P86), zversatz))
vertP87 = Segment(P87, (x(P87), zversatz))
vertP88 = Segment(P88, (x(P88), zversatz))
vertP89 = Segment(P89, (x(P89), zversatz))
vertP90 = Segment(P90, (x(P90), zversatz))
vertP91 = Segment(P91, (x(P91), zversatz))
vertP92 = Segment(P92, (x(P92), zversatz))
vertP93 = Segment(P93, (x(P93), zversatz))
vertP94 = Segment(P94, (x(P94), zversatz))
vertP95 = Segment(P95, (x(P95), zversatz))
vertP96 = Segment(P96, (x(P96), zversatz))
vertP97 = Segment(P97, (x(P97), zversatz))
vertP98 = Segment(P98, (x(P98), zversatz))
vertP99 = Segment(P99, (x(P99), zversatz))
vertPtest = Segment(Ptest, (x(Ptest), zversatz))
W1A0Ptest: (x(Ptest), wversatz)
W1A1Ptest: W1A0Ptest + If[(x(Ptest) ≥ w1ug) ∧ (x(Ptest) ≤ w1og), Vector[Amplitude * (0, sin(Ptestphw1))]]
ZZ0Ptest: (x(Ptest), If[zeigeran, zversatz, 0])
ZZ1Ptest: ZZ0Ptest + If[(x(Ptest) ≥ w1ug) ∧ (x(Ptest) ≤ w1og), Vector[Amplitude * (cos(Ptestphw1), sin(Ptestphw1))]]
w1Ptesta01 = Segment(W1A0Ptest, W1A1Ptest)
z01Ptest = Segment(ZZ0Ptest, ZZ1Ptest)
Periodendauertext: "Periodendauer = " + Periodendauer