Інструкція 2 кроків, що виконуються по порядку в одній сесії. Кожен крок було виконано на рушії, і вивід нижче — те, що він дав.
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-