Author: Daniel Mentrard

Voir

z = 1.8 (slider from 0 to 5, step 0.1)
h = 3 (slider from 2 to 4, step 1)
aa = If(z ≥ h, h, z)
O = (3.5794856228899548, -0.09937920751993387)
Zoom = 1 (slider from 1 to 5, step 0.1)
Pogled = (5.8461567749401535, -0.16387798013924793)
ya: y(Pogled)
costheta: cos(ya)
B_1 = (-1.1934235509393265, -1.1774301212999068)
Z: (x(B_1), y(B_1) + (Zoom * costheta))
w = Vector(B_1, Z)
e = 1.6 (slider from 1 to 5, step 0.1)
r = 2 (slider from 1 to 3, step 1)
k = 360 (slider from 0 to 360, step 1)
n = 5 (slider from 3 to 7, 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, k / n)
c: cos(ya)
S = Translate(O, Vector[(h * w)])
O'_1 = Translate(O, u)
apo: sqrt(h^(2) + Zoom^(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_1 = 0.9 (slider from -5 to 5, step 0.1)
R = Translate(O, Vector[(f_1 * w)])
i = true
j = Segment(Element[liste1, 1], S)
l = Segment(O, S)
m = Segment(Element[liste1, 1], Element[liste1, 2])
q = Segment(Element[liste1, 2], S)
O' = Translate(O, Vector[(aa * w)])
c_1 = Segment(Element[liste1, 1], O)
liste2 = Sequence((x(O), y(O)) - ((r * (h - z) / h) * (((sin(0°) * sin(i°)) * w) + ((cos(0°) * sin(i°)) * u) - (cos(i°) * v))), i, 0, k, k / n)
liste5 = Sequence((x(O'), y(O')) - ((r * (h - z) / h) * (((sin(0°) * sin(i°)) * w) + ((cos(0°) * sin(i°)) * u) - (cos(i°) * v))), i, 0, k, k / n)
liste6 = Sequence(Segment[Element[liste2, i], Element[liste5, i]], i, 1, n)
liste7 = Sequence(Segment[Element[liste2, i], Element[liste2, i + 1]], i, 1, n)
liste8 = Sequence(Segment[Element[liste5, i], Element[liste5, i + 1]], i, 1, n)
f = Segment(O', O)
p = Segment(Element[liste1, 1], O)
s = Segment(Element[liste5, 1], O')