Author: A. Nussbaumer
Date: 17 Februar 2013

A = (0, 1)
k = 1.5 (slider from -5 to 5, step 0.01)
f(x, y) = k
Steigungsfeld = SlopeField(f)
kurve = SolveODE(f, x(A), y(A), 5, 0.1)
lsg = Locus(f, A)