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

'