> with(plots);

Warning, the name changecoords has been redefined

> with(student);

Border Plots

> p1:= plot(3,x=0..12,y=2.9..24, scaling = constrained):

> p2:= plot(23.5,x=0..12,y=2.9..24):

> p3:= plot([0.1,t,t=3..23.5]):

> p4:= plot([12,t,t=3..23.5]):

left snout

> p5:= plot(-(x-5.5)+9.8,x=5.5..7.15):

bottom left snout

> p6:= plot(2*(x-6)+6,x=6..7.15):

bottom left nose

> p7:= plot(6*(x-7.5)^2+3,x=6.9..7.5):

left of nose

> p8:= plot(-(x-6)+6,x=6..6.9):

upper left nose

> p9:= plot(-2*(x-7.9)^2+7.2,x=6.9..7.8):

>

bottom of upper ear

> p11:= plot(.8*(x-7.5)+20,x=7.5..12):

>

upper left of left eye

> p12:= plot(1.3*(x-6)+13,x=6..7.1):

upper right of left eye

> p13:= plot(-1.5*(x-7.1)+14.4,x=7.1..8.2):

upper mouth

> p14:= plot(-sin(.4*(x-7))+12,x=2..12):

bottom left of left eye

> p15:= plot(-(x-6)+13,x=6..7):

bottom right of left eye

> p16:= plot(2.5*(x-7.5)^2+11.8, x=7.5..8.15):

Circle by left of eye

> p17:= plot([cos(x)+4.8,sin(x)+13.8,x=-Pi/1.6..Pi/3]):

>

Upper Right Eye

> p18:= plot(.2*ln(x-8)+12.3,x=8.2..11):

Lower Left Right Eye

> p19:= plot(.8*(x-9.2)^2+11.31,x=8.2..9):

Lower Right Right Eye

> p20:= plot(.353*(x-9.2)^2+11.31,x=9..11):

Center Head Wrinkle

> p21:= plot(-30*(x-8.5)^2+17.8,x=8.5..8.8):

> p22:= plot(10*(x-9.3)^2+13,x=8.8..9.3):

> p23:= plot(.2*(x-9.6)^2+12.8,x=9.6..12):

nose highlight

> p10:= plot([sin(3*x)*cos(x)+7.9,sin(3*x)*sin(x)+5.8,x=(Pi)/3..(2*Pi)/3]):

right half of nose

> p24:= plot([4.4*sin(3*x)*cos(x)+7.85,4.4*sin(3*x)*sin(x)+7.2,x=(1.4*Pi)/3..(2*Pi)/3]):

right side of nose

> p25:= plot([2.7*cos(x)+7,2.7*sin(x)+7,x=-.28*Pi..0.08]):

> p26:= plot((x-9.8)+7.3,x=9.7..10.3):

> p27:= plot([10.3,t,t=7.8..8.3]):

> p28:= plot(-1.3*(x-10.3)+8.25,x=9.8..10.3):

> p29:= plot(0.8*(x-9.8)+8.9,x=9.8..10.6):

> p30:= plot(-.2*(x-10.3)^2+7.8,x=10.3..12):

left of snout -this is a sweet function!

> p31:= plot([2.5*cos(3*x)+3.9,x+2.6,x=6.3..7.3]):

> p32:= plot(.3*cos(.5*(x-12))+11,x=2.5..7):

> p33:= plot(.7*(x-5.4)+9.7,x=5.47..6.9):

Nose Markers

> p34:= plot(-.2*(x-7.8)+10.5,x=7.8..8.7):

> p35:= plot(-.2*(x-8)^2+10.2,x=8..8.9):

> p36:= plot(-.2*(x-7.9)^2+9.5,x=7.9..8.6):

side of mouth

> p37:= plot([-cos(x)+1.8,1.5*x+1.3,x=5.3..7.48]):

> p38:= plot([.05*x^2+1.1,0.5*x+8.7,x=1.35..2.45]):

> p39:= plot(-.2*(x-2)^2+12.9,x=1.1..2.2):

