compito

A = Point(yAxis)
B = Point(xAxis)
f = Line(A, B)
C = Point(xAxis)
g = Line(A, C)
D = Point(yAxis)
h = Line(C, D)
i = Line(D, B)
p: y = 1 - abs(x)
q: y = -1 + abs(x)
a: y^(2) = (1 - abs(x))^(2)
a: y^(2) = (1 - abs(x))^(2)
r(x) = If[0 ≤ x ≤ 1, (7 / 5 * x^(3)) - (12 / 5 * x^(2)) + 1]
r_1 = Mirror(r, yAxis)
r_2 = Mirror(r, xAxis)
b = Mirror(r_2, yAxis)
E: (-1, 1)
F = (1, 1)
G = (1, -1)
H = (-1, -1)
q1, e, f_1, g_1, h_1 = Polygon(E, F, G, H)
n = 2 (slider from 1 to 30, step 1)
s(x) = If[0 < x < 1, 1 - x^(n)]
t(x) = If[0 < x < 1, (1 - x)^(n)]
E' = Mirror(E, yAxis)
s_1 = Mirror(s, yAxis)
s_2 = Mirror(s, xAxis)
c = Mirror(s_2, yAxis)
t_1 = Mirror(t, xAxis)
t_2 = Mirror(t, yAxis)
d = Mirror(t_1, yAxis)
I = Intersect(xAxis, yAxis)
j = Segment(I, F)
J = Intersect(t, j)
K = Intersect(s, j)
k = Segment(I, K)