WFU
Mathematica 解 107 指考數甲 #8
Remove["Global`*"];
Plot[ Abs[x]/x, {x, -1, 1} ]
Plot[ { x Abs[x]/x, x^2 Abs[x]/x }, {x, -1, 1} ]
Plot[ (x + 1) Abs[x]/x, {x, -1, 1} ]
Plot[ Sin[x ] Abs[x]/x, {x, -1, 1} ]
Plot[ Cos[x ] Abs[x]/x, {x, -1, 1} ]
(*------- 8-1 ----------------*)
Plot[ (Abs[x]/x)^2, {x, -1, 1} , PlotRange -> {0, 2} ]
Limit[ (Abs[x]/x)^2, x -> 0 ]
(*------- 8-2 ----------------*)
f[x_] = x;
Plot[ f[x] Abs[x]/x, {x, -1, 1} ]
(*------- 8-3 ----------------*)
f[x_] = x;
Plot[ (f[x] + 1) Abs[x]/x, {x, -1, 1} ]
(*------- 8-4 ----------------*)
f[x_] = x;
Plot[ f[x], {x, -1, 1} ]
(*------- 8-5 ----------------*)
f[x_] = x;
Plot[ f[x]^2 , {x, -1, 1} ]
系列文章