> p40:= plot(-(x-1)+12.9,x=1.15..1.6):

> p41:= plot(.4*(x-3.5)^2+7.3,x=3.5..5.65):

> p42:= plot(-1.4*(x-4.4)^2+7.1,x=3.2..4.2):

> p43:= plot(-.3*(x-3.5)+7.3,x=3.5..4.3):

> p44:= plot(.1*(x+4)^2+3,x=0.1..3.55):

> p45:= plot(1.4*(x-2.6)+8.4,x=2.6..3.4):

> p46:= plot(-.38*(x-3.5)^2+8.7,x=2.5..3.5):

> p47:= plot((x-3.2)+5.2,x=3.2..3.8):

> p48:= plot([3.8,t,t=4.3..5.8]):

> p49:= plot(-.1*(x-3.9)^2+4.5,x=1.2..3.83):

thumb

> p50:= plot([3.8*cos(x)+6.3,3.8*sin(x)+1.4,x=2.2..2.72]):

> p51:= plot(-.05*(x-2.3)^2+3.8,x=.5..3.3):

> p52:= plot([.3*(x+34.9),arccos(x)+3.5,x=-1..0]):

> p53:= plot(-.4*(x-8.9)^2+6.1,x=10.5..12):

> p54:= plot(6*(x-9)^2+3,x=9..9.5):

> p55:= plot(-6*(x-9)^2+6,x=9.28..9.5):

> p56:= plot(-(x-8.5)^2+3.3,x=8.5..9.21):

right body under right arm

> p57:= plot(2*(x-10.3)^2+2.5,x=10..11.18):

> p58:= plot(-.1*(x-5)^2+4.55,x=4..7.05):

> p59:= plot(-.4*(x-11.46)^2+9.8,x=10.5..11.8):

left eye ball

> p60:= plot([.3*cos(x)+7.1,.3*sin(x)+14,x=Pi..6.26]):

right eye ball

> p61:= plot([.3*cos(x)+8.5,.3*sin(x)+12,x=-1.4..1]):

>

top of left ear

> p63:= plot([.21*x^2+7,x+19,x=2.1..4.5]):

> p64:= plot([.4*x^2+7.2,x+21,x=0..1.2]):

> p65:= plot(-4*(x-7.99)+21,x=7.7..7.94):

> p66:= plot(-(x-7.7)+20.5,x=6.5..7.2):

> p67:= plot(-10*(x-6.5)+22,x=6.53..6.67):

> p68:= plot(-.5*(x-5.8)+20.8,x=5.8..6.8):

> p69:= plot(-5*(x-6.0)+20,x=5.85..6.2):

> p70:= plot(-.5*(x-6.5)^2+17,x=4.2..5.8):

> p71:= plot([-x^2+6.28,4*x+18,x=-.2..0.4]):

> p72:= plot(.6*(x-5)^2+16.4,x=5.5..6.3):

> p73:= plot(-.8*(x-5)^2+14.8,x=4.3..5.4):

> p74:= plot(30*(x-7.3)+14,x=7.42..7.5):

> p75:= plot(-.6*(x-8)^2+17.99,x=7.4..8.6):

> p76:= plot(.3*(x-7.5)^2+17,x=8.99..10):

> p77:= plot(.7*(x-10.1)+19.2,x=9.3..12):

> p78:= plot(.1*(x-9.8)+18.8,x=9.4..9.99):

> p62:= plot(-.5*(x-8.5)^2+17.8,x=8.5..11.45):

> p79:= plot((x-10)+17,x=9.85..12):

> p80:= plot(.23*(x-8.5)^2+15.7,x=10.2..12):

> p81:= plot(.5*(x-11)+16,x=10.6..12):

> p82:= plot((x-3)+2,x=4..4.8):

> p83:= plot((x-3.8)+2,x=4..5.6):

> p84:= plot((x-4.5)+2,x=4..5.99):

>

> 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,p65,p66,p67,p68,p69,p70,p71,p72,p73,p74,p75,p76,p77,p78,p79,p80,p81,p82,p83,p84);