sin = Plot3D[Re[Sin[x + I y]], {x, -8, 8}, {y, -2, 2}, ImageSize -> {400, 300}, AxesLabel -> {"x", "y", "Re[Sin[z]]"}];