2013-12-20
展开全部
用ParametricPlot命令来画图。代码如下,
r = 1;
ParametricPlot[{r a - r Cos[a], -r + r Sin[a]}, {a, -2 Pi, 2 Pi}]
大小写不可搞错。已测试,直接拷贝到Mathematica窗口按Shift+Enter运行就是了。
r赋值为几都可以,形状不变的。
注意“{a, -2 Pi, 2 Pi}”给出了参数的取值范围。楼主可以试着修改。
Pi在Mathematica中代表圆周率π。
默认的坐标是黄金分割比例。加一个命令可以调比例,如
r = 1;
ParametricPlot[{r a - r Cos[a], -r + r Sin[a]}, {
a, -2 Pi, 2 Pi}, AspectRatio -> 1]
"AspectRatio"后面的数表示高宽比例,越大则图形越瘦长。
你想画哪一点的切线?算出来参数方程之后再画图就是了。如果你不会告诉我在哪一点画切线我再帮你画。
真是懒,算了算了,帮人帮到底。
切线方程我也帮你算了,这样以下两个就是你要的图和切线图,
fig1 := ParametricPlot[{a - Cos[a], -1 + Sin[<br> a]}, {a, -2 Pi, 2 Pi}, AspectRatio -> 1];
f[a_] := Plot[Cos[a]/(1 + Sin[a])(x - a + Cos[a]) - 1 + Sin[a], {x, -10, 10}];
首先运行这两个式子。然后运行下面这个式子可以看图和切线,比如
Show[fig1, f[2]];
是在一张图上同时画出图形和在x=2处的切线。你可以自己调整f后面方括号里的值,看你想要的点的切线。
r = 1;
ParametricPlot[{r a - r Cos[a], -r + r Sin[a]}, {a, -2 Pi, 2 Pi}]
大小写不可搞错。已测试,直接拷贝到Mathematica窗口按Shift+Enter运行就是了。
r赋值为几都可以,形状不变的。
注意“{a, -2 Pi, 2 Pi}”给出了参数的取值范围。楼主可以试着修改。
Pi在Mathematica中代表圆周率π。
默认的坐标是黄金分割比例。加一个命令可以调比例,如
r = 1;
ParametricPlot[{r a - r Cos[a], -r + r Sin[a]}, {
a, -2 Pi, 2 Pi}, AspectRatio -> 1]
"AspectRatio"后面的数表示高宽比例,越大则图形越瘦长。
你想画哪一点的切线?算出来参数方程之后再画图就是了。如果你不会告诉我在哪一点画切线我再帮你画。
真是懒,算了算了,帮人帮到底。
切线方程我也帮你算了,这样以下两个就是你要的图和切线图,
fig1 := ParametricPlot[{a - Cos[a], -1 + Sin[<br> a]}, {a, -2 Pi, 2 Pi}, AspectRatio -> 1];
f[a_] := Plot[Cos[a]/(1 + Sin[a])(x - a + Cos[a]) - 1 + Sin[a], {x, -10, 10}];
首先运行这两个式子。然后运行下面这个式子可以看图和切线,比如
Show[fig1, f[2]];
是在一张图上同时画出图形和在x=2处的切线。你可以自己调整f后面方括号里的值,看你想要的点的切线。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |