GraphicsGrid@ Table[Plot3D[c[f[1/2, x + I y]], {x, -10, 10}, {y, -10, 10}, PlotLabel -> TraditionalForm[c[f[\[Nu], x + I y]]], Mesh -> None, PlotStyle -> Directive[Lighter[Purple], Specularity[White, 30]]], {f, {AngerJ, WeberE}}, {c, {Re, Im}}]