用Mathematica画图

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

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

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

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

就算出数据，然后用plot.