1/6

1.0/6

2^100

2. ^100

N[2^100, 10]

N[Pi, 100]

I

I*I

I^3

Solve[x + 5 == 0, x]

Solve[x^3 + x^2 + 1 == 0, x]

N[%]

NSolve[x^5 + x^2 + 1 == 0, x]

DSolve[{x'[t] + x[t] == 1, x[0] == 0}, x[t], 
      t]

LaplaceTransform[1, t, s]

LaplaceTransform[a, t, s]

LaplaceTransform[t, t, s]

LaplaceTransform[Sin[2*t], t, s]

LaplaceTransform[Exp[-a t], t, s]

LaplaceTransform[Exp[-t]*Sin[2  t], t, s]

InverseLaplaceTransform[1, s, t]

g = InverseLaplaceTransform[1/(s^2 + s + 1), s, t]

g

Plot[g, {t, 0, 10}, 
      PlotRange -> {{0, 10}, {-1, 1}}]

Clear[c, k]
y = 
      InverseLaplaceTransform[1/(s^2 + c*s + k)*1/s, s, t]

c = 1
k = 1
Plot[y, {t, 0, 10}]