Liz_Pecce.mw

Elizabeth Pecce

Multivariable Calculus

Ode to Cape Cod

> with(student):

> with(plots):

Warning, the name changecoords has been redefined

> p1:=plot([1,t+0,t=0..30],color=black):

> p2:=plot([10,t+0,t=0..30],color=black):

> p3:=plot(30,x=1..10):

> p4:=plot(x*(1/2),x=1..10):

> p5:=plot(x*(1/2)+4,x=1..10):

> p6:=plot(x*(1/2)+10,x=1..10):

> p7:=plot(x*(1/2)+14,x=1..10):

> p8:=plot(x*(1/2)+20,x=1..10):

> p9:=plot(x*(1/2)+24,x=1..10):

> p10:=plot(x*(1/2)+(.5),x=1..10):

> p10:=plot(x*(1/2)+(.1),x=1..10, thickness=10):

> p11:=plot(x*(1/2)+(.5),x=1..10,thickness=10):

> p12:=plot(x*(1/2)+(1),x=1..10,thickness=10):

> p13:=plot(x*(1/2)+(1.5),x=1..10,thickness=10):

> p14:=plot(x*(1/2)+(2),x=1..10,thickness=10):

> p15:=plot(x*(1/2)+(2.5),x=1..10,thickness=10):

> p16:=plot(x*(1/2)+(3),x=1..10,thickness=10):

> p17:=plot(x*(1/2)+(3.5),x=1..10,thickness=10):

> p18:=plot(x*(1/2)+(4),x=1..10,thickness=10):

> p19:=plot(x*(1/2)+10.5,x=1..10,thickness=10):

> p20:=plot(x*(1/2)+10.5,x=1..10,thickness=10):

> p21:=plot(x*(1/2)+11,x=1..10,thickness=10):

> p22:=plot(x*(1/2)+11.5,x=1..10,thickness=10):

> p23:=plot(x*(1/2)+12.5,x=1..10,thickness=10):

> p24:=plot(x*(1/2)+13,x=1..10,thickness=10):

> p25:=plot(x*(1/2)+13.5,x=1..10,thickness=10):

> p26:=plot(x*(1/2)+14,x=1..10,thickness=10):

> p27:=plot(x*(1/2)+20,x=1..10,thickness=10):

> p28:=plot(x*(1/2)+20.5,x=1..10,thickness=10):

> p29:=plot(x*(1/2)+21,x=1..10,thickness=10):

> p30:=plot(x*(1/2)+21.5,x=1..10,thickness=10):

> p31:=plot(x*(1/2)+22,x=1..10,thickness=10):

> p32:=plot(x*(1/2)+22.5,x=1..10,thickness=10):

> p33:=plot(x*(1/2)+23,x=1..10,thickness=10):

> p34:=plot(x*(1/2)+23.5,x=1..10,thickness=10):

> p35:=plot(x*(1/2)+24,x=1..10,thickness=10):

> p36:=plot((x*2)+10,x=10..12):

> p37:=plot((x*(-2))+32,x=1..-1):

> p38:=plot(34,x=-1..12):

> p39:=plot([2,t+0,t=34..35.5],color=black):

> p40:=plot([9,t+0,t=34..35.5],color=black):

> p41:=plot(35.5,x=2..9,color=black):

> p42:=plot([1.5,t+0,t=30..34],color=black):

> p43:=plot([t,-.05*((t-5)^2)+31,t=1..10],scaling=constrained,color=black):

> p44:=plot([3,t+0,t=34..35.5],color=black):

> p45:=plot([4,t+0,t=34..35.5],color=black):

> p46:=plot([5,t+0,t=34..35.5],color=black):

> p47:=plot([6,t+0,t=34..35.5],color=black):

> p48:=plot([7,t+0,t=34..35.5],color=black):

> p49:=plot([8,t+0,t=34..35.5],color=black):

> p50:=plot([2.3,t+0,t=35.5..41],color=black):

