Plot3D[(((x^2 + y^2)^(Log[x*y]))/
            Tan[(x^3 + y^3)^(x y/100)]),  {x,  0,  
          10},  {y ,  0,  10},  PlotPoints  ->  151,  
        PlotRange  ->  {0,  100},  
        Mesh  ->  False];