用极坐标画一个五角星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])/(*10^-9)*7*10^-6*Cos[Sqrt[x^2 + y^2]/]
DensityPlot[2+2 Cos[(4Pi/(*10^(-9)))*7*10^(-6)*Cos[(Sqrt[x^2+y^2])]/],{x,-,},{y,-,}]
Manipulate[DensityPlot[2+2 Cos[(4Pi/(n*10^(-9)))*7*10^(-6)*Cos[(Sqrt[x^2+y^2])]/],{x,-,},{y,-,}],{n,400,760,10}]
Manipulate[
DensityPlot[
2 + 2 Cos[(4 \[Pi])/(n*10^-9)*7*10^-6*
Cos[Sqrt[x^2 + y^2]/]], {x, -, }, {y, -,
}], {n, 400, 760, 10}]
DensityPlot[
2 + 2 Cos[(4 \[Pi])/(*10^-9)*7*10^-6*
Cos[Sqrt[x^2 + y^2]/]], {x, -, }, {y, -, }]
DensityPlot[
2 + 2 Cos[(4 \[Pi])/(*10^-9)*7*10^-6*
Cos[Sqrt[x^2 + y^2]/]], {x, -, }, {y, -, }]
播放中图像错误是因为在播放两帧之间时间太短，电脑来不及进行正确计算，所以图像模糊，播放停止后电脑进行较为正确计算，图像就恢复了
处理方法是提前绘制好图像然后用ListAnimate播放，代码以下
movies = Table[
DensityPlot[
2 + 2 Cos[(4 \[Pi])/(n*10^-9)*7*10^-6*
Cos[Sqrt[x^2 + y^2]/]], {x, -, }, {y, -,
}], {n, 400, 760, 10}];
ListAnimate[movies]
另外因为你这个函数震荡比较严重，所以默认绘图参数效果不是很好，增加PlotPoints或MaxRecursion选项 能够提升绘图质量，效果以下，但对应绘图时间也会大大增加，你能够尝试一下，然后自己取舍【图片】