k2 = 1 (slider from 1 to 2)
k3 = 2 (slider from 1 to 2)
A = Point(xAxis)
B = Point(xAxis)
C = Intersect(xAxis, yAxis)
a = Distance(C, A)
Midpoint(C, A)
TextCA: Name[C] + (Name[A]) + " = " + a
b = Distance(C, B)
Midpoint(C, B)
b_1: Name[C] + (Name[B]) + " = " + b
eksponenttitesti(x) = (k2 * ℯ^((-(x - a)^(2)))) + (k3 * ℯ^((-(x - b)^(2))))
kolmio(x) = (1 - abs(x)) / 2 + abs(1 - abs(x)) / 2
siloituspolynomi(x) = (x^(2) * (1 - x)) + ((1 - (1 - x)^(2)) * x)
pulssi(x) = siloituspolynomi(kolmio(x))
rationaalitesti(x) = k2 / (1 + (k2 * (x - a)^(2))) + k3 / (1 + (k3 * (x - b)^(2))) - 6
pulssitesti(x) = (k2 * pulssi(x - a)) + (k3 * pulssi(x - b)) - 3