dilate = 0 (slider from 0 to 1, step 0.01)
translate = 0 (slider from 0 to 1, step 0.01)
c_2 = 0 (slider from -5 to 5, step 0.1)
b_2 = -2 (slider from -5 to 5, step 0.1)
a_2 = 0.2 (slider from -3 to 3, step 0.1)
h_2: ((-b_2)) / ((2 * a_2))
g(x) = (a_2 * x^(2)) + (b_2 * x) + c_2
A = Point(g)
v_2: g(h_2)
center: (h_2, v_2)
a = Line(center, A)
c_1 = 4 (slider from -5 to 5, step 0.1)
b_1 = 0 (slider from -5 to 5, step 0.1)
a_1 = 1.6 (slider from -3 to 3, step 0.1)
h_1: ((-b_1)) / ((2 * a_1))
f(x) = (a_1 * x^(2)) + (b_1 * x) + c_1
v_1: f(h_1)
T: (h_2 - h_1, v_2 - v_1)
u: ((x(T) * translate), (y(T) * translate))
f_1 = Translate(f, u)
h = Dilate(f_1, (dilate * (a_1 / a_2 - 1)) + 1, (h_2, v_2))
B = Intersect(h, a, 2)
scaling: 1 + (dilate * (a_1 / a_2 - 1))
text1: "Dilation factor: " + scaling + ""
b = OrthogonalLine(A, yAxis)
c = OrthogonalLine(B, yAxis)
i(x, y) = y < y(A) ∧ y > g(x)
j(x, y) = y < y(B) ∧ y > h(x)
d = Segment(center, A)
"Scaling factor: " + scaling + "": "Scaling factor: " + scaling + ""