Plot[BesselK[0,x]/BesselK[1,x],{x,-1,2}]