Here are instructions on how to use Mathematica for Calculus I:
Introductory Instructions:
Exp[x]
Pi
Sin[x]
– all other trigonometric functions are similar ArcSin[x]
– all other trigonometric functions are similar Abs[x]
Sqrt[x]
Infinity
Log[x]
Log[b, x]
<=
>=
Sinh[x]
– all other hyperbolic functions are similar ArcSinh[x]
– all other inverse hyperbolic functions are similarSHIFT
key and press ENTER
Algebra:
f[x_] := expression
, then use: f[a]
Clear[f]
expression /. x -> a
expression /. x -> {a1, a2, a3}
[where a1, a2, a3, etc. are different x-values]
N[expression, d]
f[x_] := Piecewise[{{function1, condition1},{function2, condition2}}, {x}]
Plot[expression, {x, xmin, xmax}]
PlotRange -> {ymin, ymax}
AxesOrigin -> {0, 0}
Plot[f[x], {x, xmin, xmax}]
Plot[Sign[x]*Abs[x]^(1/n), {x, xmin, xmax}]
Plot[{expression1, expression2, expression3}, {x, xmin, xmax}]
ContourPlot[expression1 == expression2, {x, xmin, xmax}, {y, ymin, ymax}, AxesOrigin -> {0, 0}]
Factor[expression]
Simplify[expression, var]
FullSimplify[expression, var]
Expand[expression]
Together[expression1 + expression2]
Solve[polynomial == 0, x, Reals]
NSolve[polynomial == 0, x, Reals]
Precalculus:
TrigExpand[expression]
FindRoot[expression == 0, {x, xval}]
Section 2.2:
Limit[expression, var -> a]
Limit[expression, var -> a, Direction -> 1]
Limit[expression, var -> a, Direction -> -1]
Section 2.5:
Limit[expression, var -> Infinity]
Section 2.6:
Limit[(f[a + h] - f[a])/h, h -> 0]
; OR
f'[a]
Section 2.7:
Limit[(f[x + h] - f[x])/h, h -> 0]
; OR
D[function, var]
f'[x]
Section 2.8:
D[function, {var, n}]
f''[x]
'
as needed
Plot[f'[x], {x, xmin, xmax}]
'
as needed
NSolve[f'[x] == 0, x, Reals]
NSolve[f''[x] == 0, x, Reals]
Section 1.7:
ParametricPlot[{x-function, y-function}, {t, tmin, tmax}]
Section 3.5:
equation1 = expression1 == expression2
, then SHIFT-ENTER
equation2 = equation1 /. y -> y[x]
, then SHIFT-ENTER
equation3 = D[equation2[[1]], x] == D[equation2[[2]], x]
, then SHIFT-ENTER
Solve[equation3, y'[x]]
, then SHIFT-ENTER
Section 4.5:
Limit[f'[x]/g'[x], x -> a]
Section 4.7:
SHIFT-ENTER
:recursiveNewton[f_, x_?NumberQ, previousX_: 0, tolerance_: (N[10^-20])] := If[Abs[x - previousX] > tolerance, Print[N[x, 20]]; recursiveNewton[f, N[x - f[x]/f'[x], 30], x, tolerance], x (*return result*)]
recursiveNewton[f, guess]
Section 4.8:
Integrate[f[x], x]
; OR
Integrate[expression, x]
Section 5.2
Sum[i, {i, 1, n}]
f[x_]:=function
dx=(b-a)/n
– where a is lower limit
of integration and b is upper limit of integrationxi=expression
sum = Sum[f[xi]*dx,{i,1,n}]
Limit[sum, n -> Infinity]
Section 5.2 & 5.3:
Integrate[f[x], {x, a, b}]
Integrate[expression, {x, a, b}]
NIntegrate
can be used to find an approximation of the definite integral
Section 5.4:
D[Integrate[f[t], {t, 1, g(x)}], x]
– where
g(x) is some function of xStill need to code: