5APM2
Date: 23 Mars 2015

Même aire

Même périmètre

Les deux mon général

On impose la base BC'

B = (-1.3090909090909084, -2.5672727272727323)
C = (2.2909090909090946, -2.5490909090909137)
a = Segment(B, C)
b = LineBisector(a)
A_2 = Intersect(b, a)
c = Circle(A_2, Segment[B, C])
D = Intersect(c, b, 2)
A = Mirror(A_2, D)
d = Segment(A, B)
e = Segment(C, A)
f = Line(B, C)
C' = Mirror(B, C)
poly1, c_1, b_1, a_1 = Polygon(B, A, C)
g = Line(D, f)
h = Circle(C, A_2)
E = Intersect(h, e, 1)
k = Circle(C, Segment[A, E])
F = Intersect(k, f, 1)
p = Ellipse(B, C', F)
A'' = Intersect(p, g, 2)
poly2, c', b_2, g_1 = Polygon(B, A'', C')
texte1: "Aire ABC=" + poly1
p'': b_2 + c' + g_1
q: c_1 + b_1 + g_1 / 2
texte3: "périmètre ABC =" + q
A' = Point(p)
poly3, g_2, b_3, c'_1 = Polygon(B, C', A')
A_1 = Point(g)
poly4, c'_2, b_4, g_3 = Polygon(B, A_1, C')
i = false
texte5: "Aire A_1BC'=" + poly4
p': g_1 + c'_1 + b_3
texte6: "périmètre A'BC'=" + p'
texte4: "périmètre A''BC'=" + p''
texte2: "Aire A''BC'=" + poly2
j = false
l = false
pp: c'_2 + b_4 + g_1
texte7: "périmètre A_1BC'=" + pp
texte8: "Aire A'BC'=" + poly3