2013-06-04 62 views
0

我想繪製多元t分佈的plot3d,並在其底部出現對應的countourplot。 我用下面的代碼如何在Mathematica中結合兩個3dplot?

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,那麼將這些圖組合在一起。

請幫幫我。

感謝

+0

請請參閱[this](http://mathematica.stackexchange.com/q/3665/121),並考慮在[新網站](http://mathematica.stackexchange.com)上提出您的問題。 –

回答

0

Show「有效覆蓋圖形」在彼此的頂部,所以你可能要像ColumnGraphicsColumn將它們放置在一列:

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

stacked