> with(plots);

Warning, the name changecoords has been redefined

> water:

>

> p1:=plot([cos(t)+2, sin(t)-0.5, t=Pi*7/15..20*Pi/17], color=blue, scaling=constrained):

> p2:=plot(sin(x+0.5), x=-1..2.15, color=blue):

> p3:=plot(sin(x-3), x=1.15..5.6, color=blue):

> p4:=plot([cos(t)+5.5, sin(t)-0.5, t=Pi*7/15..20*Pi/17], color=blue):

> p5:=plot(sin(x+0.5), x=-2.33..-1, color=blue):

> p6:=plot([cos(t)-1.5, sin(t)-0.5, t=Pi*7/15..7*Pi/6], color=blue):

> p7:=plot(sin(x+4), x=-5.5..-1.4, color=blue):

> p8:=plot(sin(x-6.5), x=4.6..9.1, color=blue):

> p9:=plot([cos(t)+9, sin(t)-0.5, t=Pi*7/15..7*Pi/6], color=blue):

> p10:=plot(sin(x+7), x=-9..-4.25, color=blue):

> p11:=plot([cos(t)-4.5, sin(t)-0.5, t=7*Pi/15..7*Pi/6], color=blue):

>

> boat and sail:

>

> p12:=plot(((x+0.5)^2/11)-1.5, x=-5..-4.2, color=green):

> p13:=plot(((x+0.5)^2/11)-1.5, x=-7.6..-5.7, color=green):

> p14:=plot(((x+0.5)^2/11)-1.5, x=4.7..6.1, color=green):

> p15:=plot([17*cos(t), 17*sin(t)+18.3, t=23*Pi/17..21*Pi/13], color=green):

> p16:=plot([-1.5, y, y=1.4..12], color=black):

> p17:=plot([-1.3, y, y=1.4..12.2], color=black):

> p18:=plot(3, x=-1.3..7.1, color=black):

> p19:=plot(3.1, x=-1.3..7.2, color=black):

> p20:=plot([-1,y, y=3.3..12.5], color=blue):

> p21:=plot(x+13.5, x=-1.5..-1.3, color=black):

> p22:=plot(x-4.1, x=7.1..7.2, color=black):

> p23:=plot(3.3, x=-1..7.3, color=blue):

> p24:=plot([17*cos(t)+15, 17*sin(t)+18.4, t=10*Pi/9..27*Pi/20], color=blue):

> p25:=plot([cos(t)/2, sin(t)/2+9, t=0..2*Pi], color=blue):

> p26:=plot([40*cos(t), 40*sin(t)+41.9, t=16*Pi/11..67*Pi/45], color=green):

> p27:=plot([40*cos(t), 40*sin(t)+41.9, t=73*Pi/49..34*Pi/22], color=green):

>

> p28:=plot([3.75,y, y=4..4.75]):

> p29:=plot([cos(x)*cos(2*x)+4.25, sin(x)*cos(2*x)+4.25, x=4*Pi/3..5*Pi/4]):

> p30:=plot([cos(x)/4+4.25, sin(x)/4+4.5, x=0..Pi]):

> p31:=plot(x, x= 4.1..4.25):

> p32:=plot(4, x=4..4.5):

>

> jib:

> p33:=plot([20*cos(t)+10, 20*sin(t)-4, t=5*Pi/7..6*Pi/7], color=blue):

> p34:=plot([18*cos(t)+5, 18*sin(t)-7.8, t=4*Pi/6..13*Pi/17], color=blue):

> p35:=plot([5*cos(t)+1, 5*sin(t)+8, t=3*Pi/4..41*Pi/40], color=blue):

> p36:=plot([20*cos(t)+10, 20*sin(t)-6, t=5*Pi/7..9*Pi/12], color=blue):

> p37:=plot([20*cos(t)+10, 20*sin(t)-6, t=10*Pi/13..10*Pi/12], color=blue):

> p38:=plot([5*cos(t)+1.8, 5*sin(t)+7, t=4*Pi/5..24*Pi/23], color=blue):

> p39:=plot([18*cos(t)+4, 18*sin(t)-10, t=12*Pi/19..5*Pi/7], color=blue):

>

>

> birds:

> p40:=plot([cos(2*x)*cos(x)-9,cos(2*x)*sin(x)+8, x=0..Pi/4]):

> p41:=plot([cos(2*x)*cos(x)-9,cos(2*x)*sin(x)+8, x=3*Pi/4..Pi]):

> p42:=plot([cos(2*x)*cos(x)+8, cos(2*x)*sin(x)+5, x=0..Pi/4]):

> p43:=plot([cos(2*x)*cos(x)+8, cos(2*x)*sin(x)+5, x=3*Pi/4..Pi]):

>

> sun:

> p44:=plot([cos(10*x)*cos(x)+5,cos(10*x)*sin(x)+10, x=0..2*Pi]):

> p45:=plot(x+5, x=3.5..4):

> p46:=plot(x+5, x=6..6.5):

> p47:=plot(-x+15, x=3.5..4):

> p48:=plot(-x+15, x=6..6.5):

> p49:=plot(10, x=3..3.75):

> p50:=plot(10, x=6.5..7.25):

> p51:=plot([5,y, y=7.75..8.5]):

> p52:=plot([5,y,y=11.25..12]):

> p53:=plot(x-1, x=2.5..4, color=black):

> p54:=plot(x-.75,x=2.25..3.75, color=black):

> p55:=plot((sin(14*x)/6)+9, x=0..Pi/6):

> p56:=plot(-5, x=-10..10, color=blue):

> 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);

> -

>