Fadenkunst
Author: Markus Hohenwarter
Date: Januar 2008

1) Verändern Sie die Anzahl der Linien ("Fäden") mit dem Schieberegler n. Die Randkurve ist dabei eine quadratische Bézierkurve.
2) Verwenden Sie das Kontrollkästchen, um auch die entsprechende Parabel anzuzeigen. Wie kann der Scheitelpunkt dieser Parabel gefunden werden?

Parabel anzeigen

A = (0.68, 3.24)
B = (0.06, -2.3000000000000003)
a = Segment(A, B)
C = (6.94, -0.32)
b = Segment(B, C)
n = 16 (slider from 3 to 30, step 1)
list1 = Sequence(A + k / n * (B - A), k, 1, n)
list2 = Sequence(B + k / n * (C - B), k, 1, n)
list3 = Sequence(Segment[Element[list1, k], Element[list2, k]], k, 1, n - 1)
c = Segment(C, A)
D = Midpoint(c)
d = Segment(B, D)
E = Midpoint(d)
par = Par3P(C, E, A)
e = false

Tool: Par3P
Parabel durch3 Punkte
Input: A, B, C
Output: q

H = Midpoint(A, C)
b = Line(B, H)
c = Line(C, b)
d = Line(A, b)
D: B - Vector[B, H]
f = Line(D, C)
h = OrthogonalLine(D, b)
E = Intersect(c, h)
F_1 = Intersect(d, h)
i = Line(F_1, C)
j = Line(E, A)
S = Intersect(i, j)
k = Line(S, b)
r = OrthogonalLine(S, k)
G = Intersect(f, r)
m = OrthogonalLine(G, f)
F = Intersect(k, m)
H_1: S - Vector[S, F]
l = OrthogonalLine(H_1, k)
q = Parabola(F, l)