UC知道用Mathematica画图
来源：百度知道 编辑：UC知道 时间：2024/09/24 01:49:15
用Mathematica5怎么画图啊？我想画一条摆线，不会用……帮帮忙啊
请把具体操作步骤发上来，我菜鸟一只，只会复制粘贴一下~
另外，我要是想再画出该摆线的一条切线，怎么弄？请给出步骤~
摆线 x=ra-rcosa y=-r+rsina a为参数角，r为常量
那切线怎么画上去呢？谢谢！
还有，图像坐标不太合适，太扁了，怎么修改呢？
就是随便一点的切线，我为了说明所列式子正确要用的辅助说明图。谢谢帮助！~
请把具体操作步骤发上来，我菜鸟一只，只会复制粘贴一下~
另外，我要是想再画出该摆线的一条切线，怎么弄？请给出步骤~
摆线 x=ra-rcosa y=-r+rsina a为参数角，r为常量
那切线怎么画上去呢？谢谢！
还有，图像坐标不太合适，太扁了，怎么修改呢？
就是随便一点的切线，我为了说明所列式子正确要用的辅助说明图。谢谢帮助！~
用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[
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后面方括号里的值，看你想要的点的切线。
很容易的，
进入帮助
然后在搜