2R

2R

2R

Déplacer le curseur pour vider le cône dans la boule.

m1 = (0, -1)
c_1 = Circle(m1, 1)
O = (0, 0)
m2 = (0, 2)
m3 = (-1, 2)
m4 = (1, 2)
Curseur = 0 (slider from 0 to 4, step 0.01)
a: 2 - (2 - Curseur)^(3) / 4
b: Curseur * Curseur * (3 - Curseur)
A: (Curseur, a)
f(x) = 2 - (2 - x)^(3) / 4
g(x) = x * x * (3 - x)
d = OrthogonalLine(A, yAxis)
C = Intersect(g, d, 2)
e = OrthogonalLine(C, d)
D = Intersect(e, xAxis)
h = Distance(O, D)
h2: (0, -2 + h)
i = Mod(Curseur, 2)
h1: (0, 2 - i)
j = Segment(m3, O)
k = Segment(O, m4)
l = Line(m2, m1)
m = OrthogonalLine(h1, l)
n = OrthogonalLine(h2, l)
p = OrthogonalLine(m1, l)
q = OrthogonalLine(m2, l)
i1 = Midpoint(m3, m2)
m5 = Intersect(m, j)
m6 = Intersect(m, k)
m7 = Intersect(c_1, p, 1)
m8 = Intersect(c_1, p, 2)
m10 = Intersect(c_1, n, 2)
m9 = Intersect(c_1, n, 1)
i2 = Midpoint(h1, m5)
i3 = Midpoint(m1, m7)
i4 = Midpoint(h2, m9)
r = OrthogonalLine(i1, q)
R1: Distance[m2, m3] / 7
E11: (0, 2 + R1)
B: (0, 2 - R1)
E = Point(r)
s = Conic(m3, E, E11, m4, B)
k1: Distance[O, h1] / Distance[O, m2]
s' = Dilate(s, k1, O)
u = Vector(m2, m1)
s'_1 = Translate(s, u)
m11 = (0, -2)
t = Segment(m2, m11)
d_1 = Circle(h1, O)
F = Intersect(d_1, m, 1)
G = Intersect(d_1, m, 2)
e_1 = CircumcircleArc(F, O, G)
H = Point(e_1)
a_1 = Ray(h1, H)
I = Intersect(s', a_1, 1)
lieu1 = Locus(I, H)
f_1 = CircumcircleArc(m7, m11, m8)
J = Point(f_1)
b_1 = Ray(m1, J)
K = Intersect(s'_1, b_1, 1)
lieu2 = Locus(K, J)
k2: Distance[h2, m9] / Distance[m1, m7]
g_1 = Dilate(s'_1, k2, m1)
v = Vector(m1, h2)
h_1 = Translate(g_1, v)
poly1, o, m5_1, m6_1 = Polygon(m5, m6, O)
L = (-0.002222222222223233, 0.01555555555555655)
i_1 = Segment(m5, L)
j_1 = Segment(L, m6)
s'' = Dilate(s', 1, h1)
k_1 = CircumcircleArc(m9, m11, m10)
p_1 = Dilate(h_1, 1, h2)
q_1 = Circle(m1, 1)
v1 = (-1, 2.5)
v2 = (1, 2.5)
v3 = (-1.5, 2)
v4 = (-1.5, 0)
M = (-1.5, -2)
w = Vector(v4, v3)
z = Vector(v3, v4)
c = Vector(v4, M)
u_1 = Vector(M, v4)
v_1 = Vector(v1, v2)
w_1 = Vector(v2, v1)