Flächenverhältnis

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

Verändern Sie zuerst t.

s = 3.3 (slider from 1 to 20)
A = (0.2, 0.6)
B = (0.2, 1)
t = 3 (slider from 0 to 5, step 0.5)
At: ((x(A) * ℯ^(t / s)), y(A) / ℯ^(t / s))
Bt: ((x(B) * ℯ^(t / s)), y(B) / ℯ^(t / s))
C = (0.6, 1)
D = (0.6, 0.6)
Ct: ((x(C) * ℯ^(t / s)), y(C) / ℯ^(t / s))
Dt: ((x(D) * ℯ^(t / s)), y(D) / ℯ^(t / s))
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 + ""
l1 = Sequence(Sequence[Vector[(i / 5, j / 10), (i / 5 + i / 10 / s, j / 10 - j / 10 / s)], i, 1, 10], j, 1, 10)
v3: v1
A1: ((x(A) * ℯ^(1 / s)), y(A) / ℯ^(1 / s))
B1: ((x(B) * ℯ^(1 / s)), y(B) / ℯ^(1 / s))
D1: ((x(D) * ℯ^(1 / s)), y(D) / ℯ^(1 / s))
C1: ((x(C) * ℯ^(1 / s)), y(C) / ℯ^(1 / s))
v4, a1, d1, c1, b1 = Polygon(A1, D1, C1, B1)
E = (0.5446255144032925, 1.1040987654320984)
F = (0.6938710562414271, 1.1040987654320984)