WFU

2018/3/4

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} ]


系列文章