tekst1: "" + c + ""
x0 = 5 (slider from -5 to 5, step 0.2)
A: (x0, (0.25 * x0^(2)))
B: (x0, (0.25 * x0^(2)))
C: ((3 * x0) * 15)
D: (x0, 15)
f = Segment(B, D)
g(x) = DataFunction[{}, {},x]
h(x) = If[0 ≤ (sgn(x0) * x) ≤ (sgn(x0) * x0), (((0.25 * x0) - 1 / x0) * (x - x0)) + (0.25 * x0^(2))]
i: y = ((0.5 * x0) * (x - x0)) + (0.25 * x0^(2))
p(x) = If[0 ≤ (sgn(x0) * x) ≤ (sgn(x0) * x0), (-2 / x0 * (x - x0)) + (0.25 * x0^(2))]
A_1: (x0, (0.25 * x0^(2)))
B_1: (x0, (0.25 * x0^(2)))
C_1: ((3 * x0) * 15)
D_1: (x0, 15)
E: (x0 + 2, (0.25 * (x0 + 2)^(2)))
F: (x0 + 2, 15)
j = Segment(E, F)
G: (x0 - 2, 15)
H: (x0 - 2, (0.25 * (x0 - 2)^(2)))
k = Segment(G, H)
r(x) = If[0 ≤ (sgn(x0 - 2) * x) ≤ (sgn(x0 - 2) * (x0 - 2)), (((0.25 * (x0 - 2)) - 1 / (x0 - 2)) * (x - (x0 - 2))) + (0.25 * (x0 - 2)^(2))]
q(x) = If[0 ≤ (sgn(x0 + 2) * x) ≤ (sgn(x0 + 2) * (x0 + 2)), (((0.25 * (x0 + 2)) - 1 / (x0 + 2)) * (x - (x0 + 2))) + (0.25 * (x0 + 2)^(2))]