Bild: http://de.wikipedia.org/wiki/Datei:ParabolicWaterTrajectory.jpg

a = 1 (slider from -3 to 3, step 0.01)
e = 0 (slider from -2 to 10, step 0.05)
d = 0 (slider from -3 to 8, step 0.05)
f(x) = a * (x - d)^(2.0) + e
w0 = Vector((d, 0.0), (d, f(d)))
Q = Midpoint((d, 0.0), (d, f(d)))
S: (d, e)
v0 = Vector((0.0, 0.0), (d, 0.0))
Text9: d + ""
P = Midpoint((0.0, 0.0), (d, 0.0))
Text10: e + ""

Tool: Eulergerade
Gib 3 Punkte an
Input: A, B, C
Output: Vieleck1, Euler, h_a, h_b, h_c, m_a, m_b, m_c, H, M_a, M_b, M_c, S, U, a, b, c, s_a, s_b, s_c

Vieleck1_1, c_1, a_1, b_1 = Polygon(A, B, C)
Vieleck1, c, a, b = Polygon(A, B, C)
M_a = Midpoint(a)
M_b = Midpoint(b)
M_c = Midpoint(c)
m_a = OrthogonalLine(M_a, a)
m_b = OrthogonalLine(M_b, b)
m_c = OrthogonalLine(M_c, c)
U = Intersect(m_a, m_b)
s_a = Segment(M_a, A)
s_b = Segment(B, M_b)
s_c = Segment(M_c, C)
S = Intersect(s_b, s_a)
h_c = OrthogonalLine(C, c)
h_a = OrthogonalLine(A, a)
h_b = OrthogonalLine(B, b)
H = Intersect(h_a, h_b)
Euler = Line(U, H)

Tool: Feuerbach-Kreis (command Feuerbach)
Gib 3 Punkte an
Input: A, B, C
Output: npc, N, poly1, M_b, M_c, M_a, H, E_1, E_2, E_3, F_1, F_2, F_3, c, a, b

poly1, c, a, b = Polygon(A, B, C)
M_b = Midpoint(b)
M_c = Midpoint(c)
M_a = Midpoint(a)
g = OrthogonalLine(B, b)
h = OrthogonalLine(C, c)
i = OrthogonalLine(A, a)
H = Intersect(i, g)
E_3 = Midpoint(H, C)
E_1 = Midpoint(H, A)
E_2 = Midpoint(H, B)
npc = Circle(M_c, M_a, M_b)
F_2 = Intersect(g, b)
F_3 = Intersect(h, c)
F_1 = Intersect(i, a)
N = Center(npc)