Nachdem die Funktionen die man im Internet zu dem Thema findet zumeist Vorzeichenfehler enthalten oder komplett falsch sind hier die korrekte Gleichung als ContourPlot:
![](https://latex.codecogs.com/gif.latex?X= (x-x_0) \cos (\omega)- (y-y_0) \sin (\omega))
![](https://latex.codecogs.com/gif.latex?Y = (x - x0) \sin(\omega) + (y - y0) \cos(\omega))
![](https://latex.codecogs.com/gif.latex?\frac{X^2}{a^2}+\frac{Y^2}{b^2}=r^2)
![Bild](http://yukterez.net/org/rotating.ellipse.gif)
Rotierend,
Koordinaten-Rotation, Coordiante-Rotation, Ellipse, Ellipsoid, Wolfram Mathematica Code
![Bild](http://yukterez.net/notizblock/sign/st37.png)
Code: Alles auswählen
plot = Manipulate[
x0 = 0; y0 = 0; (* Zentrum *)
r = 1; (* Radius *)
p = 1.2 r; (* Range *)
a = r; b = r/2; (* Seitenverhältnis *)
X = (x - x0) Cos[w] - (y - y0) Sin[w]; (* x Transform *)
Y = (x - x0) Sin[w] + (y - y0) Cos[w]; (* y Transform *)
ContourPlot[
{X^2/a^2 + Y^2/b^2 == r^2}, (* Standard Ellipsenfunktion *)
{x, -p, p}, {y, -p, p},
PlotRange -> {{-p, p}, {-p, p}},
Frame -> True], {w, 0, Pi}]
Export["ellipse.avi", plot, "FrameRate" -> 250]
![Bild](http://yukterez.net/org/rotating.ellipse.gif)
Rotierend,
Koordinaten-Rotation, Coordiante-Rotation, Ellipse, Ellipsoid, Wolfram Mathematica Code
![Bild](http://yukterez.net/notizblock/sign/st37.png)