a, b, h_a elemanları verilen üçgen çizimi...
Author: Hasan KORKMAZ

a, b, h_a elemanları verilen üçgenin çizimi.

B noktasını alalım ve doğruparçası[B,a] komutuyla [BC] kenarını çizelim
(doğru parçasının adını gizleyelim)

dik[B,doğru[B,C]] komutuyla B den dik doğru çizelim.

doğruparçası[B,h_a] komutuyla B den h_a uzaklığında 
noktayı bulalım.

Noktayı çevirerek dik doğru üzerine getirelim.

Bu noktanın B ye göre simetriğini alalım.

Bulunan noktalardan bu doğruya dik doğrular çizelim.

çember[C,b] komutuyla C merkezli b yarıçap uzunluğundaki
çemberi çizelim. 

Çemberle yukarıda sözü edilen noktaların kesişim 
noktalarına A',  A'', A''', A'''' isimlerini verelim.

Bu noktaları B ve C yebirleştirelim.

Böylece probleme uyan dört üçgen çizilmiş olur.

A_4 = (-3.74, 5.52)
B_1 = (1.38, 5.46)
a = Segment(A_4, B_1)
C_1 = (-3.36, 4.42)
D = (-0.98, 4.4)
b = Segment(C_1, D)
E_1 = (-3.34, 3.42)
F = (-1.48, 3.34)
h_a = Segment(E_1, F)
B = (1.04, 0.9)
C = Point(Circle[B, a])
c = Segment(B, C)
d = OrthogonalLine(B, Line[B, C])
G = Point(Circle[B, h_a])
G' = Mirror(G, B)
q = OrthogonalLine(G, d)
r = OrthogonalLine(G', d)
s = Circle(C, b)
A'', A' = Intersect(s, q)
A'''', A''' = Intersect(s, r)
t = Segment(A', B)
a_1 = Segment(A', C)
b_1 = Segment(A'', B)
c_1 = Segment(A'', C)
d_1 = Segment(A''', B)
e_1 = Segment(C, A''')
f_1 = Segment(B, A'''')
g_1 = Segment(C, A'''')