How can I add a color bar to my graph?
xyz = Flatten[Table[{i, j, k}, {i, 1, 10, .35}, {j, 1, 10, .35}, {k, 1, 10, .35}], 2];
f[x_, y_, z_] := (1 + z) + Im[Sqrt[-( (z))^2 - x z]]
Graphics3D[Point[xyz, VertexColors -> (Hue /@ Rescale[f[##] & @@@ xyz])], Axes -> True, AxesLabel -> {x, y, z}]