【Mathematica】函数性态的观察

最新推荐文章于 2024-01-13 11:11:29 发布

Teddy van Jerry

最新推荐文章于 2024-01-13 11:11:29 发布

阅读量542

点赞数

分类专栏：【Mathematica】文章标签： mathematica 数学 latex

本文链接：https://blog.csdn.net/weixin_50012998/article/details/110729035

版权

【Mathematica】专栏收录该内容

9 篇文章 0 订阅

订阅专栏

版本：Mathematica 12.1

题目

已知函数
$f(x)=\frac{1}{x^2+2x+c}\ (-5\leqslant x \leqslant 4) \text{ ,}$

作出并比较当 $c$ 分别取 $- 1, 0, 1, 2, 3$ 时的图形，并从图上观察极值点、驻点、单调区间、凹凸区间以及渐近线。

代码

f[x_] := 1/(x^2 + 2 x + c);

c = -1;
Plot[f[x], {x, -5, 4},
 GridLines -> Automatic,
 Frame -> True,
 PlotStyle -> RGBColor[1, 0, 0],
 PlotLabel -> "A Graph of f[x], c = -1"]
Plot[f'[x], {x, -5, 4},
 GridLines -> Automatic,
 Frame -> True,
 PlotStyle -> RGBColor[1, 0, 0],
 PlotLabel -> "A Graph of f'[x], c = -1"]
Plot[f''[x], {x, -5, 4},
 GridLines -> Automatic,
 Frame -> True,
 PlotStyle -> RGBColor[1, 0, 0],
 PlotLabel -> "A Graph of f''[x], c = -1"]

c = 0;
Plot[f[x], {x, -5, 4},
 GridLines -> Automatic,
 Frame -> True,
 PlotStyle -> RGBColor[1, 0, 0],
 PlotLabel -> "A Graph of f[x], c = 0"]
Plot[f'[x], {x, -5, 4},
 GridLines -> Automatic,
 Frame -> True,
 PlotStyle -> RGBColor[1, 0, 0],
 PlotLabel -> "A Graph of f'[x], c = 0"]
Plot[f''[x], {x, -5, 4},
 GridLines -> Automatic,
 Frame -> True,
 PlotStyle -> RGBColor[1, 0, 0],
 PlotLabel -> "A Graph of f''[x], c = 0"]

c = 1;
Plot[f[x], {x, -5, 4},
 GridLines -> Automatic,
 Frame -> True,
 PlotStyle -> RGBColor[1, 0, 0],
 PlotLabel -> "A Graph of f[x], c = 1"]
Plot[f'[x], {x, -5, 4},
 GridLines -> Automatic,
 Frame -> True,
 PlotStyle -> RGBColor[1, 0, 0],
 PlotLabel -> "A Graph of f'[x], c = 1"]
Plot[f''[x], {x, -5, 4},
 GridLines -> Automatic,
 Frame -> True,
 PlotStyle -> RGBColor[1, 0, 0],
 PlotLabel -> "A Graph of f''[x], c = 1"]

c = 2;
Plot[f[x], {x, -5, 4},
 GridLines -> Automatic,
 Frame -> True,
 PlotStyle -> RGBColor[1, 0, 0],
 PlotLabel -> "A Graph of f[x], c = 2"]
Plot[f'[x], {x, -5, 4},
 GridLines -> Automatic,
 Frame -> True,
 PlotStyle -> RGBColor[1, 0, 0],
 PlotLabel -> "A Graph of f'[x], c = 2"]
Plot[f''[x], {x, -5, 4},
 GridLines -> Automatic,
 Frame -> True,
 PlotStyle -> RGBColor[1, 0, 0],
 PlotLabel -> "A Graph of f''[x], c = 2"]

c = 3;
Plot[f[x], {x, -5, 4},
 GridLines -> Automatic,
 Frame -> True,
 PlotStyle -> RGBColor[1, 0, 0],
 PlotLabel -> "A Graph of f[x], c = 3"]
Plot[f'[x], {x, -5, 4},
 GridLines -> Automatic,
 Frame -> True,
 PlotStyle -> RGBColor[1, 0, 0],
 PlotLabel -> "A Graph of f'[x], c = 3"]
Plot[f''[x], {x, -5, 4},
 GridLines -> Automatic,
 Frame -> True,
 PlotStyle -> RGBColor[1, 0, 0],
 PlotLabel -> "A Graph of f''[x], c = 3"]

分析

我也很无奈，放在For循环里就不能Plot了。所以就枚举了。

界面

图片效果

举一反三

HJ 高等数学分析I 习题课九 1(1)(2)
(1) 曲线 $y=\frac{x^3}{(x-1)^2}$ 的下凸曲间是_____，拐点是_____，渐近线方程是__________；
(2) 曲线 $y=x^2(x-1)^2(x-2)^2$ 的拐点有_____个（要简要说明理由）.

代码：

f[x_] := x^3/(x - 1)^2;
Plot[f[x], {x, -5, 5}, GridLines -> Automatic, Frame -> True, 
 PlotStyle -> RGBColor[1, 0, 0], PlotLabel -> "A Graph of f[x]"]
Plot[f'[x], {x, -5, 5}, GridLines -> Automatic, Frame -> True, 
 PlotStyle -> RGBColor[1, 0, 0], PlotLabel -> "A Graph of f'[x]"]
Plot[f''[x], {x, -5, 5}, GridLines -> Automatic, Frame -> True, 
 PlotStyle -> RGBColor[1, 0, 0], PlotLabel -> "A Graph of f''[x]"]

g[x_] := x^2*(x - 1)^2*(x - 2)^2;
Plot[g[x], {x, -0.5, 2.5}, GridLines -> Automatic, Frame -> True, 
 PlotStyle -> RGBColor[1, 0, 0], PlotLabel -> "A Graph of g[x]"]
Plot[g'[x], {x, -0.5, 2.5}, GridLines -> Automatic, Frame -> True, 
 PlotStyle -> RGBColor[1, 0, 0], PlotLabel -> "A Graph of g'[x]"]
Plot[g''[x], {x, -0.5, 2.5}, GridLines -> Automatic, Frame -> True, 
 PlotStyle -> RGBColor[1, 0, 0], PlotLabel -> "A Graph of g''[x]"]