Lineare Abbildungen Drehung
Author: Prof. Dr. Dörte Haftendorn

Alpha kann geändert werden.  Die Eingebaute Drehung wird mit der aus der Lin.Algebra verglichen.
Die Koeffizienten von A können beliebig  geändert werden.

Bild des E-Kreises

Eigenvektoren

Drehung geo

α = 0.5235987755982988 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
O = Intersect(xAxis, yAxis)
B = Point(xAxis)
c = Circle(O, B)
P = Point(c)
a21: sin(α)
a12: -sin(α)
a22: cos(α)
a11: cos(α)
x': a11 * x(P) + a12 * y(P)
y': a21 * x(P) + a22 * y(P)
C = Point(c)
E2': (a12, a22)
E2'': -(E2')
E1': (a11, a21)
E1'': -(E1')
W': (a11 + a12, a21 + a22) / sqrt(2.0)
d = Conic(E1'', E2', W', E1', E2'')
F_1, F_2 = Focus(d)
a = Line(F_2, F_1)
H_1 = Intersect(d, a, 1.0)
b = OrthogonalLine(O, a)
G_1, G_2 = Intersect(d, b)
EV_1 = (1, 0.5)
EV_2 = (0.5, -1)
W = (0.7071067811865475, 0.7071067811865475)
P'_1: (x', y')
H_2 = Intersect(d, a, 2.0)
e = false
f = false
u = Vector(O, E1')
v = Vector(O, E2')
A = (1.8732237501959117, 0.3064770248833873)
Vieleck1, o, p, a_1, w = Polygon(O, P, A, W)
O'_1 = Rotate(O, α, O)
P'_g = Rotate(P, α, O)
A'_1 = Rotate(A, α, O)
W'_1 = Rotate(W, α, O)
Vieleck1'_1, o', p', a', w' = Polygon(O'_1, P'_g, A'_1, W'_1)
g = true
O' = Rotate(O, α, O'_1)
A' = Rotate(A, α, O'_1)
W'_g = Rotate(W, α, O'_1)