Ortskurve

f(x)=3x^2-\frac{3}{k}x^3

A = Point(xAxis)
f(x) = 3.0 * x^(2.0) - 3.0 / x(A) * x^(3.0)
f'(x) = f'(x)
B, C = Intersect(f', xAxis)
a = Line(C, yAxis)
D = Intersect(f, a)
Ortslinie1 = Locus(D, A)
b = Line(B, yAxis)
E = Intersect(f, b)
Ortslinie2 = Locus(E, A)
c = false
Text1 = Text(" A  kann verschoben werden.")
Text3 = Text("k ist die x-Koordinate von A")