test = ContourPlot[Sin[x*y], {x, 0, Pi}, {y, 0, Pi}, ColorFunction -> "DarkRainbow"]
{x_?NumericQ, y_?NumericQ} :> {x, y, -2} 將test的二維座標取出，並轉換為3D座標
Graphics[p_, _] :> Graphics3D[p] 轉換函數名稱
tt = test /. {x_?NumericQ, y_?NumericQ} :> {x, y, -2} /.Graphics[p_, _] :> Graphics3D[p]
將test及tt合併
Show[Plot3D[Sin[x*y], {x, 0, Pi}, {y, 0, Pi}, PlotRange -> {Automatic, Automatic, {-2, 1}}], tt]
讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助，那請留個訊息給我～