用极坐标画一个五角星Mathematica.docx

: .
有谁知道怎么用极坐标画一个五角星么，？
ParametricPlot[{6/25 Cos[t] + 4/25 Cos[32 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])/(*10A-9)*7*10A-6*Cos[Sqrt[xA2 + yA2]/ ]
DensityPlot[2+2
Cos[(4Pi/(*10A(-9)))*7*10A(-6)*Cos[(Sqrt[xA2+yA2])]/],{x ,-,},{y,-,}]
- -
Manipulate[DensityPlot[2+2
Cos[(4Pi/(n*10A(-9)))*7*10A(-6)*Cos[(Sqrt[xA2+yA2])]/],{x,-0.
06,},{y,-,}],{n,400,760,10}]
IP]
3 口
F| ■ B ■ I ■ ti n g a ■ ■ | ti a ■ g ■ ■ ■ r| ■ a a |
02 - -
- .
w .
-'-'^； ,•
-DJM - -DJ0Q OJ02
Manipulate]
DensityPlot[
2 + 2 Cos[(4 \[Pi])/(n*10A-9)*7*10A-6*
Cos[Sqrt[x，2 + y，2]/ ]], {x, -, }, {y, -, }], {n, 400, 760, 10}]
|O
DensityPlot[
2 + 2 Cos[(4 \旧])/(*10人-9)*7*10人-6*
Cos[Sqrt[xA2 + y，2]/ ]], {x, -, }, {y, -, }]
-0 02
ini-l
：
0 04
fl 00
- -。。4 -Ofl：
DensityPlot[
2 + 2 Cos[(4 \旧])/(*10人-9)*7*10人-6*
Cos[Sqrt[xA2 + yA2]/ ]], {x, -, }, {y, -, }]
-
播放中图像错误是因为在播放的两帧之间时间太短， 电脑来不及进行精确的计算， 所以图像
模糊，播放停止后电脑进行较为精确的计算，图像就恢复了
解决方法是提前绘制好图像然后用 ListAnimate播放，代码如下