Author: Daniel Mentrard

Nombre de côtés

e = 1.6 (slider from 1 to 5, step 0.1)
B_1 = (-1.2411250003464962, -3.0677693633371548)
Pogled = (8.386100012468017, -0.23478977357899866)
ya: y(Pogled)
costheta: cos(ya)
Zoom = 1.2 (slider from 0.1 to 5, step 0.1)
Z: (x(B_1), y(B_1) + (Zoom * costheta))
w = Vector(B_1, Z)
O = (3.8361630955837054, -2.0253309861534174)
r = 2 (slider from 1 to 3, step 1)
k_2 = 360 (slider from 0 to 360, step 1)
n = 40 (slider from 3 to 50, step 1)
sintheta: sin(ya)
xa: x(Pogled)
cosphi: cos(xa)
xy: (((-Zoom) * cosphi) * sintheta)
sinphi: sin(xa)
Y: (x(B_1) + (Zoom * cosphi), y(B_1) + ((Zoom * sinphi) * sintheta))
v = Vector(B_1, Y)
X: (x(B_1) + (Zoom * sinphi), y(B_1) + xy)
u = Vector(B_1, X)
g = 1 (slider from -5 to 5, step 0.1)
k_1 = 1 (slider from -5 to 5, step 0.1)
a = OrthogonalLine(Pogled, yAxis)
b = OrthogonalLine(Pogled, xAxis)
liste1 = Sequence((x(O), y(O)) - (r * (((sin(0°) * sin(i°)) * w) + ((cos(0°) * sin(i°)) * u) - (cos(i°) * v))), i, 0, k_2, k_2 / n)
c: cos(ya)
h = 3 (slider from 1 to 5, step 1)
S = Translate(O, Vector[(h * w)])
O'_1 = Translate(O, u)
apo: sqrt(h^(2) + Zoom^(2))
d_1 = Segment(Element[liste1, 1], S)
liste4 = Sequence(Segment[Element[liste1, i], S], i, 1, n)
liste3 = Sequence(Segment[Element[liste1, i], Element[liste1, i + 1]], i, 1, n)
f = 0.9 (slider from -5 to 5, step 0.1)
R = Translate(O, Vector[(f * w)])
j = Segment(Element[liste1, 1], S)
l = Segment(O, S)
q = Segment(Element[liste1, 2], S)
h1 = 2 (slider from 1 to 3, step 1)
O' = Translate(O, Vector[(h1 * w)])
r1: ((h - h1) * r / h)
liste2 = Sequence((x(O'), y(O')) - (r1 * (((sin(0°) * sin(i°)) * w) + ((cos(0°) * sin(i°)) * u) - (cos(i°) * v))), i, 0, k_2, k_2 / n)
liste5 = Sequence(Segment[Element[liste2, i], Element[liste2, i + 1]], i, 1, n)
liste6 = Sequence(Segment[Element[liste1, i], Element[liste2, i]], i, 1, n)
m = Segment(O', O)
p = Segment(Element[liste1, 1], O)
s = Segment(Element[liste2, 1], O')
A = Midpoint(p)
texte2: "r = " + r
B = Midpoint(m)
texte3: "h' = " + h1
texte4: "r' = " + r1
C = Midpoint(s)
poly1, o, t, s_1 = Polygon(Element[liste1, 1], S, O)
D = Midpoint(t)
texte5: "h = " + h
texte1: "Nombre de côtés : " + n
k = 1 (slider from 0 to 2, step 1)
O'' = Translate(O', Vector[(k * w)])
S' = Translate(S, Vector[(k * w)])
liste7 = Sequence((x(O''), y(O'')) - (r1 * (((sin(0°) * sin(i°)) * w) + ((cos(0°) * sin(i°)) * u) - (cos(i°) * v))), i, 0, k_2, k_2 / n)
liste8 = Sequence(Segment[Element[liste7, i], Element[liste7, i + 1]], i, 1, n)
liste9 = Sequence(Segment[Element[liste7, i], S'], i, 1, n)
c_1 = Conic(Element[liste1, 1], Element[liste1, 2], Element[liste1, 3], Element[liste1, 4], Element[liste1, n])
i = Segment(S', O'')
e_1 = Conic(Element[liste2, 1], Element[liste2, 2], Element[liste2, 3], Element[liste2, 4], Element[liste2, n])
f_1 = Conic(Element[liste7, 1], Element[liste7, 2], Element[liste7, 3], Element[liste7, 4], Element[liste7, n])