1construcfrere
Date: 23 Mars 2015

animer C'

lieux

La fratrie de ABC (cocher la case lieu et animer C')

A = (-2.409639574568021, 10.999984145199207)
B = (-5.646651422649227, -0.5993083104251294)
C = (13.685502670057982, -2.6224407154758826)
poly1, c, a, b = Polygon(A, B, C)
p: a + b + c
s: (a + b + c) * (b * c + c * a + a * b) - 2 * a * b * c
D(x) = (2 * x - p) * (2 * x^(3) - p * x^(2) + 4 * s - p^(3))
f(x) = (p - x) / 2 + sqrt(D(x)) / (2 * (p - 2 * x))
d = Line(B, C)
C' = Point(d)
e = Segment(B, C')
g = Circle(C', f(e))
h = Circle(B, p - f(e) - e)
A' = Intersect(g, h, 2)
poly2, c', a', b_1 = Polygon(A', B, C')
q: a' + b_1 + c'
lieu1 = Locus(A', C')
k(x) = (p - x) / 2 - sqrt(D(x)) / (2 * (p - 2 * x))
r = Circle(C', k(e))
t = Circle(B, p - e - k(e))
A'' = Intersect(r, t, 2)
poly3, c'_1, a'', b_2 = Polygon(A'', B, C')
u: a'' + b_2 + c'_1
lieu2 = Locus(A'', C')
texte2: "périmètre ABC = " + p + "
périmètre A'BC'=" + q + "
périmètre A''BC'= " + u + "
Aire ABC=" + poly1 + "
Aire A'BC'=" + poly2 + "
Aire A''BC'=" + poly3 + ""
i = false