7APM4
Date: 23 Mars 2015

animer C

Utiliser cacher-montrer pour voir les 
traits de construction à la règle et au compas

A = (-3.7528047582497703, -7.501250744086773)
B = (1.1731536168285444, -7.501250744086773)
a_2 = Segment(A, B)
b_2 = LineBisector(a_2)
C = Point(b_2)
poly1, b_1, a_1, c = Polygon(A, C, B)
d = Line(A, B)
e = Circle(B, C)
D_1 = Intersect(e, d, 2)
E_1 = Intersect(e, d, 2)
F = Intersect(e, d, 2)
G = Intersect(e, d, 2)
H = Intersect(e, d, 2)
f = Circle(D_1, B)
I = Intersect(f, d, 2)
g = Circle(I, Segment[A, B])
J = Intersect(g, d, 1)
A' = Mirror(A, B)
A'_1 = Mirror(A, A')
K = Mirror(A'_1, A)
L = Mirror(A'_1, A)
M = Mirror(A'_1, A)
N = Mirror(A'_1, A)
O = Mirror(A'_1, A)
h = Circle(I, A)
a = Distance(A, B)
TexteAB: Name[A] + (Name[B]) + " \, = \, " + a
b = Distance(A, C)
TexteAC: Name[A] + (Name[C]) + " \, = \, " + b
distanceBJ = Distance(B, J)
TexteBJ: Name[B] + (Name[J]) + " \, = \, " + distanceBJ
j: 2 * b - a
k: 2 * b + 7 * a
A'_2 = Mirror(A, A'_1)
p = Circle(A'_2, Segment[B, I])
P = Intersect(p, d, 2)
distanceBP = Distance(B, P)
TexteBP: Name[B] + (Name[P]) + " \, = \, " + distanceBP
Q = Midpoint(B, P)
q = Circle(Q, P)
i = OrthogonalLine(J, d)
R = Intersect(q, i, 2)
r = Circle(J, Segment[B, R])
S = Intersect(r, d, 2)
T = Midpoint(B, S)
E = Midpoint(T, B)
l = OrthogonalLine(E, d)
m = OrthogonalLine(C, b_2)
V = Intersect(l, m)
n = Segment(V, B)
s = OrthogonalLine(A', d)
W = Intersect(s, n)
t = OrthogonalLine(W, s)
c_1 = LineBisector(B, E)
D = Intersect(t, c_1)
poly2, u, b_3, z = Polygon(B, D, E)
pABC: a + 2 * b
a' = Distance(B, E)
TexteBE: Name[B] + (Name[E]) + " \, = \, " + a'
b' = Distance(B, D)
TexteBD: Name[B] + (Name[D]) + " \, = \, " + b'
pBDE: a' + 2 * b'
texte1: "aire(ABC)=" + poly1
texte2: "aire(BDE)=" + poly2
texte3: "périmètre(ABC)=" + pABC
texte4: "périmètre(BDE)=" + pBDE