Section 1.2, Exercise #8

f[t_]:=E^(1/t)*Cos[1/t]

f'[t]

Simplify[f''[t]]

Plot[f''[t],{t,1/10,1},PlotRange->{{0,1},{-1000000000,1000000000}}]

I work the bound out to something like this (which will inform the plot range, above!):

N[4Exp[10]*10^4]