1. f[x_, y_] := Sin@(2 Pi x^3) + Cos@(3 Pi y^2);
    2. Show[Plot3D[f[x, y], {x, -1, 1}, {y, -1, 1}, 
    3.   PlotRange -> {Automatic, Automatic, {-8, 2}}], 
    4.  Graphics3D[
    5.   ContourPlot[f[x, y], {x, -1, 1}, {y, -1, 1}][[
    6.     1]] /. {x : _Real, y : _Real} -> {x, y, -8}]]

    效果图：
    tu1.svg
    其中关键的是这个

    1.  Graphics3D[
    2.   ContourPlot[f[x, y], {x, -1, 1}, {y, -1, 1}][[
    3.     1]] /. {x : _Real, y : _Real} -> {x, y, -8}]

    这个很巧妙利用了这个。