Déplacer le curseur pour
modifier le quadrillage

Déplacer ces deux curseurs pour 
voir tous les carrés de côté 2

Voir les carrés de côté 2

N' = (-6.5, 4)
N = (-6.5, 1)
Q = Point(Segment[N, N'])
n = 3 (slider from 2 to 50, step 1)
M' = (-3, 1)
M = (-6, 1)
P = Point(Segment[M, M'])
A = Intersect(xAxis, yAxis)
B = Point(xAxis)
poly1, a, b, c, d, C, D = Polygon(A, B, 4.0)
liste1 = Sequence(Segment[(10.0 * k / n, 0.0), (10.0 * k / n, 10.0)], k, 0.0, n - 1.0)
liste2 = Sequence(Segment[(0.0, 10.0 * k / n), (10.0, 10.0 * k / n)], k, 0.0, n - 1.0)
A1 = 1
B1 = 1
B2 = 2
B3: 2.0 * B2 - B1
B4: 2.0 * B3 - B2
B5: 2.0 * B4 - B3
B6: 2.0 * B5 - B4
B7: 2.0 * B6 - B5
B8: 2.0 * B7 - B6
B9: 2.0 * B8 - B7
B10: 2.0 * B9 - B8
B11: 2.0 * B10 - B9
B12: 2.0 * B11 - B10
B13: 2.0 * B12 - B11
B14: 2.0 * B13 - B12
B15: 2.0 * B14 - B13
B16: 2.0 * B15 - B14
B17: 2.0 * B16 - B15
B18: 2.0 * B17 - B16
B19: 2.0 * B18 - B17
B20: 2.0 * B19 - B18
B21: 2.0 * B20 - B19
B22: 2.0 * B21 - B20
B23: 2.0 * B22 - B21
B24: 2.0 * B23 - B22
B25: 2.0 * B24 - B23
B26: 2.0 * B25 - B24
B27: 2.0 * B26 - B25
B28: 2.0 * B27 - B26
B29: 2.0 * B28 - B27
B30: 2.0 * B29 - B28
B31: 2.0 * B30 - B29
B32: 2.0 * B31 - B30
B33: 2.0 * B32 - B31
B34: 2.0 * B33 - B32
B35: 2.0 * B34 - B33
B36: 2.0 * B35 - B34
B37: 2.0 * B36 - B35
B38: 2.0 * B37 - B36
B39: 2.0 * B38 - B37
B40: 2.0 * B39 - B38
B41: 2.0 * B40 - B39
B42: 2.0 * B41 - B40
B43: 2.0 * B42 - B41
B44: 2.0 * B43 - B42
B45: 2.0 * B44 - B43
B46: 2.0 * B45 - B44
B47: 2.0 * B46 - B45
B48: 2.0 * B47 - B46
B49: 2.0 * B48 - B47
B50: 2.0 * B49 - B48
A2: A1 + B2^(2.0)
A3: A2 + B3^(2.0)
A4: A3 + B4^(2.0)
A5: A4 + B5^(2.0)
A6: A5 + B6^(2.0)
A7: A6 + B7^(2.0)
A8: A7 + B8^(2.0)
A9: A8 + B9^(2.0)
A10: A9 + B10^(2.0)
A11: A10 + B11^(2.0)
A12: A11 + B12^(2.0)
A13: A12 + B13^(2.0)
A14: A13 + B14^(2.0)
A15: A14 + B15^(2.0)
A16: A15 + B16^(2.0)
A17: A16 + B17^(2.0)
A18: A17 + B18^(2.0)
A19: A18 + B19^(2.0)
A20: A19 + B20^(2.0)
A21: A20 + B21^(2.0)
A22: A21 + B22^(2.0)
A23: A22 + B23^(2.0)
A24: A23 + B24^(2.0)
A25: A24 + B25^(2.0)
A26: A25 + B26^(2.0)
A27: A26 + B27^(2.0)
A28: A27 + B28^(2.0)
A29: A28 + B29^(2.0)
A30: A29 + B30^(2.0)
A31: A30 + B31^(2.0)
A32: A31 + B32^(2.0)
A33: A32 + B33^(2.0)
A34: A33 + B34^(2.0)
A35: A34 + B35^(2.0)
A36: A35 + B36^(2.0)
A37: A36 + B37^(2.0)
A38: A37 + B38^(2.0)
A39: A38 + B39^(2.0)
A40: A39 + B40^(2.0)
A41: A40 + B41^(2.0)
A42: A41 + B42^(2.0)
A43: A42 + B43^(2.0)
A44: A43 + B44^(2.0)
A45: A44 + B45^(2.0)
A46: A45 + B46^(2.0)
A47: A46 + B47^(2.0)
A48: A47 + B48^(2.0)
A49: A48 + B49^(2.0)
A50: A49 + B50^(2.0)
L_1: {A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17, A18, A19, A20, A21, A22, A23, A24, A25, A26, A27, A28, A29, A30, A31, A32, A33, A34, A35, A36, A37, A38, A39, A40, A41, A42, A43, A44, A45, A46, A47, A48, A49, A50}
texte2: "Nombre de carrés = " + (Element[L_1, n])
g: floor((n - 2.0) * Distance[N, Q] / Distance[N, N'])
e: floor((n - 2.0) * Distance[M, P] / Distance[M, M'])
f = Segment((10.0 * e / n, 10.0 * g / n), (10.0 * (e + 2.0) / n, 10.0 * g / n))
E: (10.0 * e / n, 10.0 * g / n)
F: (10.0 * (e + 2.0) / n, 10.0 * g / n)
poly2, e_1, f_1, h, i, G, H = Polygon(E, F, 4.0)
j = Segment(M, M')
k = Segment(N, N')
l = false