怎么作这个图呢？不论是mathematica还是Grapher都做不出来

n = 2; Plot3D[ Limit[Sum[(x/y)^t, {t, 0, u}], u -> Infinity], {x, -n, n}, {y, -n, n}]
Mathematica 7.0 ，作图时间比较长，请耐心等待。

等比数列。。。为何不手动求和。。。