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)
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 = (9.247219512195144, 3.538243902439026)
B = (4.447219512195141, 7.343121951219517)
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]
f(x) = If[x^(1 / 2) - (x(B))^(1 / 2) + (y(B))^(1 / 2) > 0, (x^(1 / 2) - (x(B))^(1 / 2) + (y(B))^(1 / 2))^(2), 0]
D = (13.400878048780488, 3.748439024390244)
G = (15.100878048780487, 3.748439024390244)
H: (13, 13)
h = Ray(O, H)