作业帮用Mathematica画图
来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/05/17 00:22:34
用Mathematica画图
用Mathematica5怎么画图啊?我想画一条摆线,
请把具体操作步骤发上来，我菜鸟一只，只会复制粘贴一下~
另外，我要是想再画出该摆线的一条切线，怎么弄？
摆线 x=ra-rcosa y=-r+rsina a为参数角，r为常量
那切线怎么画上去呢？
还有，图像坐标不太合适，太扁了，怎么修改呢？
就是随便一点的切线，我为了说明所列式子正确要用的辅助说明图。
用Mathematica5怎么画图啊?我想画一条摆线,
请把具体操作步骤发上来，我菜鸟一只，只会复制粘贴一下~
另外，我要是想再画出该摆线的一条切线，怎么弄？
摆线 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后面方括号里的值,看你想要的点的切线.
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后面方括号里的值,看你想要的点的切线.