Urs Füssler → AM Basel → 5. Obergeschoss → Poster R → ( « .., Fig. 4, .. » )

Deutsche Botschaft in Warschau*
Notation für Mathematica

\!\(a1\ = 1.065; \ a2\ = 1; a3\ = .93; \ a4\ = .77; \
c\ = 1;\[IndentingNewLine]
q\ = \ \@\(1\/2\ \((1 + \@5)\)\); \
n\ = \ 5; \ \[Beta]\ = 3\ Pi/4; \ \ n\ = \
5;\[IndentingNewLine]\[IndentingNewLine]
PolarPlot[\ {\((\(\@a1\%n\) \@\(c\^2\ Cos[2 \((\[CurlyPhi] + \[Beta])\)] + \
\@\(c^4\ Cos[2 \((\[CurlyPhi] + \[Beta])\)]\^2 + a1^4 - c^4\)\))\)
q^Cos[\[CurlyPhi] + \[Beta]], \((\(\@a1\%n\) \@\(c\^2\ Cos[2 \((\
\[CurlyPhi] + \[Beta])\)] - \@\(c^4\ Cos[2 \((\[CurlyPhi] + \[Beta])\)]\^2 + \
a1^4 - c^4\)\))\)
q^Cos[\[CurlyPhi] + \[Beta]], \((\(\@a2\%n\) \@\(c\^2\ Cos[2 \((\
\[CurlyPhi] + \[Beta])\)] + \@\(c^4\ Cos[2 \((\[CurlyPhi] + \[Beta])\)]\^2 + \
a2^4 - c^4\)\))\)
q^Cos[\[CurlyPhi] + \[Beta]], \((\(\@a2\%n\) \@\(c\^2\ Cos[2 \((\
\[CurlyPhi] + \[Beta])\)] - \@\(c^4\ Cos[2 \((\[CurlyPhi] + \[Beta])\)]\^2 + \
a2^4 - c^4\)\))\)
q^Cos[\[CurlyPhi] + \[Beta]], \((\(\@a3\%n\) \@\(c\^2\ Cos[2 \((\
\[CurlyPhi] + \[Beta])\)] + \@\(c^4\ Cos[2 \((\[CurlyPhi] + \[Beta])\)]\^2 + \
a3^4 - c^4\)\))\)
q^Cos[\[CurlyPhi] + \[Beta]], \((\(\@a3\%n\) \@\(c\^2\ Cos[2 \((\
\[CurlyPhi] + \[Beta])\)] - \@\(c^4\ Cos[2 \((\[CurlyPhi] + \[Beta])\)]\^2 + \
a3^4 - c^4\)\))\)
q^Cos[\[CurlyPhi] + \[Beta]], \((\(\@a4\%n\) \@\(c\^2\ Cos[2 \((\
\[CurlyPhi] + \[Beta])\)] + \@\(c^4\ Cos[2 \((\[CurlyPhi] + \[Beta])\)]\^2 + \
a4^4 - c^4\)\))\)
q^Cos[\[CurlyPhi] + \[Beta]], \((\(\@a4\%n\) \@\(c\^2\ Cos[2 \((\
\[CurlyPhi] + \[Beta])\)] - \@\(c^4\ Cos[2 \((\[CurlyPhi] + \[Beta])\)]\^2 + \
a4^4 - c^4\)\))\) q^Cos[\[CurlyPhi] + \[Beta]]}, \ {\[CurlyPhi], 0, 2\ Pi},
PlotPoints → 200, \ Ticks → Automatic, \ MaxBend → 6]\)