Question

用Mathematica画图

用Mathematica5怎么画图啊？我想画一条摆线，不会用……帮帮忙啊
请把具体操作步骤发上来，我菜鸟一只，只会复制粘贴一下~
另外，我要是想再画出该摆线的一条切线，怎么弄？请给出步骤~
摆线 x=ra-rcosa y=-r+rsina a为参数角，r为常量
那切线怎么画上去呢？谢谢！
还有，图像坐标不太合适，太扁了，怎么修改呢？
就是随便一点的切线，我为了说明所列式子正确要用的辅助说明图。谢谢帮助！~

Answer 1

用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后面方括号里的值，看你想要的点的切线。

Answer 2

很容易的，
进入帮助
然后在搜索条里输入
plot

然后就有样例程序了
粘贴过来就可以用。

Answer 3

Plot[{函数},{变量范围}]，切线只能用算法~~~
坐标用show函数的选项里 加上PlotRange->All试一下

Answer 4

就算出数据，然后用plot.