becky

> with(plots);

[animate, animate3d, animatecurve, changecoords, co...
[animate, animate3d, animatecurve, changecoords, co...
[animate, animate3d, animatecurve, changecoords, co...
[animate, animate3d, animatecurve, changecoords, co...

> p1:=plot([3*cos(t), 3*sin(t), t=0..2*Pi],color=black, scaling=constrained):

>

> p3:=plot([t,4*t^2-2, t=-.51..0.51],color=black):

> p4:=plot([.43*cos(t)+1.67, .5*sin(t)+1.78, t=0..2*Pi], color=black):

> p5:=plot([1.5*cos(t)+2, 1.54*sin(t)+2, t=2.56..5.4], color=blue):

> p6:=plot([.43*cos(t)-1.67, .5*sin(t)+1.78, t=0..2*Pi],color=black):

> p7:=plot([4*cos(t)+5.57, 1.5*sin(t)+2.8, t=0..2*Pi], color=yellow):

> p8:=plot([1.5*cos(t)-2.2, 1.54*sin(t)+2.2, t=4.2..6.7],color=blue):

> p9:=plot([2*cos(t)-2.2, 2*sin(t)+2.2, t=4.3..6.7],color=black):

> p10:=plot([2*cos(t)+2, 2*sin(t)+2, t=2.61..5.28], color=black):

> p2:=plot([1.7*cos(t)+1.7, 1.7*sin(t)+3.5, t=3.45..5.1], color=yellow,scaling=constrained):

> p11:=plot([1.7*cos(t)-1.4, 1.7*sin(t)+3.9, t=4.4..5.6], color=yellow, scaling=contrained):

> p12:=plot([4*cos(t)-5.57, 1.5*sin(t)+2.8, t=0..2*Pi], color=yellow):

> p13:=plot([2,t, t=-8..-2.2], color=blue):

> p14:=plot([-2,t, t=-8..-2.2], color=blue):

> p15:=plot([t,-8, t=-2..2], color=black):

> p16:=plot([1.3*cos(t)+2.2, 1.3*sin(t)-5, t=4.5..8], color=black):

> p17:=plot([1.3*cos(t)-2.2, 1.3*sin(t)-5, t=1.3..5], color=black):

> p18:=plot([.8*cos(t)+2.2, .8*sin(t)-5, t=4.5..8], color=black):

> p19:=plot([.8*cos(t)-2.2, .8*sin(t)-5, t=1.3..5], color=black):

> p20:=plot([1.5,t, t=-10..-8], color=black):

> p21:=plot([.5,t, t=-10..-8], color=black):

> p22:=plot([-.5,t, t=-10..-8], color=black):

> p23:=plot([-1.5,t, t=-10..-8], color=black):

> p24:=plot([.43*cos(t)+1.02, .5*sin(t)-10, t=Pi..2*Pi], color=blue):

> p25:=plot([.43*cos(t)-1.02, .5*sin(t)-10, t=Pi..2*Pi], color=blue):

> p26:=polarplot(-6*sin(t)+6, t=0..2*Pi, color=red):

> p27:=polarplot(-8*sin(t)+8, t=0..2*Pi, color=red):

> p28:=polarplot(-10*sin(t)+10, t=0..2*Pi, color=red):

> p29:=plot([-8,t, t=-4..6], color=black):

> p30:=plot([-6,t, t=-4..6], color=black):

> p31:=plot([t,6, t=-8..-6], color=black):

> p32:=plot([t,-4, t=-8..-6], color=black):

> p33:=plot([t,-4, t=-2..2], color=black):

> p34:=plot([t,-5, t=-2..2], color=black):

> p35:=plot([-5,t, t=-8..5], color=black):

> p36:=plot([-3, t,t=-8..5], color=black):

> p37:=plot([t,-8, t=-5..-3], color=black):

> p38:=plot([t,5, t=-5..-3], color=black):

> p39:=plot([4,t, t=-6..1], color=black):

> p40:=plot([7,t, t=-6..1], color=black):

> p41:=plot([t,-6, t=4..7], color=black):

> p42:=plot([t, 1, t=4..7], color=black):

> p43:=plot([t, 4, t=8..10], color=black):

> p44:=plot([t, -10, t=8..10], color=black):

> p45:=plot([10,t, t=-10..4], color=black):

> p46:=plot([8, t, t=-10..4], color=black):

> p47:=plot([-1.5,t, t=-5..-4], color=black):

> p48:=plot([-.5,t, t=-5..-4], color=black):

> p49:=plot([1.5,t, t=-5..-4], color=black):

> p50:=plot([.5,t, t=-5..-4], color=black):

> display(p1,p3,p4,p5,p6,p8,p9,p10,p2,p11,p7,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);

[Maple Plot]