Wolfram mathematica 如何在Mathematica中组合两个3dplot？

我想画一个多元t分布的3D图，并在底部显示相应的countourplot。 我使用以下代码

需要[“多元统计”]

A=Plot3D[
PDF[多变量分布[{1，1/2}，{1/2，1}，10]，{x，
y} ]，{x，-3,3}，{y，-3,3}]

B=ContourPlot[
PDF[多变量分布[{1，1/2}，{1/2，1}，10]，{x，
y} ]，{x，-3,3}，{y，-3,3}]

显示[A，B]

但我不能。我知道，如果在单变量情况下使用函数

show

，则曲线图会合并

请帮帮我

谢谢

Show

“有效地覆盖图形”，因此您可能需要类似于

列

或

图形列

的内容将它们放置在列中：

GraphicsColumn[{A, B}, ImageSize -> 300, Background -> White]

请参阅，并考虑提问。