Nombre de plus proches voisins

Diamètre

Concavité

Tumeur maligne

Non

Non

Non

Oui

Oui

Oui

Oui

Non

Oui

Oui

Voronoi

Frontière

Coloriage

Frontière rectiligne

n = 5 (slider from 1 to 10, step 1)
K = (16.180232766550816, 9.87489514015143)
B11: 15.9
A11: 8.20000000000002
U: (A11, B11)
J: (A11, B11)
B10: 6.60000000000001
A10: 12
T: (A10, B10)
I: (A10, B10)
B4: 17.7
A4: 18.2
N_1: (A4, B4)
B9: 2
A9: 12
S: (A9, B9)
H: (A9, B9)
B8: 1.9
A8: 13.6
R: (A8, B8)
G: (A8, B8)
B7: 1.7
A7: 11.8
Q: (A7, B7)
F: (A7, B7)
B6: 4.8
A6: 13.5
P: (A6, B6)
E: (A6, B6)
l1: {E, F, G, H, I, J}
B5: 9
A5: 13.2
O: (A5, B5)
B3: 19.7
A3: 18.7
M_1: (A3, B3)
B2: 8.3
A2: 13.2
L: (A2, B2)
TousPts: {L, M_1, N_1, O, P, Q, R, S, T, U}
ToutesDist = Sort(Sequence[Distance[K, Element[TousPts, k]], k, 1, Length[TousPts]])
Rk = Element(ToutesDist, n)
A: (A2, B2)
B: (A3, B3)
C: (A4, B4)
D: (A5, B5)
l2: {A, B, C, D}
Distl2 = Sequence(Distance[K, Element[l2, k]], k, 1, Length[l2])
Distl1 = Sequence(Distance[K, Element[l1, k]], k, 1, Length[l1])
l4 = Sequence(If[Distance[K, Element[l1, k]] ≤ Rk, Segment[K, Element[l1, k]]], k, 1, Length[l1])
l3 = Sequence(If[Distance[K, Element[l2, k]] ≤ Rk, Segment[K, Element[l2, k]]], k, 1, Length[l2])
graphe1 = Voronoi(TousPts)
c = Circle(B, C, J)
d = Circle(J, C, D)
e = Circle(J, D, I)
f = Circle(D, A, I)
g = Circle(A, I, E)
h = Circle(C, A, E)
k = Circle(C, E, G)
Lcercles: {c, d, e, f, g, h, k}
CentresCercles = Sequence(Center[Element[Lcercles, k]], k, 1, Length[Lcercles])
V = Point(graphe1)
W = Point(graphe1)
l6 = Union({V}, CentresCercles)
PointsLigne = Union(l6, {W})
i = PolyLine(PointsLigne)
p = Circle(K, Min[Distl1])
q = Circle(K, Min[Distl2])
a = false
b = false
R1 = Min(Distl1)
R2 = Min(Distl2)
K1: K
K2: K
K1': K1
K2': K2
j = false
l1' = Translate(l1, (0, 0))
l2' = Translate(l2, (0, 0))
l3': l3
l4': l4
Rayonsinfk = Sequence(If[Distance[K, Element[TousPts, k]] ≤ Rk, Segment[K, Element[TousPts, k]]], k, 1, Length[TousPts])
NBbleu = Sum(Sequence[If[Defined[Element[l3, k]], 1, 0], k, 1, Length[l2]])
NBrouge = Sum(Sequence[If[Defined[Element[l4, k]], 1, 0], k, 1, Length[l1]])
KG: K
KG': K
Disquek = Circle(K, Rk + 0.1)
M = (6.131082578892727, 11.330779046292655)
N = (28.1468886437267, 6.25294005658059)
l = Line(M, N)
r = Polynomial({M, N})
texte1: "y=" + (LaTeX[r]) + ""
m(x, y) = y > r(x)
o(x, y) = y < r(x)
s = false