Author: benny

ABCD

PBCQ

Bentech presents...
Area of two triangles on the same base
and between same parallels

Tick the above check boxes
to complete Parallelograms....
Drag A or P or T to get different cases

A_1 = (-2.46, -0.14)
B_1 = (18.1, -0.36)
a = Line(A_1, B_1)
T = (2.0849767875362923, 3.5390999885061007)
b = Line(T, a)
B = Point(a)
C = Point(a)
A = Point(b)
P = Point(b)
poly1, e, f, d = Polygon(A, B, C)
poly2, e_1, d_1, g = Polygon(B, P, C)
c = Line(C, e)
h = Line(C, e_1)
D = Intersect(b, c)
Q = Intersect(b, h)
poly3, i, g_1, e_2 = Polygon(P, C, Q)
poly4, h_1, f_1, e_3 = Polygon(A, C, D)
j = false
k = false
Textpoly2: "Area " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + (2.0 * poly2)
Textpoly1: "Area " + (Name[A]) + (Name[B]) + (Name[C]) + " =   \frac{ 1 }{2 } Area ABCD  = " + poly1
Textpoly3: "Area " + (Name[P]) + (Name[B]) + (Name[C]) + (Name[Q]) + " = " + (2.0 * poly3)
text1: "Area " + (Name[P]) + (Name[B]) + (Name[C]) + " =   \frac{ 1 }{2 } Area PBCQ     = " + poly2