Plot[HypergeometricU[1, 1, z], {z, -1, 1}]