 ב 

 א 

B_1 = (2, -6)
C_1 = (2, 6)
D_1 = Midpoint(B_1, C_1)
a_2 = LineBisector(B_1, C_1)
A_1 = Point(a_2)
poly1, b, a, d = Polygon(B_1, A_1, C_1)
c = Segment(D_1, A_1)
α = Angle(B_1, C_1, A_1)
β = Angle(A_1, B_1, C_1)
B_3 = (15.08, -0.78)
C = (20, 6)
A = (28, 0)
B = Rotate(C, 1.2870022175865685, A)
γ = Angle(C, A, B)
poly2, a_1, e, f = Polygon(C, A, B)
g = OrthogonalLine(A, f)
D = Intersect(g, f)
h = Segment(A, D)
δ = Angle(B, C, A)
ε = Angle(A, B, C)
B_2 = (30.596938639539758, -7.160481161690626)
C_2 = (30.596938639539758, 4.839518838309374)
D_2 = Midpoint(B_2, C_2)
a_4 = LineBisector(B_2, C_2)
A_2 = Point(a_4)
poly1_1, b_1, a_3, d_1 = Polygon(B_2, A_2, C_2)
c_1 = Segment(D_2, A_2)
α_1 = Angle(B_2, C_2, A_2)
β_1 = Angle(A_2, B_2, C_2)
text1: "\frac{A_1D_1}{A_1C_1} = " + (LaTeX[c / a]) + ""
text1_1: "\frac{AD}{AC} = " + (LaTeX[FractionText[h / a_1]]) + "=" + (LaTeX[h / a_1]) + ""

Tool: שיעורי נקודה (command שיעורינקודה)
נקודה
Input: A
Output: d, c

a = OrthogonalLine(A, xAxis)
b = OrthogonalLine(A, yAxis)
B = Intersect(b, yAxis)
C = Intersect(a, xAxis)
c = Segment(B, A)
d = Segment(A, C)