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