točke

središte baze 1

točka osnog presjeka

pravi kut - točke 1

pravi kut 1

pravi kut - točke 2

pravi kut 2

osni presjek

r

v

s

S

polumjer baze

visina

2r

s

točke

A = (0.72, -1.66)
B = Point(Ray[A, A + (1, 0)])
S = Midpoint(A, B)
a = OrthogonalLine(S, Line[A, B])
D = Point(a)
c = CircumcircleArc(A, D, B)
A' = Mirror(A, S)
D' = Mirror(D, S)
B' = Mirror(B, S)
c' = CircumcircleArc(A', D', B')
e = false
f = false
g = Segment(S, B)
C = Point(c)
C'_1 = Mirror(C, S)
m = false
b = OrthogonalLine(S, Line[A, B])
E = Point(b)
d = Segment(E, A)
j = Segment(E, B)
i = Segment(E, S)
F = Point(g)
F' = Rotate(F, 90*°, S)
G = Intersect(Line[F', Line[S, F]], Line[F, Line[S, F']])
k = Segment(F', G)
l = Segment(G, F)
n = false
o = false
mnogokut1, e_1, c_1, c'_1 = Polygon(C, C'_1, E)
H = Point(e_1)
I = Point(i)
J = Intersect(Line[I, Line[S, H]], Line[H, Line[S, I]])
p = Segment(I, J)
q = Segment(J, H)
r = false
s = true
t = true
h = false
u = true
A_1 = (16.6, -1.56)
B_1 = Point(Ray[A_1, A_1 + (1, 0)])
S_1 = Midpoint(A_1, B_1)
a_1 = OrthogonalLine(S_1, Line[A_1, B_1])
D_1 = Point(a_1)
c_2 = CircumcircleArc(A_1, D_1, B_1)
A'_1 = Mirror(A_1, S_1)
D'_1 = Mirror(D_1, S_1)
B'_1 = Mirror(B_1, S_1)
c'_2 = CircumcircleArc(A'_1, D'_1, B'_1)
b_1 = OrthogonalLine(S_1, Line[A_1, B_1])
E_1 = (16.02, 2.06)
d_1 = Segment(E_1, A_1)
j_1 = Segment(E_1, B_1)
v = false