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