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"}];