Maille

Translater

Calcul compacité

n = 3 (slider from 1 to 6, step 1)
l1 = Sequence(Translate[Circle[(0, 0), 1], ((2 * k), 0)], k, 0, n - 1, 1)
O = Intersect(xAxis, yAxis)
c = Circle(O, 2)
B_1 = (2, 0)
d = Circle(B_1, 2)
C = Intersect(c, d, 1)
C' = Mirror(C, yAxis)
e = CircleArc(O, C, C')
B = Point(e)
u = Vector(O, B_1)
v = Vector(O, B)
M: O + u + v
A = (2, 0)
q1, o, e_1, a, d_1 = Polygon(O, A, M, B)
l3 = Sequence(Polygon[Translate[O, ((2 * k), 0)], Translate[A, ((2 * k), 0)], Translate[M, ((2 * k), 0)], Translate[B, ((2 * k), 0)]], k, 0, n - 2, 1)
l4 = Sequence(Translate[l3, Vector[(k * v)]], k, 0, n - 2)
b = false
f = Circle(B, 1)
D = Intersect(f, d_1, 1)
E = Intersect(f, a, 1)
g = CircleSector(B, D, E)
h = CircleSector(O, (1, 0), D)
h' = Translate(h, u)
g' = Translate(g, u)
F = Midpoint(O, M)
g'_1 = Mirror(g, F)
h'_1 = Mirror(h, F)
t = 0 (slider from 0 to 1)
g'_2 = Translate(g, Vector[(t * u)])
h'_2 = Translate(h, Vector[(t * u)])
i = false
comp: (100 * π / q1)
texte1: "Compacité :
" + comp + "%"
l2 = Sequence(Translate[l1, Vector[(k * v)]], k, 0, n - 1, 1)