Thursday, December 26, 2019

PolarPlot Options


T[n_,\[Theta]_,m_]:=Table[i-1+Cos[n*\[Theta]],{i,m}];
PPN[n_,m_,col1_,col2_]:=PolarPlot[Evaluate[T[n,\[Theta],m]],
{\[Theta],0,2Pi},PlotStyle->{RGBColor[col1],RGBColor[col2]},
Axes->False,ImageSize->400]
{PPN[12,2,"crimson","indigo"],PPN[24,6,"cyan","steelblue"]}



No comments:

Post a Comment