x_R bzw. y_R

Flächeninhalt Rechteck

A = (-7.736000846590317, -0.040805315162330456)
X = (-2, 0)
f = Ray(A, X)
g = OrthogonalLine(A, f)
D_{1} = Point(g)
x_R = 5.8 (slider from 0 to 10)
c = Circle(A, x_R)
B = Intersect(c, f, 1)
h = Segment(A, B)
y_R = 8.1 (slider from 0 to 10)
d = Circle(A, y_R)
D = Intersect(d, g, 2)
i = OrthogonalLine(B, h)
j = OrthogonalLine(D, i)
C = Intersect(i, j)
v1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
Textv1: "Fläche von  " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + v1
Punktv1 = PointIn(v1)
E = Point(yAxis)
e = Circle(E, x_R)
F = Intersect(e, xAxis, 2)
k = OrthogonalLine(F, xAxis)
p = Circle(F, ((((A * B) * C) * D)) / 10)
q = Circle(F, (((A * B) * C) * D))
r = Circle(F, (((A * B) * C) * D))
l: (((A * B) * C) * E)
s = Circle(F, (x_R * y_R / 10))
H, FI_x = Intersect(s, k)
m = Segment(FI_x, F)
t = Circle(E, y_R)
I = Intersect(t, xAxis, 2)
n = OrthogonalLine(I, xAxis)
e_1 = Circle(I, (x_R * y_R / 10))
J, FI_y = Intersect(e_1, n)
f_1 = Segment(FI_y, I)
Ortslinie1 = Locus(FI_x, x_R)
Ortslinie2 = Locus(FI_y, y_R)
a = Line(FI_x, xAxis)
FI = Intersect(a, yAxis)
b = Segment(FI, FI_x)
h_1 = Segment(FI, FI_y)