a

b

a

b

a: 2
b: 3
f(x) = ((b / ((2 * a^(3))) * (x + (3 * a))) * x^(2))
g(x) = f(x - a) - b
m = 0.5 (slider from -5 to 5, step 0.1)
h(x) = g(x) + (m * x)
N_1: ((-3 * a), 0)
E_1: (a, (2 * b))
i = OrthogonalLine(E_1, xAxis)
j = OrthogonalLine(E_1, yAxis)
k = OrthogonalLine(N_1, xAxis)
A = Intersect(k, j)
B = Intersect(i, xAxis)
C = Midpoint(A, E_1)
D = Midpoint(A, C)
E = Midpoint(C, E_1)
F = Midpoint(E_1, B)
l = OrthogonalLine(F, yAxis)
G = Midpoint(A, N_1)
n = OrthogonalLine(D, xAxis)
p = OrthogonalLine(C, xAxis)
v1, a_1, e_1, b_1, n_1 = Polygon(A, E_1, B, N_1)
v: (a, (-b))
D' = Translate(D, v)
u = Vector(D, D')
H = Translate(N_1, v)
I = Translate(E_1, v)
c = Vector(E_1, I)
B' = Translate(B, v)
d = Vector(B, B')
A' = Translate(A, u)
v2, h_1, b', i_1, a' = Polygon(H, B', I, A')
q: y = (m * x)
r: x = (2 * a)
s: x = (-2 * a)
J = Midpoint(I, B')
K = Intersect(r, q)
vs = Vector(J, K)
I' = Translate(I, vs)
t = Vector(I, I')
B'' = Translate(B', vs)
u_1 = Vector(B', B'')
H' = Translate(H, Vector[(-vs)])
A'' = Translate(A', Vector[(-vs)])
v3, h', b'', i', a'' = Polygon(H', B'', I', A'')
O: (0, 0)
O': (a, (-b))
L = Intersect(h', i)
M = Translate(N_1, v)
w = Vector(N_1, M)