Author: Michael Schuster

Tool: Schwerpunkt
Input: A, B, C
Output: S

D = Midpoint(A, B)
F = Midpoint(C, A)
e = Segment(B, F)
f = Segment(C, D)
S = Intersect(f, e)

Tool: Mittelpunkt
Input: B, C
Output: E

E = Midpoint(B, C)

Tool: Inkreis und Inkreismittelpunkt (command InkreisundInkreismittelpunkt)
Input: A, B, C
Output: Inkreis, M_i

poly1, c, a, b = Polygon(A, B, C)
e = AngularBisector(C, B, A)
f = AngularBisector(A, C, B)
M_i = Intersect(e, f)
g = OrthogonalLine(M_i, c)
D = Intersect(c, g)
Inkreis = Circle(M_i, D)

Tool: Parallele mit Abstand (command ParallelemitAbstand)
Input: A, B, k
Output: d

a = Segment(A, B)
b = OrthogonalLine(A, a)
c = Circle(A, k)
C, D = Intersect(c, b)
d = Line(D, a)