Author: A. Nussbaumer
Date: 17 Februar 2013

G

G = 3.8 (slider from -3 to 7, step 0.1)
k = 1.3 (slider from -5 to 5, step 0.01)
A = Point(yAxis)
f(x, y) = k * (G - y)
Steigungsfeld = SlopeField(f)
lsg = Locus(f, A)
kurve = SolveODE(f, x(A), y(A), 8, 0.1)
g(x) = G
B = Intersect(g, yAxis)