1 + 1

(3/2)^10

N[%, 8]

1.5^10

\(\(N[%, 8]
\)\)

(3/2)^100

N[%, 40]

1.5^100

N[%, 40]

f[x_] := x + Cos[x]

f[1]

f[1. ]

Plot[f[x], {x, 0, 10}, AxesLabel -> {x, y}]

\(Plot[f[x], {x, 0, 10}, Frame -> True, PlotLabel -> function, 
	
      AxesLabel -> {x, y}]\)

\(\( (*Loops*) 
x[0] = 0\)\)

Do[x[n + 1] = x[n] + 1, {n, 0, 10}]

x[1]

x[2]

Table[x[n], {n, 0, 10}]

ListPlot[%]

ParametricPlot[{Cos[5*x], Sin[3*x]}, {x, 0, 2*Pi}]

ParametricPlot[{Cos[5*x], Sin[3.354678*x]}, {x, 0, 20*Pi}]

I^2

\(\(Re[1 + I]
\)\)

Plot[Re[Zeta[1/2  + I*x]], {x, 0, 500}]

\(Plot[Re[Zeta[1/2\  + I*x]], 
	{x, 0, 500}, PlotPoints -> 2000, 
      PlotRange -> All]\)