Flächenverhältnis Polygon

\vec F = \frac{1}{s}\left(  \begin{array}{} x \ -y \end{array}  \right) \frac{1}{x^2+y^2}

s = 18 (slider from 1 to 20)
A = (0.1, 0)
B = (0.1, 0.3)
t = 3.3 (slider from 0 to 5, step 0.1)
At: (A * ((x(A))^(2) + (y(A))^(2) + (2 * t / s))^(1 / 2) / ((x(A))^(2) + (y(A))^(2))^(1 / 2))
Bt: (B * ((x(B))^(2) + (y(B))^(2) + (2 * t / s))^(1 / 2) / ((x(B))^(2) + (y(B))^(2))^(1 / 2))
C = (0.3, 0.3)
D = (0.3, 0)
Ct: (C * ((x(C))^(2) + (y(C))^(2) + (2 * t / s))^(1 / 2) / ((x(C))^(2) + (y(C))^(2))^(1 / 2))
Dt: (D * ((x(D))^(2) + (y(D))^(2) + (2 * t / s))^(1 / 2) / ((x(D))^(2) + (y(D))^(2))^(1 / 2))
v1, at, bt, ct, dt = Polygon(At, Bt, Ct, Dt)
v2, b, c, d, a = Polygon(B, C, D, A)
e: v1 / v2
Text2: "" + e + ""
f = CurveCartesian((((x(D) + (x(C) * u) - (x(D) * u)) * ((x(D) + (x(C) * u) - (x(D) * u))^(2) + (y(D) + (y(C) * u) - (y(D) * u))^(2) + (2 * t / s))^(1 / 2))) / ((x(D) + (x(C) * u) - (x(D) * u))^(2) + (y(D) + (y(C) * u) - (y(D) * u))^(2))^(1 / 2), ((y(D) + (y(C) * u) - (y(D) * u)) * ((x(D) + (x(C) * u) - (x(D) * u))^(2) + (y(D) + (y(C) * u) - (y(D) * u))^(2) + (2 * t / s))^(1 / 2) / ((x(D) + (x(C) * u) - (x(D) * u))^(2) + (y(D) + (y(C) * u) - (y(D) * u))^(2))^(1 / 2)), u, 0, 1)
g = CurveCartesian((((x(B) + (x(A) * u) - (x(B) * u)) * ((x(B) + (x(A) * u) - (x(B) * u))^(2) + (y(B) + (y(A) * u) - (y(B) * u))^(2) + (2 * t / s))^(1 / 2))) / ((x(B) + (x(A) * u) - (x(B) * u))^(2) + (y(B) + (y(A) * u) - (y(B) * u))^(2))^(1 / 2), ((y(B) + (y(A) * u) - (y(B) * u)) * ((x(B) + (x(A) * u) - (x(B) * u))^(2) + (y(B) + (y(A) * u) - (y(B) * u))^(2) + (2 * t / s))^(1 / 2) / ((x(B) + (x(A) * u) - (x(B) * u))^(2) + (y(B) + (y(A) * u) - (y(B) * u))^(2))^(1 / 2)), u, 0, 1)
h = CurveCartesian((((x(B) + (x(C) * u) - (x(B) * u)) * ((x(B) + (x(C) * u) - (x(B) * u))^(2) + (y(B) + (y(C) * u) - (y(B) * u))^(2) + (2 * t / s))^(1 / 2))) / ((x(B) + (x(C) * u) - (x(B) * u))^(2) + (y(B) + (y(C) * u) - (y(B) * u))^(2))^(1 / 2), ((y(B) + (y(C) * u) - (y(B) * u)) * ((x(B) + (x(C) * u) - (x(B) * u))^(2) + (y(B) + (y(C) * u) - (y(B) * u))^(2) + (2 * t / s))^(1 / 2) / ((x(B) + (x(C) * u) - (x(B) * u))^(2) + (y(B) + (y(C) * u) - (y(B) * u))^(2))^(1 / 2)), u, 0, 1)
i = CurveCartesian((((x(D) + (x(A) * u) - (x(D) * u)) * ((x(D) + (x(A) * u) - (x(D) * u))^(2) + (y(D) + (y(A) * u) - (y(D) * u))^(2) + (2 * t / s))^(1 / 2))) / ((x(D) + (x(A) * u) - (x(D) * u))^(2) + (y(D) + (y(A) * u) - (y(D) * u))^(2))^(1 / 2), ((y(D) + (y(A) * u) - (y(D) * u)) * ((x(D) + (x(A) * u) - (x(D) * u))^(2) + (y(D) + (y(A) * u) - (y(D) * u))^(2) + (2 * t / s))^(1 / 2) / ((x(D) + (x(A) * u) - (x(D) * u))^(2) + (y(D) + (y(A) * u) - (y(D) * u))^(2))^(1 / 2)), u, 0, 1)
l1_1 = Sequence(Sequence[Vector[(i / 10, j / 10), (i / 10 + (10 * i / s / (i^(2) + j^(2))), j / 10 + (10 * j / s / (i^(2) + j^(2))))], i, -10, 10], j, -5, 10)
E = (1.12025, 0.4795)
F = (1.2265, 0.4795)