> with(plots):

> with(student):

> p1 := plot(-.3*x+20,x = -50 .. 50,scaling = constrained):

> p2 := plot([50, t, t = -1 .. 5]):

> p3 := plot(1,x = -50 .. 50):

> p4 := plot([-50, t, t = -1 .. 35]):

> p5 := plot(-1,x = -50 .. 50):

> p6 := plot(-.3*x+18,x = -50 .. 50):

> p7 := plot(-2+sin(x/6),x = -55 .. 55):

> p8 := plot(2+cos(x/3),x = -55 .. -51):

> p9 := plot(2+sin(x/3),x = 51 .. 55):

> p10 := plot([-10, t, t = 23 .. 28]):

> p11 := plot([20, t, t = 14 .. 19]):

> p12 := plot(-.3*x+25,x = -10 .. 20):

> p13 := plot([-4+2*cos(t), 24+2*sin(t), t = 0 .. 2*Pi]):

> p14 := plot([5+2*cos(t), 21+2*sin(t), t = 0 .. 2*Pi]):

> p15 := plot([14+2*cos(t), 18.5+2*sin(t), t = 0 .. 2*Pi]):

> p16 := plot([-8, t, t = 27.5 .. 37.5]):

> p17 := plot([-2, t, t = 26 .. 36]):

> p18 := plot([2, t, t = 25 .. 35]):

> p19 := plot([8, t, t = 23 .. 33]):

> p20 := plot([11, t, t = 21.5 .. 31.5]):

> p21 := plot([17, t, t = 20.5 .. 30.5]):

> p22 := plot(-.3*x+35,x = -8 .. -2):

> p23 := plot(-.3*x+35,x = 2 .. 8):#

> p24 := plot(-.3*x+35,x = 11 .. 17):

> p25 := plot(-.3*x+28,x = -8 .. -2):

> p26 := plot(-.3*x+30,x = -8 .. -2):

> p27 := plot(-.3*x+28,x = 2 .. 8):

> p28 := plot(-.3*x+30,x = 2 .. 8):

> p29 := plot(-.3*x+28,x = 11 .. 17):

> p30 := plot(-.3*x+30,x = 11 .. 17):

> p31 := plot([-20+10*cos(t), 29+3*sin(t), t = 0 .. Pi]):

> p32 := plot([-10, t, t = 28 .. 29]):

> p33 := plot([-20+10*cos(t), 28+3*sin(t), t = 0 .. .96*Pi]):

> p34 := plot([-20+10*cos(t), 27+3*sin(t), t = 0 .. .90*Pi]):

> p35 := plot([-23, t, t = 32 .. 35]):

> p36 := plot([-17, t, t = 32 .. 35]):

> p37 := plot(35,x = -23 .. -17):

> p38 := plot(-.9*x+20,x = -17 .. -11):

> p39 := plot(.8*x+54,x = -23.5 .. -29):

> p40 := plot([-42, t, t = 33 .. 63]):

> p41 := plot([40, t, t = 8 .. 38]):

> p42 := plot(x+85,x = -42 .. -50):

> p43 := plot(-1.5*x-20,x = -42 .. -33):

> p44 := plot(x-20,x = 31 .. 40):

> p45 := plot(-1.5*x+80,x = 40 .. 50):

> p46 := plot([-47+5*cos(t), 62+2*sin(t), t = 0 .. 1.95*Pi]):

> p47 := plot([35+5*cos(t), 37+2*sin(t), t = 0 .. 1.95*Pi]):

> p48 := plot([-45, t, t = 18 .. 25]):

> p49 := plot([-43, t, t = 18 .. 25]):

> p50 := plot([-37, t, t = 18 .. 25]):

> p51 := plot([-35, t, t = 18 .. 25]):

> p52 := plot([-40+5*cos(t), 18+5*sin(t), t = Pi .. 2*Pi]):

> p53 := plot([-40+3*cos(t), 18+3*sin(t), t = Pi .. 2*Pi]):

> p54 := plot(25,x = -45 .. -43):

> p55 := plot(25,x = -37 .. -35):

> 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,p

> 36,p37,p38,p39,p40,p41,p42,p43,p44,p45,p46,p47,p48,p49,p50,p51,p52,p53

> ,p54,p55);

>