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