> p51:=plot([8.3,t+0,t=35.5..41],color=black):

> p52:=plot(41,x=2.3..8.3,color=black):

> p53:=plot(10,x=0..-3,color=brown):

> p54:=plot((-1/2*((x-17)),x=-3..-9),color=brown):

> p55:=plot([-3,t+0,t=0..10],color=brown):

> p56:=plot((1/2*((x+35)),x=-9..-15),color=brown):

> p57:=plot([-15,t+0,t=-1.2..10],color=brown):

> p58:=plot(13,x=-9..0,color=brown):

> p59:=plot([-13,t+0,t=3..7],color=brown):

> p60:=plot([-6,t+0,t=3..7],color=brown):

> p61:=plot(3,x=-6..-13,color=brown):

> p62:=plot([t,(-.003)*t^2,t=-30..19],color=tan,thickness=4):

> p63:=plot([t,(-.003)*t^2-(1),t=-32..23],color=tan,thickness=4):

> p64:=plot((-.003)*x^2-(2),x=-40..28,color=tan,thickness=4):

> p65:=plot([sin(x)+5,cos(x)+47,x=0..2*Pi],color=black):

> p66:=plot((2.5*x)+35,x=2..4.5,color=black):

> p67:=plot((-2.5*x)+61.5,x=6..8.3,color=black):

> p68:=plot([3,t+0,t=37..40],color=black):

> p69:=plot([4,t+0,t=37..40],color=black):

> p70:=plot(37,x=3..4,color=black):

> p71:=plot(40,x=3..4,color=black):

> p72:=plot(((-1/2)*x)+40,x=4..6.5,color=black):

> p73:=plot(((1/2)*x)+37,x=4..6.5,color=black):

> p74:=plot([6.5,t+0,t=37..40.2],color=black):

> p75:=plot(((1/3)*x)+37,x=4..50,color=yellow):

> p76:=plot(((1/4)*x)+37.5,x=4..50,color=yellow):

> p77:=plot(((1/9)*x)+38,x=4..50,color=yellow,thickness=2):

> p78:=plot(((-1/5)*x)+38,x=4..55,color=yellow):

> p79:=plot(((-1/12)*x)+38,x=4..55,color=yellow):

> p80:=plot([4*cos(x)+(.7)*cos(7*x)-22, 2.3*sin(x)+(.7)*sin(7*x)+53, x = 130*Pi ..
180*Pi],color = blue):

> p81:=plot([7*cos(x)+(.7)*cos(9*x)-27, 2.3*sin(x)+(.7)*sin(9*x)+40, x = 130*Pi ..
180*Pi],color = blue):

> p82:=plot([cos(Pi/2)*x+sin(Pi/2)*(.095)*x^2-30,sin(Pi/2)*x+cos(Pi/2)*(0.95)*x^2+48,x=-5.5..5.5],color=gray):

> p83:=plot([-cos(Pi/2)*x-sin(Pi/2)*(.095)*x^2-15,sin(Pi/2)*x+cos(Pi/2)*(0.95)*x^2+47,x=-7..6],color=gray):

> p84:=plot([sin(x-2)-20,cos(x-2.5)+45,x=0..2*Pi],color=gray):

> p85:=plot([sin(x-3)-25,cos(x-2.5)+50,x=0..2*Pi],color=gray):

> p86:=plot([sin(x-3)-27,cos(x-3)+46,x=0..2*Pi],color=gray):

>

> p87:=plot([(cos(3*x)+cos(2*x)-30),sin(3*x)-sin(2*x)+27,x=0..2*Pi],color=yellow,thickness=2):

> p88:=plot([(cos(3*x)+cos(2*x)-33),sin(3*x)-sin(2*x)+40,x=0..2*Pi],color=yellow,thickness=2):

> p89:=plot([(cos(3*x)+cos(2*x)-2),sin(3*x)-sin(2*x)+50,x=0..2*Pi],color=yellow,thickness=2):

