Graphe

matrice

x

y

sommets

A

B

C

D

E

F

G

H

deplacer sommet

orienté

poids

k_1 = 0
k_2 = 0
k_3 = 0
k_4 = 0
k_5 = 0
k_6 = 0
k_7 = 0
k_8 = 0
k_9 = 0
k_{10} = 0
k_{11} = 0
k_{12} = 0
k_{13} = 0
k_{14} = 0
k_{15} = 0
k_{16} = 0
k_{17} = 0
k_{18} = 0
k_{19} = 0
k_{20} = 0
k_{21} = 0
k_{22} = 0
k_{23} = 0
k_{24} = 0
k_{25} = 0
k_{26} = 0
k_{27} = 0
k_{28} = 0
k_{29} = 0
k_{30} = 0
k_{31} = 0
k_{32} = 0
D2 = 0
E2 = 3
F2 = 7
G2 = 11
H2 = 0
I2 = 0
K2 = 0
E3 = 0
F3 = 3
G3 = 7
H3 = 11
D4 = 7
E4 = 3
F4 = 0
G4 = 4
H4 = 3
I4 = 0
J4 = 0
K4 = 0
I3 = 0
J3 = 0
K3 = 0
D5 = 11
F5 = 4
G5 = 0
H5 = 9
I5 = 0
J5 = 2
K5 = 0
D6 = 0
E6 = 11
F6 = 3
G6 = 9
H6 = 0
I6 = 8
J6 = 10
K6 = 0
D7 = 0
E7 = 0
F7 = 0
G7 = 0
H7 = 8
I7 = 0
J7 = 4
K7 = 7
D8 = 0
E8 = 0
F8 = 0
G8 = 2
H8 = 10
I8 = 4
J8 = 0
K8 = 12
D9 = 0
E9 = 0
F9 = 0
G9 = 0
H9 = 0
I9 = 7
J9 = 12
K9 = 0
E5 = 7
M_2 = 3
D3 = 3
B2 = -7.296395195892358
C2 = 6.668166553880164
B3 = 6.751722923068829
C3 = 14.029625830191701
B4 = 3.1323387788823225
C4 = -0.8773292043391618
B5 = 5.404993024862808
C5 = -11.793189343075566
B6 = 12.363602576827601
C6 = 2.6241243622408224
B7 = 23.430329688882605
C7 = 4.850965793325057
B8 = 14.745850547784173
C8 = -9.368159024624829
B9 = 24.895051510189116
S = Sequence((Cell[2, l], Cell[3, l]), l, 2, 9)
C9 = -5.236625889486536
M = Sequence(Sequence[Cell[c, l], c, 4, 11], l, 2, 9)
A: (B2, C2)
r = 1.3 (slider from 0 to 5, step 0.1)
B: (B3, C3)
C: (B4, C4)
D: (B5, C5)
E: (B6, C6)
F: (B7, C7)
G: (B8, C8)
H: (B9, C9)
a = false
b = false
Gno = Sequence(Sequence[If[Cell[p + 3, k + 1] ≠ 0, Segment[Element[S, k], Element[S, p]]], p, k, 8], k, 1, 8)
Go = Sequence(Sequence[If[Cell[p + 3, k + 1] ≠ 0, {Segment[Element[S, k], Element[S, p]], Text[Cell[p + 3, k + 1], Midpoint[Element[S, k], Element[S, p]], true]}], p, 1, 8], k, 1, 8)
Pds = Sequence(Sequence[If[Cell[p + 3, k + 1] ≠ 0, Text[Cell[p + 3, k + 1], Midpoint[Element[S, k], Element[S, p]], true]], p, k, 8], k, 1, 8)
c_{inte} = Sequence(Circle[Element[S, k], r], k, 1, 8)
N = Sequence(Text[Cell[1, k + 1], Element[S, k], true], k, 1, 8)
c = Sequence(Circle[Element[S, k], r], k, 1, 8)
d = true
J2 = 0