     b(x-c)

Show/Hide (x - c) values

Show/Hide f(x) + d values

Show/Hide g(x)

Translation

Stretch

x(A)

a = 1 (slider from -5 to 5, step 0.5)
b = 1 (slider from -5 to 5, step 0.5)
c = 0 (slider from -5 to 5, step 0.5)
d = 0 (slider from -5 to 5, step 0.5)
f = If(x < -4.0, x / 0.0, If[x < -2.0, 3.0 * x + 6.0, If[x < 0.0, x + 2.0, If[x < 4.0, 2.0 + sqrt(4.0 - (x - 2.0)^(2.0)), If[x ≤ 6.0, 2.0, x / 0.0]]]])
g(x) = a * f(b * (x - 1.0 * c)) + d
L_2 = Sequence(f(i), i, -4.0, 6.0)
L_1 = Sequence(i, i, -4.0, 6.0)
L_a = Append(x, L_1)
L_b = Append(f(x), L_2)
textlist1 = TableText({L_a, L_b}, "vr")
L_3 = Sequence(b * (i - c), i, -4.0, 6.0)
L_4 = Sequence(a * f(b * (i - c)) + d, i, -4.0, 6.0)
L_c = Append(b * (x - c), L_3)
L_d = Append(g(x), L_4)
text4 = TableText({L_c}, "vr")
text5 = TableText({L_d}, "vr")
h = false
e = false
i = false
text1: "g(x) = " + g
k(x) = 0.0
A = Point(k(x))
p: x(A)
text6: p + ""
B: (x(A), f(x(A)))
u = Vector(A, B)
C: (x(A), g(x(A)))
v = Vector(B, C)