y

x

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

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(xx / yy), 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 = (8, 4)
B = (5.76, 6.88)
g(x) = If[x^(3 / 2) - (x(A))^(3 / 2) + (y(A))^(3 / 2) > 0, (x^(3 / 2) - (x(A))^(3 / 2) + (y(A))^(3 / 2))^(2 / 3)]
f(x) = If[x^(3 / 2) - (x(B))^(3 / 2) + (y(B))^(3 / 2) > 0, (x^(3 / 2) - (x(B))^(3 / 2) + (y(B))^(3 / 2))^(2 / 3)]
C = Point(yAxis)
D = Intersect(xAxis, yAxis)
E = Point(xAxis)
F = (15.8, 13.3)
v1, c, d, e, f_1 = Polygon(C, D, E, F)
G = (13.036, 3.264)
H = (14.736, 3.264)
h: y = x