Pour voir la position du point M (en rouge)

couleur_alea0 = 0 (slider from -maxcouleur_alea to maxcouleur_alea, step 0.001)
limiterouge = 3.6 (slider from -5 to 40, step 0.1)
coulmoins = 0.15 (slider from 0 to 1, step 0.01)
limitevert = 3.1 (slider from -5 to 40, step 0.1)
coeffk = 3 (slider from 0 to 100, step 0.1)
mincoul = 1.4 (slider from 0 to 2, step 0.01)
A_7 = (0.044424091804912955, 0.16510004506738232)
Mangle = 0 (slider from 0 to 90*°, step 0.001*°)
Mrayon = 0.001 (slider from 0.001 to 0.70710678, step 0.001)
M: (Mrayon; Mangle)
q = Line(M, A_7)
A_1 = (0.08484907403535062, 0.0015628644759386422)
j = Line(M, A_1)
A_4 = (0.09036157161222848, -0.09031195608105218)
m = Line(M, A_4)
T_1 = (0.4982863923011904, 0.4976868954836891)
T_2 = (-0.5013131683059955, -0.5019111521763711)
T_3 = (-0.49763816992141024, 0.4976868954836891)
ellipse = Ellipse(T_1, T_2, T_3)
B_7 = Intersect(ellipse, q, 2)
B_1 = Intersect(ellipse, j, 2)
a1b1 = Distance(A_1, B_1)
B_4 = Intersect(ellipse, m, 2)
poly5, t, b_1, c_1 = Polygon(B_4, B_1, B_7)
Mpoly5 = Distance(M, poly5)
a1b4 = Distance(A_1, B_4)
a4b4 = Distance(A_4, B_4)
Mell = Distance(M, ellipse)
A_6 = (0.1271115554580809, 0.3102622615474278)
p = Line(M, A_6)
B_6 = Intersect(ellipse, p, 2)
a6b6 = Distance(A_6, B_6)
A_9 = (-0.09155084842474101, -0.08663696325877256)
s = Line(M, A_9)
B_9 = Intersect(ellipse, s, 1)
A_3 = (0.2208240142650046, -0.014974603224319706)
poly3, a_3, b_9, b_6 = Polygon(B_9, B_6, A_3)
Mpoly3 = Distance(M, poly3)
l = Line(M, A_3)
B_3 = Intersect(ellipse, l, 2)
a3b3 = Distance(A_3, B_3)
a1b3 = Distance(A_1, B_3)
A_2 = (-0.04561336861742548, 0.030962807054175707)
a2b4 = Distance(A_2, B_4)
a2b3 = Distance(A_2, B_3)
k = Line(M, A_2)
B_2 = Intersect(ellipse, k, 2)
a2b2 = Distance(A_2, B_2)
a1b2 = Distance(A_1, B_2)
A_5 = (-0.0474508678097181, -0.15646182688208557)
n = Line(M, A_5)
B_5 = Intersect(ellipse, n, 2)
a2b5 = Distance(A_2, B_5)
Zvert: (a1b4 - a3b3) / (a2b5 - a6b6) / (Mpoly3 + 0.01)
a5b5 = Distance(A_5, B_5)
Zrouge: (a1b3 - a2b2) / (a2b4 - a5b5) / (Mpoly5 + 0.01)
A_8 = (-0.16688831530873846, -0.21158671921628008)
poly2, a_1, b, c, d, e, f_1, g, h, i = Polygon(A_1, A_2, A_3, A_4, A_5, A_6, A_7, A_8, A_9)
Mpoly2 = Distance(M, poly2)
r = Line(M, A_8)
B_8 = Intersect(ellipse, r, 1)
poly4, b_8, b_2, b_5 = Polygon(B_2, B_5, B_8)
Mpoly4 = Distance(M, poly4)
Zbleu: (a1b2 - a1b1) / (a2b3 - a4b4) / (Mpoly4 + 0.01)
exposantmc = 1.9 (slider from -5 to 5, step 0.1)
coeff2 = -0.3 (slider from -100 to 100, step 0.1)
coeff1 = 0.30000000000000004 (slider from -100 to 100, step 0.1)
Mpoly21: (Mpoly2 * coeff1 + 1) / (Mpoly2 * coeff2 + 1)
Mell1: (1 + coeff1 * Mell) / (1 + coeff2 * Mell)
Vcoeff = 0.28 (slider from 0 to 10, step 0.01)
V1V: Zvert * Vcoeff
V4V: V1V * Mell1 * Mpoly21 * poly5^(exposantmc)
indiclimvert: abs(V4V) < limitevert
Rcoeff = 1.5 (slider from 0 to 10, step 0.01)
V1R: Zrouge * Rcoeff
Bcoeff = 0.3 (slider from 0 to 10, step 0.01)
V1B: Zbleu * Bcoeff
exposantmb = 1.36 (slider from -5 to 5, step 0.01)
V4R: V1R * Mell1 * Mpoly21 * poly4^(exposantmb)
indiclimrouge: abs(V4R) < limiterouge
exposantma = 2.23 (slider from -5 to 5, step 0.01)
V4B: V1B * Mell1 * Mpoly21 * poly3^(exposantma)
limitebleu = 4 (slider from -5 to 40, step 0.1)
indiclimbleu: abs(V4B) < limitebleu
maxcoulsomme = 1.8 (slider from -5 to 5, step 0.1)
mincoulsomme = 1 (slider from -5 to 5, step 0.1)
divcoulsomme = 5 (slider from -5 to 5, step 0.1)
indiclimsomme: (Mod[V4B + V4R + V4V, divcoulsomme] < maxcoulsomme) ∧ (Mod[V4B + V4R + V4V, divcoulsomme] > mincoulsomme)
V5V: V4V * indiclimvert * (1 - indiclimsomme) + poly5 * indiclimsomme * coeffk
V5R: V4R * indiclimrouge * (1 - indiclimsomme) + poly4 * indiclimsomme * coeffk
V5B: V4B * indiclimbleu * (1 - indiclimsomme) + poly3 * indiclimsomme * coeffk
indicmincoul: abs(V5B + V5R + V5V) < mincoul
indicmincoul1: indicmincoul * coulmoins
coeff3 = -0.30000000000000004 (slider from -5 to 5, step 0.1)
T3 = 0
rayoncercle = 0.41 (slider from 0 to 1, step 0.001)
cercle_2 = Circle(M, rayoncercle)
O_Centre = (0.125, 0.125)
cercle_1 = Circle(O_Centre, rayoncercle)
a = Line(M, O_Centre)
Os = (0, 0)
d_m = Line(Os, M)
modR = 4.4 (slider from 0 to 10, step 0.1)
d_2 = Line((0, 0), (0, 1))
maxcoul = 0.58 (slider from 0 to 2, step 0.01)
coulplus = 0.4 (slider from 0 to 1, step 0.01)
angleplus = 0 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
coeffangle = 1.61 (slider from 0 to 10, step 0.01)
addB2 = 19.5 (slider from 0 to 20, step 0.1)
addB = 30 (slider from -30 to 30, step 0.01)
addB3 = 0.5 (slider from 0 to 1, step 0.1)
addV3 = 0.5 (slider from 0 to 1, step 0.1)
addV = 19.2 (slider from -30 to 30, step 0.01)
addV2 = 19 (slider from 0 to 20, step 0.1)
addR3 = 0.5 (slider from 0 to 1, step 0.1)
addR = 24.6 (slider from -30 to 30, step 0.01)
addR2 = 19 (slider from 0 to 20, step 0.1)
cad4 = (-0.5, 0.5)
cad3 = (0.5, 0.5)
cad2 = (0.5, -0.5)
cad1 = (-0.5, -0.5)
poly1, cad1_1, cad2_1, cad3_1, cad4_1 = Polygon(cad1, cad2, cad3, cad4)
VoirVert = 0 (slider from 0 to 1, step 1)
VoirM = 1 (slider from 0 to 1, step 1)
voircadre = 0 (slider from 0 to 1, step 1)
VoirBleu = 0 (slider from 0 to 1, step 1)
voirsegments = 0 (slider from 0 to 1, step 1)
voircercle1 = 0 (slider from 0 to 1, step 1)
voirdroites = 0 (slider from 0 to 1, step 1)
voirpolygone = 0 (slider from 0 to 1, step 1)
dd1 = Line((0, 0.25), (1, 0.25))
dd2 = Line((0.25, 0), (0.25, 1))
dd3 = Translate(dd1, (0, 0.25))
dd4 = Translate(dd3, (0, 0.25))
dd5 = Translate(dd2, (0.25, 0))
dd6 = Translate(dd5, (0.25, 0))
VoirRouge = 0 (slider from 0 to 1, step 1)
voirarcs = 0 (slider from 0 to 1, step 1)
modV = 7.1 (slider from 0 to 10, step 0.1)
modB = 0.5 (slider from 0 to 10, step 0.1)
d_1 = Line((0.003950623263429209, 0.001975308641975302), (1.0039506232634292, 0.001975308641975302))
d_0 = Line(M, Os)
fonctionk_1: cos(Mangle)
vitesseMrayon = Max(0.0015, 0.01 - Mrayon * 0.022)
plusvitesseMrayon = 0.041 (slider from 0 to 0.1, step 0.001)
texte1: "vitesseMrayon = " + vitesseMrayon + ""
foisM1 = 0.32 (slider from -20 to 20, step 0.01)
foisM2 = 0.15 (slider from -20 to 20, step 0.01)
foisM3 = -0.32 (slider from -20 to 20, step 0.01)
couleur_alea1 = 0 (slider from -maxcouleur_alea to maxcouleur_alea, step 0.001)
couleur_alea2 = 0 (slider from -maxcouleur_alea to maxcouleur_alea, step 0.001)
maxcouleur_alea = 0 (slider from 0 to 0.5, step 0.001)
voircercle2 = 0 (slider from 0 to 1, step 1)
réducteur_vitesse = 0.25 (slider from 0 to 1, step 0.001)
redangle = 130000 (slider from 0 to 1000000, step 0.1)
voirellipse = 0 (slider from 0 to 1, step 1)
T1 = 0
yimmobile = 4.5 (slider from 0 to 10, step 0.001)
a1b5 = Distance(A_1, B_5)
a1b6 = Distance(A_1, B_6)
a1b7 = Distance(A_1, B_7)
a1b8 = Distance(A_1, B_8)
a1b9 = Distance(A_1, B_9)
a2b1 = Distance(A_2, B_1)
a2b6 = Distance(A_2, B_6)
a2b7 = Distance(A_2, B_7)
a2b8 = Distance(A_2, B_8)
a2b9 = Distance(A_2, B_9)
a3b1 = Distance(A_3, B_1)
a3b2 = Distance(A_3, B_2)
a3b4 = Distance(A_3, B_4)
a3b5 = Distance(A_3, B_5)
a3b6 = Distance(A_3, B_6)
a3b7 = Distance(A_3, B_7)
a3b8 = Distance(A_3, B_8)
a3b9 = Distance(A_3, B_9)
a4b1 = Distance(A_4, B_1)
a4b2 = Distance(A_4, B_2)
a4b3 = Distance(A_4, B_3)
a4b5 = Distance(A_4, B_5)
a4b6 = Distance(A_4, B_6)
a4b7 = Distance(A_4, B_7)
a4b8 = Distance(A_4, B_8)
a4b9 = Distance(A_4, B_9)
a9b9 = Distance(A_9, B_9)
a8b8 = Distance(A_8, B_8)
a7b7 = Distance(A_7, B_7)
t1: poly4^(exposantma)
axe1 = Line((-0.5, 0), (0.5, 0))
axe2 = Rotate(axe1, 90*°)
M1 = Mirror(M, axe1)
M3 = Mirror(M, axe2)
M4 = Mirror(M, Os)
V6V: V5V * (1 + couleur_alea2) * (1 - indicmincoul) + V5V * (1 + couleur_alea2) * indicmincoul1
V6B: V5B * (1 + couleur_alea0) * (1 - indicmincoul) + V5B * (1 + couleur_alea0) * indicmincoul1
V6R: V5R * (1 + couleur_alea1) * (1 - indicmincoul) + V5R * (1 + couleur_alea1) * indicmincoul1