essai

Reproduis les 2 figures suivantes à partir des points

A = (20, 7)
Q = (20, -3)
T_1 = (27, 7)
U_1 = (27, -3)
Z_1 = (27, -11)
V_1 = (20, -11)
u = Vector(V_1, Z_1)
B = (21, 8)
f = Segment(A, B)
C = (23, 8)
g = Segment(B, C)
D = (24, 8)
h = Segment(C, D)
E = (23, 7)
i = Segment(D, E)
j = Segment(E, C)
F = (23, 5)
k = Segment(E, F)
G = (21, 6)
l = Segment(B, G)
m = Segment(G, F)
H = (23, 3)
n = Segment(F, H)
I = (24, 2)
p = Segment(H, I)
J = (23, 2)
a = Segment(I, J)
b = Segment(H, J)
K = (20, 2)
c = Segment(A, K)
L = (21, 3)
d = Segment(K, L)
M = (21, 2)
e = Segment(L, M)
f_2 = Segment(M, J)
N = (22, 7)
O = (21, -2)
q = Segment(Q, O)
P = (21, -3)
r = Segment(O, P)
s = Segment(P, Q)
R = (23, -3)
t = Segment(P, R)
S = (21, -5)
f_1 = Segment(P, S)
T = (25, -5)
g_1 = Segment(R, T)
U = (23, -7)
h_1 = Segment(S, U)
V = (25, -7)
i_1 = Segment(U, V)
j_1 = Segment(T, V)
W = (25, -4)
k_1 = Segment(W, T)
Z = (24, -4)
l_1 = Segment(W, Z)
A_1 = (22, -7)
m_1 = Segment(U, A_1)
B_1 = Point(h_1)
n_1 = Segment(A_1, B_1)
C_1 = (24, -6)
D_1 = (22, 4)
p_1 = Segment(L, D_1)

Tool: triangle équilatéral (se) (command triangleéquilatéralse)
triangleéquilatéralse[ <Point>, <Point> ]
Input: A, B
Output: C, a, b, c

a = Segment(A, B)
C = Rotate(B, 60°, A)
b = Segment(C, A)
c = Segment(C, B)

Tool: triangle isocèle (se) (command triangleisocèlese)
Input: A, B
Output: C, a, b, c

a = Segment(A, B)
C = Point(Circle[A, a])
b = Segment(A, C)
c = Segment(B, C)

Tool: triangle rectangle (se) (command trianglerectanglese)
Input: A, B
Output: C, a, b, c

a = Segment(A, B)
C = Point(OrthogonalLine[B, Line[A, B]])
b = Segment(B, C)
c = Segment(C, A)

Tool: triangle rectangle isocèle (se) (command trianglerectangleisocèlese)
Input: A, B
Output: C, a, b, c

a = Segment(A, B)
C = Rotate(B, 90°, A)
b = Segment(C, A)
c = Segment(C, B)

Tool: carré (se) (command carrése)
Input: A, B
Output: C, D, a, b, c, d

a = Segment(A, B)
C = Rotate(A, 270°, B)
D = Rotate(B, 90°, A)
b = Segment(B, C)
c = Segment(C, D)
d = Segment(D, A)

Tool: rectangle (se) (command rectanglese)
Input: A, B
Output: C, D, a, b, c, d

a = Segment(A, B)
C = Point(OrthogonalLine[A, Line[A, B]])
b = Segment(C, A)
D = Intersect(OrthogonalLine[C, Line[A, C]], OrthogonalLine[B, Line[A, B]])
c = Segment(C, D)
d = Segment(D, B)

Tool: parallélogramme (se) (command parallélogrammese)
Input: A, B, C
Output: D, a, b, c, d

a = Segment(A, B)
b = Segment(B, C)
D = Point(A, Vector[B, C])
c = Segment(A, D)
d = Segment(D, C)

Tool: losange (se) (command losangese)
Input: A, B
Output: C, D, a, b, c, d

a = Segment(A, B)
C = Point(Circle[B, a])
b = Segment(B, C)
D = Point(A, Vector[B, C])
c = Segment(A, D)
d = Segment(D, C)

Tool: pavage triangle (command pavagetriangle)
Input: A, B
Output: poly1, C, a, b, c

poly1, a, b, c, C = Polygon(A, B, 3)

