Pour voir la position du point M (en rouge)

O_Centre = (0.5, 0.5)
cad4 = (0, 1)
cad3 = (1, 1)
cad2 = (1, 0)
cad1 = (0, 0)
poly1, cad1_1, cad2_1, cad3_1, cad4_1 = Polygon(cad1, cad2, cad3, cad4)
rayoncercle = 0.438 (slider from 0 to 0.70710678, step 0.001)
e = Circle(O_Centre, rayoncercle)
Mordonnée = 0.024 (slider from 0 to 1, step 0.001)
Mabscisse = 0.663 (slider from 0 to 1, step 0.001)
M: (Mabscisse, Mordonnée)
B = (0.3024118518518517, 0.6091641152263358)
b = Line(M, B)
E, B_2 = Intersect(b, poly1)
A = (0.818542353909465, 0.6582920164609001)
p = Ray(B_2, A)
Vcoeff = 3 (slider from 0 to 1000, step 0.1)
mb = Segment(M, B)
Rcoeff = 2.2 (slider from 0 to 1000, step 0.1)
Bcoeff = 3.8 (slider from 0 to 1000, step 0.1)
ma = Segment(M, A)
VoirABCD = 1 (slider from 0 to 1, step 1)
VoirM = 1 (slider from 0 to 1, step 1)
voircadre = 1 (slider from 0 to 1, step 1)
Mvisible = 0 (slider from 0 to 1, step 1)
exposantma = 1 (slider from -5 to 5, step 0.1)
exposantmb = 1 (slider from -5 to 5, step 0.1)
ma_exp: ma^(exposantma)
mb_exp: mb^(exposantmb)
coeff1 = 1 (slider from -100 to 100, step 0.1)
coeff2 = 1 (slider from -100 to 100, step 0.1)
Mestici: M
a = Line(M, A)
A_1 = Intersect(e, a, 2)
B_1 = Intersect(e, b, 2)
VoirA'B'C'D' = 1 (slider from 0 to 1, step 1)
aa1_1 = Segment(A_1, A)
bb1_1 = Segment(B_1, B)
AMB = Angle(A, M, B)
cosAMB: cos(AMB)
limiterouge = 10 (slider from -5 to 10, step 0.1)
limitevert = 10 (slider from -5 to 10, step 0.1)
limitebleu = 10 (slider from -5 to 10, step 0.1)
voirsegments = 0 (slider from 0 to 1, step 1)
voircercle = 1 (slider from 0 to 1, step 1)
voirdroites = 1 (slider from 0 to 1, step 1)
voirpolygone = 1 (slider from 0 to 1, step 1)
coeff_limite = 0.3 (slider from -5 to 5, step 0.1)
addR = 0.14 (slider from -1 to 1, step 0.001)
addV = -0.16 (slider from -1 to 1, step 0.001)
addB = -0.22 (slider from -1 to 1, step 0.001)
C_2, A_2 = Intersect(a, poly1)
D = Intersect(a, b)
F = Intersect(b, cad4_1)
c = Ray(F, A)
d = Ray(A_2, B)
A_3 = Intersect(e, d, 2)
C, A_4 = Intersect(d, poly1)
H, Z_1 = Intersect(c, poly1)
a2b2 = Segment(A_2, B_2)
b1b2 = Segment(B_1, B_2)
a1a2_1 = Segment(A_1, A_2)
aa1 = Segment(A, A_1)
bb1 = Segment(B, B_1)
a3a4 = Segment(A_3, A_4)
B_3 = Intersect(e, p, 2)
a1a2 = Segment(A_1, B_1)
a3b3 = Segment(A_3, B_3)
Z_2, B_4 = Intersect(p, poly1)
a4b4 = Segment(A_4, B_4)
ba1 = Segment(B, A_1)
ab1 = Segment(A, B_1)
b3b4 = Segment(B_3, B_4)
Zrouge: (a1a2 * ba1 - b3b4 * a2b2) * Rcoeff
Zvert: (a1a2 * a4b4 + ba1 * a4b4) / Vcoeff
Zbleu: (a1a2 * a4b4 + b3b4 * bb1) / Bcoeff
texte1: "Rouge : " + Zrouge + "  Vert : " + Zvert + "   Bleu : " + Zbleu + ""