Mathematica绘制函数图像—极坐标绘图( 二 ) _电脑

代码不多诠释。 Mathematica会主动地付与两条曲线以分歧的颜色。

5 PlotStyle给出曲线的外形模样，包罗颜色、粗细水平、虚实线、透明度等等的内容。给出一条“三叶玫瑰线” ，要求曲线是蓝色的粗线，图形是500×500像素的大小，代码如下：
PolarPlot[Sin[3 x + 90 Degree], {x, 0, 2 Pi}, PlotStyle -> {Blue, Thick}, ImageSize -> {500, 500}]

6 把上图曲线的粗度要量化为0.02 ，可以用Thickness 。代码如下：
PolarPlot[Sin[3 x + 90 Degree], {x, 0, 2 Pi}, PlotStyle -> {Blue, Thickness[0.02]}, ImageSize -> {500, 500}]

7 把两种“三叶玫瑰线”的线粗都变为0.02 ，且别离为红色和绿色。注重代码里的列表之间是前后对应的：
PolarPlot[{Sin[3 x], Cos[3 x]}, {x, 0, 2 Pi},
PlotStyle -> {{Green, Thickness[0.02]}, {Red, Thickness[0.02]}},
ImageSize -> {500, 500}]

8 对于“三叶玫瑰线”的分歧的曲线类型，用列表加以比力：
Table[PolarPlot[Cos[3 \[Theta]],{\[Theta],0,2 Pi},
PlotStyle->ps],
{ps,{Red,Thick,Dashed,Directive[Red,Thick]}}]
运行今后，是如许：

9   把“蝴蝶”曲线酿成红色，粗度0.03 ，看看结果若何！
  代码是：
PolarPlot[Exp[Cos[x]] - 2 Cos[4 x] + Sin[x/12]^5, {x, 0, 2 Pi},
PlotStyle -> {Red, Thickness[0.03]}]
  和
PolarPlot[Exp[Cos[x]] - 2 Cos[4 x] + Sin[x/12]^5, {x, 0, 20 Pi},
PlotStyle -> {Red, Thickness[0.03]}]
  第一副还凑合，第二幅就没法看了，所以，曲线的粗度不克不及太率性。

Mathematica绘制函数图像—极坐标绘图( 二 )

猜你喜欢