 ABC     תיכונים במשולש  CQ ו- BP

הצג גבהים

הצג יחסי שטחים

A = (0, 5)
B = (-2, -1)
C = (8, -1)
poly1, c, a, b = Polygon(A, B, C)
Q = Midpoint(c)
P = Midpoint(b)
d = Segment(Q, P)
e = Segment(Q, C)
f = Segment(P, B)
poly2, e_1, d_1, a_1 = Polygon(Q, A, P)
M = Intersect(e, f)
poly3, f_1, d_2, e_2 = Polygon(Q, P, M)
poly4, c_1, b_1, f_2 = Polygon(B, M, C)
טקסטpoly2: "Area " + (Name[Q]) + (Name[A]) + (Name[P]) + " = " + poly2
טקסטpoly1: "Area " + (Name[A]) + (Name[B]) + (Name[C]) + " = " + poly1
טקסטpoly3: "Area " + (Name[Q]) + (Name[P]) + (Name[M]) + " = " + poly3
טקסטpoly4: "Area " + (Name[B]) + (Name[M]) + (Name[C]) + " = " + poly4
text1: "\frac{Area AQP}{Area ABC}=" + (LaTeX[FractionText[poly2 / poly1]]) + ""
A_1 = (9.98, -0.02)
B_1 = (7.98, -6.02)
C_1 = (17.98, -6.02)
poly1_1, c_2, a_3, b_2 = Polygon(A_1, B_1, C_1)
Q_1 = Midpoint(c_2)
P_1 = Midpoint(b_2)
d_4 = Segment(Q_1, P_1)
e_4 = Segment(Q_1, C_1)
f_3 = Segment(P_1, B_1)
text1_1: "\frac{Area PQM}{Area ABC}=" + (LaTeX[FractionText[poly3 / poly1]]) + ""
A_2 = (10.32, -2.88)
B_2 = (8.32, -8.88)
C_2 = (18.32, -8.88)
poly1_2, c_3, a_5, b_3 = Polygon(A_2, B_2, C_2)
Q_2 = Midpoint(c_3)
P_2 = Midpoint(b_3)
d_6 = Segment(Q_2, P_2)
e_6 = Segment(Q_2, C_2)
f_4 = Segment(P_2, B_2)
text1_2: "\frac{Area BMC}{Area ABC}=" + (LaTeX[FractionText[poly4 / poly1]]) + ""
g = OrthogonalLine(A, a)
h = OrthogonalLine(M, a)
D = Intersect(g, d)
E = Intersect(g, a)
F = Intersect(h, a)
G = Intersect(h, d)
i = Segment(A, D)
j = Segment(A, E)
k = Segment(G, M)
l = Segment(M, F)
m = false
n = false