Author: Daniel Mentrard

Taille

B_1 = (2.6613364231305345, -0.7768310373503344)
Vues = (4.075850152735017, 0.2185675131120791)
xa: x(Vues)
sinphi: sin(xa)
cosphi: cos(xa)
ya: y(Vues)
sintheta: sin(ya)
Zoom = 1 (slider from 0.1 to 5, step 0.1)
xy: -(Zoom) * cosphi * sintheta
g = 1 (slider from -5 to 5, step 0.1)
X: (x(B_1) + Zoom * sinphi, y(B_1) + xy)
u = Vector(B_1, X)
O = (7.699450139067487, 1.5719602790916765)
k = 1 (slider from -5 to 5, step 0.1)
costheta: cos(ya)
Z: (x(B_1), y(B_1) + Zoom * costheta)
w = Vector(B_1, Z)
a_2 = OrthogonalLine(Vues, yAxis)
b_2 = OrthogonalLine(Vues, xAxis)
c: cos(ya)
Y: (x(B_1) + Zoom * cosphi, y(B_1) + Zoom * sinphi * sintheta)
v = Vector(B_1, Y)
A_1 = Translate(O, Vector[g * u])
d = Segment(O, A_1)
E_1 = Mirror(A_1, O)
i = Segment(E_1, O)
m = 119 (slider from -5 to 120, step 1)
Decoration = 7 (slider from 1 to 50, step 0.1)
a = 1.4 (slider from -5 to 5, step 0.1)
b = 2.5 (slider from -5 to 5, step 0.1)
A = (3.52776974034444, 4.468220798288015)
B = (3.5066393500626942, -1.0573762603885568)
e = Line(A, B)
liste1 = Sequence(CurveCartesian[x(O + b * cos(t) * cos(s) * u + b * cos(t) * sin(s) * v + b * sin(t) * w), y(O + b * cos(t) * cos(s) * u + b * cos(t) * sin(s) * v + b * sin(t) * w), t, 0.0, 6.28319], s, 0.0, 6.28, 2.0 * 3.14 / m)
liste2 = Sequence(CurveCartesian[x(O + b * cos(t) * cos(s) * u + b * cos(t) * sin(s) * v + b * sin(t) * w), y(O + b * cos(t) * cos(s) * u + b * cos(t) * sin(s) * v + b * sin(t) * w), s, 0.0, 6.28319], t, 0.0, 6.28, 2.0 * 3.14 / Decoration)
liste3 = Sequence(CurveCartesian[x(O + b * cos(t) * cos(s) * w + b * cos(t) * sin(s) * v + b * sin(t) * u), y(O + b * cos(t) * cos(s) * w + b * cos(t) * sin(s) * v + b * sin(t) * u), s, 0.0, 6.28319], t, 0.0, 6.28, 2.0 * 3.14 / Decoration)