exp1 = Plot3D[Re[E^(x + I y)], {x, -3, 3}, {y, -10, 10}, PlotPoints -> 30, PlotRange -> {-10, 10}, ImageSize -> {400, 300}, AxesLabel -> {"x", "y","f"}];