> with(plots);

> p1:=plot([cos(2*t),sin(2*t),t=-2*Pi..2*Pi],scaling=constrained):

> p2:=plot([t-2*sin(t)+1.5,t-2*cos(t)+0.85,t=-1..1]):

> p3:=plot([0.75-t^2,2*t^2+.96,t=0..0.85]):

> p4:=plot([2*t-sin(t),t^2-0.6,t=-0.38..0.38]):

> p5:=plot([-0.75+t^2,2*t^2+.96,t=0...0.85]):

> p6:=plot([t-2*sin(t)-1.5,-t-2*cos(t)+0.85,t=-1..1]):

> p7:=plot([4*t-sin(t),t^2+0.9,t=-0.25..0.25]):

> p8:=plot([0.14*cos(t)-0.5,0.14*sin(t)+0.45,t=-1.6..1.6]):

> p9:=plot([0.14*cos(t)+0.5,0.14*sin(t)+0.45,t=-1.6..1.6]):

> p10:=plot([-0.14*cos(t)+0.5,0.14*sin(t)+0.45,t=-1.6..1.6]):

> p11:=plot([-0.14*cos(t)-0.5,0.14*sin(t)+0.45,t=-1.6..1.6]):

> p12:=plot([0.13*cos(t)-0.5,0.13*sin(t)+0.45,t=-1.6..1.6]):

> p13:=plot([0.13*cos(t)+0.5,0.13*sin(t)+0.45,t=-1.6..1.6]):

> p14:=plot([-0.13*cos(t)+0.5,0.13*sin(t)+0.45,t=-1.6..1.6]):

> p15:=plot([-0.13*cos(t)-0.5,0.13*sin(t)+0.45,t=-1.6..1.6]):

> p16:=plot([0.12*cos(t)-0.5,0.12*sin(t)+0.45,t=-1.6..1.6]):

> p17:=plot([0.12*cos(t)+0.5,0.12*sin(t)+0.45,t=-1.6..1.6]):

> p18:=plot([-0.12*cos(t)+0.5,0.12*sin(t)+0.45,t=-1.6..1.6]):

> p19:=plot([-0.12*cos(t)-0.5,0.12*sin(t)+0.45,t=-1.6..1.6]):

> p20:=plot([-0.06*cos(t),0.06*sin(t),t=-Pi..Pi]):

> p21:=plot([-0.07*cos(t),0.07*sin(t),t=-Pi.Pi]):

> p22:=plot([-0.08*cos(t),0.08*sin(t),t=-Pi..Pi]):

> p23:=plot([-cos(t^2),sin(t^2)-1.9,t=-1...1]):

> p24:=plot([cos(t^2),sin(t^2)-1.9,t=-1...1]):

> p25:=plot([6*t-sin(t),t^2-2,t=-1..1]):

> p26:=plot([2*cos(2*t),sin(2*t)-4,t=-2*Pi..2*Pi]):

> p27:=plot([6*t-sin(t),t^2-6.5,t=-0.5..0.5]):

> p28:=plot([t^2/4-2.73,t^2-6.45,t=0.5..1.65],color=blue):

> p29:=plot([-t^2/4+2.73,t^2-6.45,t=-0.35...1.65],color=blue):

> p30:=plot([0.5*cos(2*t)-5,2*sin(2*t)+5.5,t=-2*Pi..2*Pi],color=yellow):

> p31:=plot([0.5*cos(2*t)+2.75,2*sin(2*t)+8.5,t=-2*Pi..2*Pi],color=blue):

> p32:=plot([0.5*cos(2*t)+7.5,2*sin(2*t)+2.5,t=-2*Pi..2*Pi],color=green):

> p33:=plot([sin(3*t)+7.35,t-2.5,t=-Pi..Pi],color=green):

> p34:=plot([sin(3*t)+2.5,t+3.5,t=-Pi..Pi],color=blue):

> p35:=plot([sin(3*t)-5.2,t+0.5,t=-Pi..Pi],color=yellow):

> p36:=plot([0.5*cos(2*t)-9,2*sin(2*t)+1.5,t=-2*Pi..2*Pi],color=orange):

> p37:=plot([sin(3*t)-9.3,t-3.4,t=-Pi..Pi],color=orange):

> p38:=plot([1.5*cos(t/3),sin(t/3)-4,t=-4*Pi..4*Pi],color=green):

> p39:=plot([t^2/5-1.38,t^2-4.2,t=0.5..1.2],color=blue):

> p40:=plot([t^2/5-1.35,t^2-4.2,t=0.5..1.2],color=blue):

> p41:=plot([t^2/5-0.35,t^2-4.5,t=0.5..1.2],color=blue):

> p42:=plot([t^2/5-0.38,t^2-4.5,t=0.5..1.2],color=blue):

> p43:=plot([t^2/5+0.52,t^2-3.85,t=0.5..1.2],color=blue):

> p44:=plot([t^2/5+0.5,t^2-3.85,t=0.5..1.2],color=blue):

> p45:=plot([t^2/5+0.02,t^2-5,t=0.5..1.2],color=blue):

> p46:=plot([t^2/5+0.01,t^2-5,t=0.5..1.2],color=blue):

> p47:=plot([t^2/5+0.8,t^2-4.59,t=0.5..1.2],color=blue):

> p48:=plot([t^2/5+0.82,t^2-4.59,t=0.5..1.2],color=blue):

> p49:=plot([t^2/5-0.18,t^2-3.59,t=0.5..1.2],color=blue):

> p50:=plot([t^2/5-0.18,t^2-3.59,t=0.5..1.2],color=blue):

> p51:=plot([0.11*cos(t)-1.02,0.13*sin(t)-2.6,t=-2*Pi..2*Pi],color=orange):

> p52:=plot([0.11*cos(t)-1.02,0.12*sin(t)-2.6,t=-2*Pi..2*Pi],color=orange):

> p53:=plot([0.11*cos(t)+0.72,0.13*sin(t)-2.4,t=-2*Pi..2*Pi],color=orange):

> p54:=plot([0.11*cos(t)+0.72,0.12*sin(t)-2.4,t=-2*Pi..2*Pi],color=orange):

> p55:=plot([0.11*cos(t)+1.16,0.14*sin(t)-3.22,t=-2*Pi..2*Pi],color=orange):

> p56:=plot([0.11*cos(t)+0.25,0.13*sin(t)-3.53,t=-2*Pi..2*Pi],color=orange):

> p57:=plot([0.11*cos(t)+0.01,0.14*sin(t)-2.58,t=-2*Pi..2*Pi],color=orange):

> p58:=plot([0.11*cos(t)+0.01,0.13*sin(t)-2.58,t=-2*Pi..2*Pi],color=orange):

> p59:=plot([0.11*cos(t)+1.16,0.13*sin(t)-3.22,t=-2*Pi..2*Pi],color=orange):

> p60:=plot([1.25*cos(t/3),0.75*sin(t/3)-4,t=-4*Pi..4*Pi],color=blue):

> p61:=plot([2*t-sin(t),t^2-6.6,t=-0.5..0.5]):

> display(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20,p21,p22,p23,p24,p25,p26,p27,p28,p29,p30,p31,p32,p33,p34,p35,p36,p37,p38,p39,p40,p41,p42,p43,p44,p45,p46,p47,p48,p49,p50,p51,p52,p53,p54,p55,p56,p57,p58);

>