kill(all)$

Maxima : superposition parametric plots on the same canvas.'version 1.0'
peter.vlasschaert@gmail.com,23/01/2019

two parametric plots on the graph
=============================

m2plot(l,t1,t2):=block(
    
    wxplot2d([[parametric,l[1],l[2],[t,t1,t2]],
                      [parametric,l[3],l[4],[t,t1,t2]]])
    
                     
    );

m2plot([2*sin(t),3*cos(t),t,t^3],-5,5);

'n' parametric plots on the graph.
============================

mnplot(l,t1,t2):=block( [m:[]],
    d:length(l),
    for i:1 thru d/2  do (    
   m :endcons([parametric,l[1+2*(i-1)],l[2*i],[t,t1,t2]],m) ),
    wxplot2d(m)
    )$

mnplot([2*sin(t),3*cos(t),t,t^3,t,t^2],-5,5);

general solution for the  problem. (with option for plot2d).
================================================

mnplotr(l,t1,t2,xmin,xmax,ymin,ymax):=block( [m:[]],
    d:length(l),
    for i:1 thru d/2  do (    
   m :endcons([parametric,l[1+2*(i-1)],l[2*i],[t,t1,t2]],m) 
                                   ),
    wxplot2d(m,[x,xmin,xmax],[y,ymin,ymax],
    [title,"parametric plots"],[xlabel,"x(t)"],[ylabel,"y(t)"])
    )$

syntax :  'mnplotr' ,control of plotting ranges.
=======
--------------------------------------------------------------------------
                l                                                      => list 
                 t1,t2,xmin,xmax,ymin,ymax   => values
--------------------------------------------------------------------------

list : parametric values  'x(t),y(t)'
===========================

mnplotr([2*sin(t),3*cos(t),t,t^3,t,t^2],-5,5,-10,10,-10,10);

'----------------------------------------------------------------------------------------------------------------------------------------------'