y

x

y'=-\sqrt{\frac{y}{x}}

ymax = 10 (slider from -10 to 15, step 1)
ymin = 0 (slider from -10 to 15, step 1)
xmax = 12 (slider from -10 to 15, step 1)
xmin = 0 (slider from -10 to 15, step 1)
rr = 0.5
mm = Sequence(Sequence[(-sqrt(yy / xx)), xx, xmin, xmax], yy, ymin, ymax)
phi = 0.7235987755982988
Richtungsfeld = Sequence(Sequence[Vector[(i - (rr * cos(atan(Element[Element[mm, j - ymin + 1], i - xmin + 1]))), j - (rr * sin(atan(Element[Element[mm, j - ymin + 1], i - xmin + 1])))), (i + (rr * cos(atan(Element[Element[mm, j - ymin + 1], i - xmin + 1]))), j + (rr * sin(atan(Element[Element[mm, j - ymin + 1], i - xmin + 1]))))], i, xmin, xmax], j, ymin, ymax)
A = (7.14, 2.46)
B = (4, 6)
C = Point(yAxis)
O = Intersect(xAxis, yAxis)
E = Point(xAxis)
F: (x(E), y(C))
v1, c, d, e, f_1 = Polygon(C, O, E, F)
g(x) = If[x^(1 / 2) - (x(A))^(1 / 2) - (y(A))^(1 / 2) < 0, ((-x^(1 / 2)) + (x(A))^(1 / 2) + (y(A))^(1 / 2))^(2), 0]
G: (13, 4)
H: (15, 4)
I = (16.200000000000014, 11.3)