Lot auf AB

Die Krümmung der Bezierkurve in A ist gegeben 
durch

\frac{2}{3}\frac{F(ABB'C)}{l(AB)^3}

Dies ist umgekehrt proportional zur Länge des 
Vektors AB. Damit lässt sich leicht der Krümmung-
kreis zeichnen. Wenn man den Vektor AB in gleicher
Richtung verdoppelt, kann man schön den Effekt sehen.

=\frac{4}{3}\frac{F(ABC}{l(AB)^3}=\frac{2}{3}\frac{l(AB) k}{l(AB)^3}=\frac{2}{3}\frac{k}{l(AB)^2}

E = (20.649529508928588, 9.609578718087704)
B = (3.9430028472572896, 11.945643676902444)
A = (-0.14739970950967282, 2.6996295642104413)
u = Vector(A, B)
j = Line(E, u)
C = Point(j)
D = (11.9654, 4.2376)
xf(x) = (x(A) * (1 - x)^(3)) + (((3 * x(B)) * (1 - x)^(2)) * x) + (((3 * x(C)) * (1 - x)) * x^(2)) + (x(D) * x^(3))
yf(x) = (y(A) * (1 - x)^(3)) + (((3 * y(B)) * (1 - x)^(2)) * x) + (((3 * y(C)) * (1 - x)) * x^(2)) + (y(D) * x^(3))
a = CurveCartesian(xf(t), yf(t), t, 0, 1)
v = Vector(A, C)
f = OrthogonalLine(A, u, xOyPlane)
abstandAB = Distance(A, B)
TextAB: Name[A] + (Name[B]) + " = " + abstandAB
d1, b, a_1, c = Polygon(A, C, B)
Textd1: "Fläche von  " + (Name[A]) + (Name[C]) + (Name[B]) + " = " + d1
Punktd1_1 = PointIn(d1)
Punktd1 = PointIn(d1)
r: (3 * abstandAB^(3) / 4 / d1)
d = Circle(A, r)
M_k, F = Intersect(f, d)
e = Circle(M_k, A, xOyPlane)
A' = Translate(A, v)
g = Segment(B, C)
h = Segment(C, D)
d2, b_2, a_3, c_2 = Polygon(A, C, B)
i = Line(C, u)
G = Intersect(j, f)
k = Segment(A, G)