2 + 4

[2 + 8]

7 + (2 + 7)

Sin[2]

N[Sin[2]]

Log[100]

% // N

Log[10, 100] // N

ArcTan[2]

N[ArcTan[2]]

%4 + 2

(((2^5.3) - (34^(1/2.3)))/((2/4.5)))

(∂_x) (x*x*x*x)

(∂_(x, x))(x^4)

(∂_(x, y))(x*x*y*y + 3*x*y)

∫Sin[x] \[DifferentialD]x

∫(1/(Sqrt[1 + (x^2)])) \[DifferentialD]x

(∫_0^5) (x^2) \[DifferentialD]x

(∫_(-∞)^∞) (E^(-(x^2))) \[DifferentialD]x

(∫_(-∞)^∞) Cos[x]/(1 + 
              (x^2)) \[DifferentialD]x

(∑_(n = 1)^10) n

(∑_(n = 1)^∞) (1/(n^2))

(∑_(n = 2)^∞) (1/(n^2))

Plot[x*x, {x, -2, 2}]

Plot[x*x, {x, -2, 2}, PlotRange -> {0, 2}]

Plot[x*x, {x, -2, 2}, PlotLabel -> "tom"]

Solve[x*x == 9, x]

Solve[x*x == b*b, x]

Solve[(x^6) - 1 == 0, x]

Solve[(E^(-3*x)) - x*x, x]

Solve[(E^(-3*x)) - x*x == 0, x]

NSolve[(E^(-3*x)) - x*x == 0, x]

Series[(E^x), {x, 0, 8}]

Series[(E^(b*x)), {x, 0, 8}]

m = {{2, 4, -3}, {-3, -1, 5}, {-1, 6, 1}}

v = {{-4}, {2}, {-7}}

Inverse[m] . v

Inverse[m]*v

DSolve[y'[x] == 3*y[x], y[x], x]

DSolve[{y'[x] == 3*y[x], y[0] == 2}, y[x], 
      x]

NDSolve[{y'[x] == 3*y[x], y[0] == 2}, 
      y, {x, 0, 5}]

y[2] /. %40

2*(E^(3*2))

% // N

Plot[Evaluate[y[x] /. %40], {x, 0, 4}]

Plot[Evaluate[y[x] /. %40], {x, 0, 7}]

tom[x_, y_] := Sin[x] + Sin[y]

tom[3, 6]

% // N

Plot[tom[3, z], {z, 0, 10}]

Plot3D[tom[x, y], {x, 0, 10}, {y, 0, 10}]