peaks[x_,y_]=3(1-x)^2 ⅇ^(-x^2-(y+1)^2 )-10(x/5-x^3-y^5 ) ⅇ^(-x^2-y^2 )-1/3 ⅇ^(-(x+1)^2-y^2 )
xLim = 3.0;
yLim = 4.0;
zPos = -10.0;
p3D = Plot3D[peaks[x, y], {x, -xLim, xLim}, {y, -yLim, yLim}, PlotRange -> All]
p3D /. Graphics3D[gr_, opts___] :> Graphics3D[{gr, Scale[gr, {1, 1, 1/5}, {0, 0, zPos}]}, opts]
这里p3D不是Plot3D这个函数吗，为什么能与Graphics3D模式匹配上

Plot3D[]表达式计算为一个Graphics3D[]表达式，正如1+1计算为2.

说得更直白一点：Plot3D其实就是个Graphics3D的生成器。你把图像选中然后按Ctrl+Shift+I试试。

多谢解答，明天试一下