如何在Mathematica中结合两个3dplot？

Question

我想绘制多元t分布的plot3d，并且在它的底部也出现对应的countourplot。 我使用以下代码

Needs["MultivariateStatistics"]

A = Plot3D[ PDF[MultivariateTDistribution[{{1, 1/2}, {1/2, 1}}, 10], {x, y}], {x, -3, 3}, {y, -3, 3}]

B = ContourPlot[ PDF[MultivariateTDistribution[{{1, 1/2}, {1/2, 1}}, 10], {x, y}], {x, -3, 3}, {y, -3, 3}]

Show[A, B]

但我不能。我知道如果在单变量情况下使用函数show，那么这些图就会合并。

请帮帮我。

由于

Answer 1

Show＆＃34;有效地覆盖图形＆＃34;彼此重叠，所以你可能想要Column或GraphicsColumn之类的东西把它们放在一列中：

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