Author: Daniel Mentrard

Filled

Pôles

Equateur

B_1 = (0.46975956154824655, -1.3812287567113577)
Vues = (0.6329619889721441, 0.6642416670014903)
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 = (3.9622915084196517, 1.5128942896057571)
k_1 = 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_1 = OrthogonalLine(Vues, yAxis)
b = OrthogonalLine(Vues, xAxis)
c: cos(ya)
Y: (x(B_1) + Zoom * cosphi, y(B_1) + Zoom * sinphi * sintheta)
v = Vector(B_1, Y)
R = 2.7 (slider from 1 to 5, step 0.1)
k = 12.7 (slider from 0.1 to 30, step 0.1)
d = 6.283 (slider from 0 to 6.283, step 0.1)
n = 15 (slider from 1 to 40, step 1)
f = CurveCartesian(x(O + R * cos(i) / sqrt(1.0 + k^(2.0) * cos(n * i)^(2.0)) * u + R * sin(i) / sqrt(1.0 + k^(2.0) * cos(n * i)^(2.0)) * v + R * k * cos(n * i) / sqrt(1.0 + k^(2.0) * cos(n * i)^(2.0)) * w), y(O + R * cos(i) / sqrt(1.0 + k^(2.0) * cos(n * i)^(2.0)) * u + R * sin(i) / sqrt(1.0 + k^(2.0) * cos(n * i)^(2.0)) * v + R * k * cos(n * i) / sqrt(1.0 + k^(2.0) * cos(n * i)^(2.0)) * w), i, 0.0, d)
e = CurveCartesian(x(O + R * cos(i) / sqrt(1.0 + k^(2.0) * cos(n * i)^(2.0)) * u + R * sin(i) / sqrt(1.0 + k^(2.0) * cos(n * i)^(2.0)) * v + R * k * cos(n * i) / sqrt(1.0 + k^(2.0) * cos(n * i)^(2.0)) * w), y(O + R * cos(i) / sqrt(1.0 + k^(2.0) * cos(n * i)^(2.0)) * u + R * sin(i) / sqrt(1.0 + k^(2.0) * cos(n * i)^(2.0)) * v + R * k * cos(n * i) / sqrt(1.0 + k^(2.0) * cos(n * i)^(2.0)) * w), i, 0.0, d)
h = CurveCartesian(x(O - R * (0.0 * sin(i) * w + sin(i) * u - cos(i) * v)), y(O - R * (0.0 * sin(i) * w + sin(i) * u - cos(i) * v)), i, 0.0, d)
i = CurveCartesian(x(O - R * (0.0 * sin(i) * u + sin(i) * w - cos(i) * v)), y(O - R * (0.0 * sin(i) * u + sin(i) * w - cos(i) * v)), i, 0.0, d)
j = CurveCartesian(x(O - R * (0.0 * sin(i) * v + sin(i) * u - cos(i) * w)), y(O - R * (0.0 * sin(i) * v + sin(i) * u - cos(i) * w)), i, 0.0, d)
m = 12 (slider from -5 to 50, step 1)
liste1 = Sequence(CurveCartesian[x(O + R * cos(i) * cos(j) * u + R * sin(i) * cos(j) * v + R * sin(j) * w), y(O + R * cos(i) * cos(j) * u + R * sin(i) * cos(j) * v + R * sin(j) * w), i, 0.0, 6.28319], j, -1.5708, 1.5708, 3.141592653589793 / m)
liste2 = Sequence(CurveCartesian[x(O + R * cos(i) * cos(j) * u + R * cos(i) * sin(j) * v + R * sin(i) * w), y(O + R * cos(i) * cos(j) * u + R * cos(i) * sin(j) * v + R * sin(i) * w), i, 0.0, 6.28319], j, 0.0, 6.28319, 3.141592653589793 / m)
p = Circle(O, R)
a = true