> p90:=plot([(cos(3*x)+cos(2*x)+10),sin(3*x)-sin(2*x)+46,x=0..2*Pi],color=yellow,thickness=2):

> p91:=plot([(cos(3*x)+cos(2*x)+15),sin(3*x)-sin(2*x)+58,x=0..2*Pi],color=yellow,thickness=2):

> p92:=plot([t,(-.003)*t^2,t=19..45],color=turquoise,thickness=4):

> p93:=plot([t,(-.003)*t^2-(1),t=23..38],color=turquoise,thickness=4):

> p94:=plot((-.003)*x^2-(2),x=28..53,color=blue,thickness=4):

> p95:=plot(7,x=-13..-6,color=brown):

> p96:=plot([cos(Pi)*x-sin(Pi)*(.05)*x^2+43,sin(Pi)*x-cos(Pi)*(0.05)*x^2-2.3,x=-9..9],color=grey,thickness=3):

> p97:=plot(2.3,x=34..52,color=grey,thickness=2):

> p98:=plot([43,t+0,t=2.3..18],color=black):

> p99:=plot([44,t+0,t=2.3..18],color=black):

> p100:=plot(18,x=43..44,color=black):

> p101:=plot(8,x=44..55,color=black):

> p102:=plot([cos(Pi/2)*x+sin(Pi/2)*(.055)*x^2+48.5,sin(Pi/2)*x+cos(Pi/2)*(0.05)*x^2+10.5,x=-2.6..2.6],color=blue):

>

> p103:=plot((-(.9)*((x-64)),x=44..55),color=black):

> p104:=plot([cos(Pi/2)*x+sin(Pi/2)*(.055)*x^2+48,sin(Pi/2)*x+cos(Pi/2)*(0.05)*x^2+11,x=-3.2..3.2],color=blue):

> p105:=plot([cos(Pi/2)*x+sin(Pi/2)*(.055)*x^2+45.5,sin(Pi/2)*x+cos(Pi/2)*(0.05)*x^2+11.5,x=-3.75..3.75],color=plum,thickness=2):

> p106:=plot([cos(Pi/2)*x+sin(Pi/2)*(.055)*x^2+51,sin(Pi/2)*x+cos(Pi/2)*(0.05)*x^2+10,x=-1.75..1.75],color=aquamarine,thickness=2):

> p107:=plot([t,(-.003)*t^2-(1),t=38..52],color=blue,thickness=4):

> p108:=plot([t,(-.003)*t^2+1,t=19..45],color=turquoise,thickness=4):

> p109:=plot(-1,x=26..36,color=turquoise,thickness=4):

> p110:=plot(-1,x=50.5..55,color=turquoise,thickness=4):

> p111:=plot(-2,x=28..56,color=turquoise,thickness=5):

> p112:=plot(-3,x=28..56,color=turquoise,thickness=4):

> p113:=plot(-4,x=42..56,color=turquoise,thickness=4):

> p114:=plot(-5,x=42..56,color=turquoise,thickness=4):

> p115:=plot(-6,x=44..56,color=turquoise,thickness=4):

> p116:=plot(-7,x=48..56,color=turquoise,thickness=4):

> p117:=plot(-8,x=52..56,color=turquoise,thickness=4):

>

>

> display(p1,p2,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,p43,p44,p45,p46,p47,p48,p49,p50,p51,p52,p53,p54,p55,p56,p57,p58,p59,p60,p61,p62,p63,p64,p65,p66,p67,p68,p69,p70,p71,p72,p73,p74,p75,p76,p77,p78,p79,p80,p81,p82,p83,p84,p85,p86,p87,p88,p89,p90,p91,p92,p93,p94,p95,p96,p97,p98,p99,p100,p101,p102,p103,p104,p105,p106,p107,p108,p109,p110,p111,p112,p113,p114,p115,p116,p117);

[Plot]

>

>

>