Re: Animation

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,

Manipulate[
With[{\[Epsilon] = 0.01},
Show[
PolarPlot[
a Cot[\[Theta]], {\[Theta], -2 \[Pi] + \[Epsilon], -\[Epsilon] - \
\[Pi]}, PlotRange -> {{-3, 3}, {-3, 3}}],
PolarPlot[
a Cot[\[Theta]], {\[Theta], \[Pi] + \[Epsilon],
2 \[Pi] - \[Epsilon]}, PlotRange -> {{-3, 3}, {-3, 3}}]]
], {a, 0.5, 2.5}]

sollte es wohl machen.

Gruss
Jens

Andreas Rychen wrote:
> Liebe Mathematica Fans
>
> Ich finde die Animationsmöglichkeiten in der Version 6.0.2.0 
> sensationell. Neue Funktionen führen zu neuen Problemen.
>
> Im beiliegenden Notebook „Kappa.nb“ ist eine Kurve dargestellt mit 
> störenden und falschen Verbindungen. Der Befehl „Manipulate“ 
> funktioniert. Im Notebook „KappaNeu.nb“ habe ich die Verbindungen 
> eliminiert. Gibt es eine Möglichkeit, die beiden Animationen zu 
> vereinigen?
>
> Mit freundlichen Grüssen
>
> Andreas Rychen