MaplePrimes - answers and comments on Question, How can I plot a 3D and a 2D graph together?

?plottools[transform]

gkokovidis — Mon, 29 Aug 2011 02:23:32 Z

See ?plottools[transform] for more help on this. With your plots, it would look like this.

restart:with(plots):with(plottools):
s1:=implicitplot3d(z=x*y, x=-8..8,y=-8..8,z=-8..8,axes=normal,style=line):
s2:=implicitplot(x^2+y^2=1, x=-8..8,y=-8..8,axes=normal,thickness=4):
f := transform(proc (x, y) options operator, arrow; [x, y, 0] end proc):
display({s1,f(s2)});

Download 2D3D.mw

Regards,

Georgios Kokovidis

Dräger Medical

Another approach

Markiyan Hirnyk — Mon, 29 Aug 2011 13:54:14 Z

> with(plots):
> display([implicitplot3d(z = x*y, x = -8 .. 8, y = -8 .. 8, z = -8 .. 8,
axes = normal, style = line), spacecurve([cos(t), sin(t), 0], t = 0 .. 2*Pi,
view = [-8 .. 8, -8 .. 8, -8 .. 8], thickness = 4, color = navy)]);

.

emoh1 — Mon, 29 Aug 2011 06:00:48 Z

Good. Thanks.