3 + 5

57.1^100

(57.1^100)

156/7

(156/7)

N[%]

N[%%, 10]

N[%%%, 100]

a = 156/7

N[a, 25]

Pi

N[Pi]

N[Pi, 100]

Sqrt[2]

a = (Sqrt[2])

N[a]

a // N

N[a, 100]

2*N[a, 100]

E

N[E, 50]

I

N[I]

I^2

Sqrt[-1]

5!

100!

Prime[1]

Prime[200]

Prime[10^9]

Prime[10^11]

a = 5; b = c = 10;
a*b*c

a b c

Plot[Sin[x], {x, 0, 2 Pi}]

Plot[Sin[2  x], {x, 0, 2 Pi}]

Plot[Sin[1.5  x], {x, 0, 2 Pi}]

Plot[Sin[x] + Sin[2 x], {x, 0, 2 Pi}]

Plot[Sin[x] + Sin[2 x], {x, 0, 10 Pi}]

Plot[Sin[x] + Sin[50 x], {x, 0, 2 Pi}]

Solve[x^2 + x == 2, x]

Solve[x^4 - x^3 + x == 2, x]

NSolve[x^4 - x^3 + x == 2, x]

NSolve[Cos[x] == x + Log[x], x]

a = Plot[Cos[x], {x, 0, 2}]

b = Plot[x + Log[x], {x, 0, 2}]

Show[a, b]

Plot[{Cos[x], x + Log[x]}, {x, 0.1, 2}, 
      PlotStyle -> {RGBColor[1, 0, 0], RGBColor[0, 0, 1]}]

FindRoot[Cos[x] == x + Log[x], {x, 1}]

Plot[Cos[x] - (x + Log[x]), {x, 0.1, 2}]

Log[2] < Sqrt[2]

Simplify[Sin[x + 2  π n],  n  ∈  Integers]

Sum[i, {i, 1, 100}]

n = 100;
(1 + n) n/2

N[Sum[1/i, {i, 1, 100}], 20]

N[Sum[1/i, {i, 1, 1000}], 20]

N[Sum[1/i, {i, 1, 100000}], 20]

Sum[1/i, {i, 1, ∞}]

Sum[1/(i^2), {i, 1, ∞}]

Plot3D[Sin[x y], {x, 0, 4}, {y, 0, 4}]

Plot3D[Sin[2  x ] Sin[2  y], {x, 0, Pi}, {y, 0, Pi}]

Table[
      Plot3D[Sin[x y] Cos[t], {x, 0, Pi}, {y, 0, Pi}, 
        PlotRange -> {-1, 1}, BoxRatios -> {1, 1, 0.5}], {t, 0, 
        2  Pi, Pi/6}]

ParametricPlot3D[{u Cos[u] (4 + Cos[v + u]), 
        u Sin[u] (4 + Cos[v + u]),  u Sin[u + v]}, {u, 0, 4 Pi}, {v, 
        0, 2  Pi}, 
      PlotPoints -> {60, 10}, 
ImageSize -> {500, 
          500}]