a bzw. b

Flächeninhalt Trapez [·10]

A = (-9.197143569294624, -0.10324329680034088)
X = (-2, 0)
f = Ray(A, X)
g = OrthogonalLine(A, f)
D_{1} = Point(g)
a_S = 7.6 (slider from 0 to 10)
c = Circle(A, a_S)
B = Intersect(c, f, 1)
h_{1} = Segment(A, B)
h_S = 6.3 (slider from 0 to 10, step 0.1)
d = Circle(A, h_S)
P = Intersect(d, g, 2)
i = OrthogonalLine(B, h_{1})
j = OrthogonalLine(P, i)
E = Point(yAxis)
e = Circle(E, a_S)
A_{1} = Intersect(e, xAxis, 2)
k = OrthogonalLine(A_{1}, xAxis)
s = Circle(A_{1}, (a_S * h_S / 10))
t = Circle(E, h_S)
H_{1} = Intersect(t, xAxis, 2)
n = OrthogonalLine(H_{1}, xAxis)
e_1 = Circle(H_{1}, (a_S * h_S / 10))
l = Line(P, f)
D = Point(l)
b_S = 3.5 (slider from 0 to 10)
p = Circle(D, b_S)
C_{1}, C = Intersect(p, l)
v1, a, b_1, b, d_1 = Polygon(A, B, C, D)
q = OrthogonalLine(D, a)
h_{2} = Line(A, B)
r = OrthogonalLine(D, a)
G = Intersect(h_{2}, r)
h = Segment(D, G)
Punktv1 = PointIn(v1)
c_1 = Circle(E, b_S)
F, B_{1} = Intersect(c_1, xAxis)
FI = Area(A, B, C, D)
F_a(x) = If[x > 0, ((1 / 10 * (x + b_S) / 2) * h_S)]
F_h(x) = If[x > 0, ((1 / 10 * (a_S + b_S) / 2) * x)]
F_b(x) = If[x > 0, ((1 / 10 * (a_S + x) / 2) * h_S)]
m = OrthogonalLine(A_{1}, xAxis)
A_v = Intersect(F_a, m)
f_1 = Segment(A_v, A_{1})
g_1 = OrthogonalLine(B_{1}, xAxis)
B_v = Intersect(F_b, g_1)
i_1 = Segment(B_v, B_{1})
j_1 = OrthogonalLine(H_{1}, xAxis)
Textv1: "Fläche " + (Name[A]) + "" + (Name[B]) + "" + (Name[C]) + "" + (Name[D]) + " = " + v1 + ""
k_1 = OrthogonalLine(H_{1}, xAxis)
H = Intersect(F_h, k_1)
l_1 = Segment(H, H_{1})