ハウツー 2 ステップを1つのセッション内で順に実行します。各ステップはエンジンで実行済みで、以下の出力は実際に生成されたものです。
Plot3D[Im[ArcSin[(x + I y) ^ 4]], {x, -2, 2}, {y, -2, 2}, Mesh -> None, PlotStyle -> Directive[Yellow, Specularity[White, 20], Opacity[0.8]], ExclusionsStyle -> {None, Red}]-Graphics3D-ParametricPlot3D[{{4 + (3 + Cos[v])Sin[u], 4 + (3 + Cos[v])Cos[u], 4 + Sin[v]}, {8 + (3 + Cos[v])Cos[u], 3 + Sin[v], 4 + (3 + Cos[v])Sin[u]}}, {u, 0, 2Pi}, {v, 0, 2Pi}, PlotStyle -> {Red, Green}]-Graphics3D-