A

B

C

D

E

×

×

×

×

A = (-0.56, 3.96)
B = (-1.64, 0.24)
C = (3.96, 0.22)
veelhoek1, c, a, b = Polygon(A, B, C)
f = Ray(C, A)
g = AngularBisector(B, A, C)
D = Intersect(g, a)
h = Line(B, g)
E = Intersect(h, f)
i = Segment(A, E)
j = Segment(E, B)
k = Segment(A, D)

Tool: Hoekteken(L) (command Macro2)
Drie punten, tweede punt is hoekpunt
Input: A, B, C
Output: veelhoek1

a = Segment(A, C)
b = AngularBisector(A, B, C)
D = Intersect(b, a)
c: (a / a * 0.15)
d = Circle(B, c)
e = Ray(B, A)
f = Ray(B, C)
g = Ray(B, D)
E = Intersect(d, g, 1)
F = Intersect(d, e, 1)
u = Vector(B, F)
G = Intersect(d, f, 1)
v = Vector(B, G)
E' = Translate(E, u)
E'_1 = Translate(E, v)
E'_2 = Mirror(E, E')
E'_3 = Mirror(E, E'_1)
H = Midpoint(E, B)
B' = Mirror(B, H)
veelhoek1, e'_2, e_1, e'_3, b' = Polygon(E'_2, E, E'_3, B')

Tool: OrthoHyperbool2F
OrthoHyperbool2F[ <Punt>, <Punt> ]
Input: A, B
Output: e

f = Segment(B, A)
C = Midpoint(f)
g = OrthogonalLine(C, f)
c = Circle(C, A)
D = Intersect(c, g, 2)
E = Midpoint(D, A)
d = Circle(C, E)
F = Intersect(d, f, 2)
e = Hyperbola(A, B, F)

Tool: Pijlpunt
2 punten
Input: A, B
Output: veelhoek1

f = Segment(A, B)
a: f / f / 2
c = Circle(B, a)
C = Intersect(c, f, 1)
b: a / 16
B' = Dilate(B, b, C)
g = OrthogonalLine(B', f)
D, E = Intersect(c, g)
veelhoek1, e, d, b_1 = Polygon(D, B, E)