> with(student):

> with(plots):

Warning, the name changecoords has been redefined

CALVIN'S

expression after his last day of multivariable calculus class...

> p1:=plot(0,x=0..40,y=0..40, scaling = constrained,color=black):

> pframe1:=plot([0,t,t=0..40],color=black):

> pframe2:=plot([40,t,t=0..40],color=black):

> pframe3:=plot([t,40,t=0..40],color=black):

left eye:

> for i from 10 to 50 do lefteye[i]:=plot([(.01*i)*cos(2*t)+12,(.03*i)*sin(2*t)+22,t=-2*Pi..2*Pi],color=black,thickness=3):od:

right eye:

> for k from 10 to 50 do

righteye[k]:=plot([(.01*k)*cos(2*t)+15,(.03*k)*sin(2*t)+22, t=-2*Pi..2*Pi],color=black,thickness=3):

> od:

hair:

> p2:=plot([t,24,t=28.5..29.5],color=gold):

> p3:=plot([29.5,t,t=24..24.5],color=gold):

> p4:=plot([t,24.5,t=29.5..30],color=gold):

> p5:=plot([30,t,t=24.5..25],color=gold):

> p6:=plot([t,25,t=29.5..30],color=gold):

> p7:=plot([29.5,t,t=25..25.5],color=gold):

> p8:=plot([t,25.5,t=29..29.5],color=gold):

> p9:=plot([29,t,t=25.5..25.75],color=gold):

> p10:=plot([t,26, t=5..6.15],color=gold):

> p11:=plot([(t-9)+28,(2*t)+5.5,t=10..10.75],color=gold):

> p12:=plot([(t-16)+34.75,(1.1*t)+15, t=10..11],color=gold):

> p13:=plot([t,26,t=28.25..28.75],color=gold):

> p14:=plot([7*cos(.75*t)+14, t+29, t=0..1],color=gold):

> p15:=plot([t,29, t=12..18],color=gold):

> p16:=plot([(t-16)+16,(1.1*t)+20.5, t=5..6],color=gold):

> p17:=plot([t,27,t=5.66..6],color=gold):

> p18:=plot([5.66,t,t=27..27.33],color=gold):

> p19:=plot([t,27.33,t=5.66..6.5],color=gold):

> p20:=plot([(t-9)+27.25,(2.25*t)+3.5,t=10..11.25],color=gold):

> p21:=plot([t,28.75,t=28..29.5],color=gold):

> p22:=plot([28,t,t=28.75..29.5],color=gold):

> p23:=plot([t,29.5,t=27.25..28],color=gold):

> p24:=plot([-(.5)*t+6.75,(-t^2)+27.75,t=0..(.75)],color=gold):

> p25:=plot([t,27.85,t=2..8],color=gold):

> p26:=plot([2,t,t=27.85..30.5],color=gold):

> p27:=plot([t,30.5,t=2..8],color=gold):

> p28:=plot([-(t-16)+2,(3*t)+.5, t=10..11.5],color=gold):

> p29:=plot([t,35,t=6.5..7.75],color=gold):

> p30:=plot([-(t-16)+6.5,(.5*t)+27.55, t=10..15],color=gold):

> p31:=plot([t,32.5,t=12.5..13.5],color=gold):

> p32:=plot([-(t-16)+7.5,(4*t)-7.5, t=10..11.5],color=gold):

> p33:=plot([-(t-16)+13,(t)+22.5, t=10..16],color=gold):

> p34:=plot([t,38.5,t=12..13.15],color=gold):

> p35:=plot([19.05,t,t=32.5..38],color=gold):

> p36:=plot([-(t-16)+16.5,(1.75*t)+14.5, t=10..13.5],color=gold):

> p37:=plot([(t-9)+21.5,(2*t)+12,t=10..11.75],color=gold):

> p38:=plot([-(t-16)+21.25,(2*t)+9.5, t=10..13],color=gold):

> p39:=plot([(3*t^3)+8.25,t+29,t=0..1.55],color=gold):

> p40:=plot([-(3*t^3)+25,t+29.3,t=0..1.25],color=gold):

nose:

> p41:=plot([2*cos(t)+14, -sin(t)+19, t=Pi/2..3*Pi/2],color=black):

> p42:=plot([t+14,-cos(1.5*t)+19, t=0..1],color=black):

mouth:

> p43:=plot([t,14.5,t=13..18],color=black):

ears:

> p44:=plot([5*cos(t)+25, 2.5*sin(t)+19, t=-Pi/2..Pi/2],color=black):

> p45:=plot([3*(sin(2*t)*cos(t))+7,3*(sin(2*t)*sin(t))+19,t=Pi/.607..1.94*Pi],color=black):

facial lines:

> p46:=plot((x-2)-2.5, x=26..28.5,color=black):

> p47:=plot([5/exp(t)+6,t+13, t=0..13],color=black):

> p48:=plot((x-2)-7,x=22..25.5,color=black):

> p49:=plot([t,13,t=11..22],color=black):

shirt:

> p50:=plot([-9*cos(t/1.5)+21, 9*sin(t)+4.5, t=0..1.25],thickness=2):

> p51:=plot([t,4.5,t=12..14],color=red,thickness=2):

> p52:=plot([14,t,t=0..8],thickness=2):

> p53:=plot([22,t,t=0..4.5],thickness=2):

> p54:=plot([9*sin(t)+21, 9*cos(3*t)+4, t=0..(.5)],color=red,thickness=2):

> p55:=plot([t,4.66,t=20.5..25.5],thickness=2):

> p56:=plot([20.5,t,t=4.5..8],thickness=2):

> p57:=plot([t,12,t=14..22.5],color=black,thickness=2):

> p58:=plot([t,10.5,t=13..23.25],color=black,thickness=2):

> p59:=plot([t,9,t=12.5..23.75],color=black,thickness=2):

> p60:=plot([t,7.5,t=12.25..24.5],color=black,thickness=2):

> p61:=plot([t,6,t=12..25],color=black,thickness=2):

> p62:=plot([t,4.5,t=14..20.5],color=black,thickness=2):

> p63:=plot([t,3,t=14..22],color=black,thickness=2):

> p64:=plot([t,1.5,t=14..22],color=black,thickness=2):

arms:

> p66:=plot([2*t+23.55,t^2+1.9,t=-(.3)..(.2)],color=black):

> p67:=plot([3.5*(sin(2*t)*cos(t))+23.3,3.5*(sin(2*t)*sin(t))+0,t=0..Pi/2.5],color=black):

> p68:=plot([23,t,t=2..4.5],color=black):

> p69:=plot([13,t,t=0..4.5],color=black):

>

> 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,p59,p60,p61,p62,p63,p64,p66,p67,p68,p69,lefteye[j] $j=10..50, righteye[q] $q=10..50,pframe1,pframe2,pframe3);

CALVIN'S

expression after his last day of multivariable calculus class...

>

>