Tool: pavage carré (command pavagecarré)
Input: D, E
Output: poly2, F, G, d, e, f, g

poly2, d, e, f, g, F, G = Polygon(D, E, 4)

Tool: pavage pentagone (command pavagepentagone)
Input: H, I
Output: poly3, J, K, L, h, i, j, k, l

poly3, h, i, j, k, l, J, K, L = Polygon(H, I, 5)

Tool: pavage héxagone (command pavagehéxagone)
Input: M, N
Output: poly4, O, P, Q, R, m, n, o, p, q, r

poly4, m, n, o, p, q, r, O, P, Q, R = Polygon(M, N, 6)

Tool: pavage héptagone (command pavagehéptagone)
Input: S, T
Output: poly5, U, V, W, Z, A1, s, t, u, v, w, z, a1

poly5, s, t, u, v, w, z, a1, U, V, W, Z, A1 = Polygon(S, T, 7)

Tool: pavage octogone (command pavageoctogone)
Input: B1, C1
Output: poly6, D1, E1, F1, G1, H1, I1, b1, c1, d1, e1, f1, g1, h1, i1

poly6, b1, c1, d1, e1, f1, g1, h1, i1, D1, E1, F1, G1, H1, I1 = Polygon(B1, C1, 8)

Tool: pavage nonagone (command pavagenonagone)
Input: J1, K1
Output: poly7, L1, M1, N1, O1, P1, Q1, R1, j1, k1, l1, m1, n1, o1, p1, q1, r1

poly7, j1, k1, l1, m1, n1, o1, p1, q1, r1, L1, M1, N1, O1, P1, Q1, R1 = Polygon(J1, K1, 9)

Tool: pavage décagone (command pavagedécagone)
Input: S1, T1
Output: poly8, U1, V1, W1, Z1, A2, B2, C2, D2, s1, t1, u1, v1, w1, z1, a2, b2, c2, d2

poly8, s1, t1, u1, v1, w1, z1, a2, b2, c2, d2, U1, V1, W1, Z1, A2, B2, C2, D2 = Polygon(S1, T1, 10)

Tool: pavage endécagone (command pavageendécagone)
Input: E2, F2
Output: poly9, G2, H2, I2, J2, K2, L2, M2, N2, O2, e2, f2, g2, h2, i2, j2, k2, l2, m2, n2, o2

poly9, e2, f2, g2, h2, i2, j2, k2, l2, m2, n2, o2, G2, H2, I2, J2, K2, L2, M2, N2, O2 = Polygon(E2, F2, 11)

Tool: pavage héxagone (command pavagehéxagon)
Input: M, N
Output: poly4, O, P, Q, R, m, n, o, p, q, r

poly4, m, n, o, p, q, r, O, P, Q, R = Polygon(M, N, 6)

Tool: Guide âne (command Guideâne)
Input: A, B, C
Output: a, D, E, F, G, H, I, J, K, L, M, N, b, c, d, e, f, g, h, i, j, k, l, m

a = Line(A, B)
b = Line(C, a)
D = Translate(C, Vector[B, C])
c = Line(D, b)
E = Translate(D, Vector[B, C])
d = Line(E, c)
F = Translate(E, Vector[B, C])
G = Translate(F, Vector[B, C])
H = Translate(G, Vector[B, C])
e = Line(F, d)
f = Line(G, e)
g = Line(H, f)
I = Translate(H, Vector[B, C])
J = Translate(I, Vector[B, C])
K = Translate(J, Vector[B, C])
h = Line(I, g)
i = Line(J, h)
j = Line(K, i)
L = Translate(K, Vector[B, C])
M = Translate(L, Vector[B, C])
N = Translate(M, Vector[B, C])
k = Line(L, j)
l = Line(M, j)
m = Line(N, l)

Tool: pavage dodécagone (command pavagedodécagone)
Input: P2, Q2
Output: poly10, R2, S2, T2, U2, V2, W2, Z2, A3, B3, C3, p2, q2, r2, s2, t2, u2, v2, w2, z2, a3, b3, c3

poly10, p2, q2, r2, s2, t2, u2, v2, w2, z2, a3, b3, c3, R2, S2, T2, U2, V2, W2, Z2, A3, B3, C3 = Polygon(P2, Q2, 12)