curvemapleplot3d

How to intensify the 3d aspect of a curve plot with Maple?

I was trying to built a 3d plot to represent a parametrized curve in space using Maple, something like (x(t), y(t), t). I could! But the thing is that I need it as an image, so the reader will not be able to rotate this result as I am now, so I need to choice a favorable angle, and I just can't. I was wondering if it's possible to insert any type of a background like this one we usually make it appear when using Python:

Grid on planes as a background, I think it might help in this sense of representation of a curve in space.

or maybe a color varying over the curve as t changes.

Here's what I tried:

with(DEtools):
DEplot3d({diff(x(t),t) = y(t),diff(y(t),t) = (1 - x(t)^2)*y(t) - x(t)},[x(t),y(t)],t=0..15,[[x(0)=0,y(0)=0.1]],stepsize=.1,x=-2.5..2.5,linecolor=black,axes=framed,thickness=1,obsrange=FALSE);

And this is the best manner I could adjust it:

I know it's not that bad at all, but I really think it could get better with something else that emphasizes that sense of a 3d object

Solution

  • You could construct such a mesh of gray lines.

    You could also add some perspective to the 3D plot, to give a sense of depth.

    You could also color the curve is some way that conveyed distance or depth. (Below, I color it with a gradient in the first axis's dimension.)

    enter image description here

    with(plots): with(plottools):
P := DEtools[DEplot3d]({diff(x(t),t) = y(t),
                    diff(y(t),t) = (1 - x(t)^2)*y(t) - x(t)},
                   [x(t),y(t)],t=0..15,[[x(0)=0,y(0)=0.1]],
                   stepsize=.05,x=-2.5..2.5,
                   linecolor=black,axes=framed,thickness=2,
                   obsrange=false):

rngs := [op(indets(P,specfunc(VIEW))[1])]:

meshlines:=display(
           seq(line([x,op([2,1],rngs),op([3,1],rngs)],
                    [x,op([2,2],rngs),op([3,1],rngs)],
                    color=gray,thickness=0),
               x=[seq(rngs[1], numelems=7)]),
           seq(line([op([1,1],rngs),y,op([3,1],rngs)],
                    [op([1,2],rngs),y,op([3,1],rngs)],
                    color=gray,thickness=0),
               y=[seq(rngs[2], numelems=7)]),
           seq(line([op([1,1],rngs),op([2,1],rngs),z],
                    [op([1,1],rngs),op([2,2],rngs),z],
                    color=gray,thickness=0),
               z=[seq(rngs[3], numelems=7)]),
           seq(line([op([1,1],rngs),y,op([3,1],rngs)],
                    [op([1,1],rngs),y,op([3,2],rngs)],
                    color=gray,thickness=0),
               y=[seq(rngs[2], numelems=7)]),
           seq(line([x,op([2,1],rngs),op([3,1],rngs)],
                    [x,op([2,1],rngs),op([3,2],rngs)],
                    color=gray,thickness=0),
               x=[seq(rngs[1], numelems=7)]),
           seq(line([op([1,1],rngs),op([2,1],rngs),z],
                    [op([1,2],rngs),op([2,1],rngs),z],
                    color=gray,thickness=0),
               z=[seq(rngs[3], numelems=7)])):

newP := spacecurve(op(1,indets(P,specfunc(CURVES))[1]),
               thickness=3,
               colorscheme=["xgradient",["#C0FFFF",black]]):

display(meshlines, newP, axes=framed,
        labels=[t,x(t),y(t)],
        projection=0.76);