Author: Daniel Mentrard

Voir

e = 1.6 (slider from 1 to 5, step 0.1)
B_1 = (-0.9972447339619411, -1.783463471168164)
Pogled = (6.99390951050067, -0.24466218903392953)
ya: y(Pogled)
costheta: cos(ya)
m = 1 (slider from 1 to 2, step 1)
Z: (x(B_1), y(B_1) + (m * costheta))
w = Vector(B_1, Z)
O = (3.5979342671699457, -0.5311976001899594)
r = 2 (slider from 1 to 3, step 1)
k = 360 (slider from 0 to 360, step 1)
n = 34 (slider from 20 to 40, step 1)
sintheta: sin(ya)
xa: x(Pogled)
cosphi: cos(xa)
xy: (((-m) * cosphi) * sintheta)
sinphi: sin(xa)
Y: (x(B_1) + (m * cosphi), y(B_1) + ((m * sinphi) * sintheta))
v = Vector(B_1, Y)
X: (x(B_1) + (m * 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, k / n)
c: cos(ya)
h = 3 (slider from 2 to 5, step 1)
S = Translate(O, Vector[(h * w)])
O'_1 = Translate(O, u)
apo: sqrt(h^(2) + m^(2))
d = 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)])
i = true
p = Conic(Element[liste1, 1], Element[liste1, 3], Element[liste1, 6], Element[liste1, 9], Element[liste1, n])
j = 0.9 (slider from -5 to 5, step 0.01)
A = Element(liste1, k / n)
liste2 = Sequence(Translate[Dilate[p, i, S], Vector[((-i) * w / (h / j))]], i, 0, j, h / n)