Patrons dynamiques de cônes
Author: Yvan Monka - m@ths et tiques 2006

a

b

H = (24.3125, -4.2124999999999995)
G = (16.239583333333336, -4.2124999999999995)
p = Segment(G, H)
I = Point(p)
a = 8 (slider from 0 to 10, step 0.1)
J = Point(Circle[I, a - 0.0010])
q = Segment(I, J)
b = Point(q)
t = Distance(I, b)
f(x) = sqrt(t^(2) - (x - 22)^(2)) / 4 + 5
Q = Point(f)
P = Point(f)
i(x) = -f(x) + 10
R = Point(i)
O = Point(i)
L = Point(i)
N: (22 - t, 5.1)
M: (22 + t, 5.1)
T = Midpoint(M, N)
A = Intersect(xAxis, yAxis)
B: (x(A) + a, y(A))
α: 360 * t / a
C = Rotate(B, α°, A)
β = Angle(B, A, C)
c = CircleSector(A, B, C)
D = Point(c)
d = Ray(A, D)
e: a + 2 * t
g: a + t
h = Circle(A, g)
F = Intersect(h, d, 1)
k = Circle(F, D)
E = Intersect(k, d, 2)
S: (x(T), y(T) + sqrt(a^(2) - t^(2)))
j = Segment(S, N)
l = Segment(S, M)
m = Segment(T, M)
n = Segment(S, T)
T4: "b = " + (Segment[G, b])
r = Segment(A, B)
γ = Angle(B, A, C)
s = Segment(F, D)
c_1 = Conic(R, L, O, P, Q)