6.15 Plotting real and imaginary parts

f[t_] := BesselK[3, I t] 
Plot[{Re[f[t]], Im[f[t]]}, {t, 0.01, 20}]