Init.

Start

A

B

Kontrolle

P1 = (1, 24)
P2 = (2, 4)
P3 = (2.75, 12)
P4 = (4, 12)
s2(t) = If[x(P1) ≤ t < x(P2), ((y(P2) - y(P1)) / (x(P2) - x(P1)) * (t - x(P1))) + y(P1)]
s3(t) = If[x(P2) ≤ t < x(P3), ((y(P3) - y(P2)) / (x(P3) - x(P2)) * (t - x(P2))) + y(P2)]
s4(t) = If[x(P3) ≤ t < x(P4), ((y(P4) - y(P3)) / (x(P4) - x(P3)) * (t - x(P3))) + y(P3)]
P0 = Point(yAxis)
s1(t) = If[x(P0) ≤ t < x(P1), ((y(P1) - y(P0)) / (x(P1) - x(P0)) * (t - x(P0))) + y(P0)]
gL: -1
gR: 5
gU: -6
gO: 30
t = 0 (slider from 0 to 4, step 0.01)
gL2: -3
gR2: 1
gU2: -6
gO2: 30
G1 = Segment((-0.5 | 0), (0.5 | 0))
G2 = Segment((-0.5 | 24), (0.5 | 24))
N = Segment((-0.5 | 12), (0.5 | 12))
s(t) = If[x(P0) ≤ t < x(P1), ((y(P1) - y(P0)) / (x(P1) - x(P0)) * (t - x(P0))) + y(P0), If[x(P1) ≤ t < x(P2), ((y(P2) - y(P1)) / (x(P2) - x(P1)) * (t - x(P1))) + y(P1), If[x(P2) ≤ t < x(P3), ((y(P3) - y(P2)) / (x(P3) - x(P2)) * (t - x(P2))) + y(P2), If[x(P3) ≤ t ≤ x(P4), ((y(P4) - y(P3)) / (x(P4) - x(P3)) * (t - x(P3))) + y(P3)]]]]
B: (0 | s(t))
a = false
B2: (t | s(t))