用极坐标画一个五角星Mathematica选读.doc

有谁知道怎么用极坐标画一个五角星么，？ ParametricPlot[{6/25 Cos[t] + 4/25 Cos[3/2 t], 6/25 Sin[t] - 4/25 Sin[3/2 t]}, {t, 0, 4 Pi}, Axes - False]就知道参数方程有这个 PolarPlot[ 1/Cos[2 \[Pi]/5 - Mod[\[Theta], 4 \[Pi]/5]], {\[Theta], 0, 4 \[Pi]}] 萌新准备做一个迈克尔逊干涉条纹的动态模拟。函数如下I[x,y]=2 + 2 Cos[(4 \[Pi])/(632.8*10^-9)*7*10^-6*Cos[Sqrt[x^2 + y^2]/0.15] DensityPlot[2+2 Cos[(4Pi/(632.8*10^(-9)))*7*10^(-6)*Cos[(Sqrt[x^2+y^2])]/0.15],{x,-0.2,0.2},{y,-0.2,0.2}] Manipulate[DensityPlot[2+2 Cos[(4Pi/(n*10^(-9)))*7*10^(-6)*Cos[(Sqrt[x^2+y^2])]/0.15],{x,-0.06,0.06},{y,-0.06,0.06}],{n,400,760,10}] Manipulate[ DensityPlot[