astroida

In[189]:=

astroid[n_, a_, b_][t_] := {a * Cos[t]^n, b * Sin[t]^n}

In[190]:=

ParametricPlot[astroid[3, 8/3, 8/3][t], {t, -Pi, Pi}, PlotStyle {Hue[1], AbsoluteThickness[1]}, AspectRatioAutomatic, Ticks {{-8/3, 8/3}, {-8/3, 8/3}}]

[Graphics:../HTMLFiles/index_136.gif]

Out[190]=

⁃Graphics⁃

In[191]:=

RowBox[{ParametricPlot, [, RowBox[{RowBox[{{, RowBox[{RowBox[{RowBox[{astroid, [, RowBox[{3, , ... ox[{-, 1.3}], ,, 1.5}], }}], ,, RowBox[{{, RowBox[{RowBox[{-, 1.1}], ,, 1.3}], }}]}], }}]}]}], ]}]

[Graphics:../HTMLFiles/index_139.gif]

Out[191]=

⁃Graphics⁃

Created by Mathematica  (April 30, 2004)