binomio
Author: stefania

Sviluppo grafico del quadrato del binomio

per non sbagliare più

A = (-2, -2)
B = (2, -2)
a = Segment(A, B)
C = Point(a)
D = Point(a)
c = Circle(C, D)
b_1 = OrthogonalLine(C, a)
d = OrthogonalLine(D, a)
E = Intersect(c, b_1, 2)
e = OrthogonalLine(E, b_1)
F = Intersect(d, e)
poli1, e_1, f, d_1, c_1 = Polygon(E, F, D, C)
g = Line(C, D)
h = 1 (slider from 0 to 10, step 0.1)
G = Point(Circle[D, h])
b = Segment(D, G)
k = Circle(C, G)
H = Intersect(k, b_1, 2)
j = OrthogonalLine(H, b_1)
l = OrthogonalLine(G, g)
I = Intersect(j, l)
J = Intersect(d, j)
K = Intersect(e, l)
poli2, h_1, j_1, f_1, e_2 = Polygon(H, J, F, E)
poli3, j_2, i_1, k_1, f_2 = Polygon(J, I, K, F)
poli4, d_2, g_1, k_2, f_3 = Polygon(D, G, K, F)
Testopoli1: "Area " + (Name[E]) + (Name[F]) + (Name[D]) + (Name[C]) + " = " + poli1
Testopoli2: "Area " + (Name[H]) + (Name[J]) + (Name[F]) + (Name[E]) + " = " + poli2
Testopoli4: "Area " + (Name[D]) + (Name[G]) + (Name[K]) + (Name[F]) + " = " + poli4
Testopoli3: "Area " + (Name[J]) + (Name[I]) + (Name[K]) + (Name[F]) + " = " + poli3