![[Plot]](images/Liz_Campbell_1.gif)
| > | with(student): |
| > | with(plots): |
Warning, the name changecoords has been redefined
| > | p1:= polarplot([r^2, r=0..2*Pi], color=blue, scaling=constrained):
|
| > |
Eye balls(outer circles)
| > | p2:= plot([.25*cos(t)+.5, .5*sin(t)+.53, t=0..2*Pi], color=black, thickness=2): |
| > | p3:= plot([.25*cos(t)-.5, .5*sin(t)+.53, t=0..2*Pi], color=black, thickness=2): |
| > |
Nose
| > | p4:=plot([.75*cos(t), .75*sin(t)/2-.25, t=0..2*Pi], color=tan, thickness=2):
|
Eyebrows
| > |
| > | p5:=plot([cos(t+.5)-Pi/2.5,cos(t)+.25,t=-Pi/6..Pi/6], color=black,thickness=6): |
| > | p6:=plot([-cos(t+.5)+Pi/2.5,cos(t)+.25,t=-Pi/6..Pi/6], color=black,thickness=6): |
| > |
Top of mouth
| > | p7:=plot([.6*cos(t), .25*sin(t)-1.065, t=Pi..2*Pi], color=black, thickness=2): |
| > |
Eyes(blue lines)
| > | p8:=plot([-.65*cos(t), -.75*sin(t+.40)+.41, t=5*Pi/3..2*Pi], color=blue, thickness=1): |
| > | p9:=plot([.65*cos(t), -.75*sin(t+.40)+.41, t=5*Pi/3..2*Pi], color=blue, thickness=1): |
| > |
Eyes(inside part, smaller circles)
| > |
| > | p10:=plot([.10*cos(t)+.37, .16*sin(t)+.35, t=0..2*Pi], color=black, thickness=5): |
| > | p11:=plot([-.10*cos(t)-.37, -.16*sin(t)+.35, t=0..2*Pi], color=black, thickness=5): |
| > |
Eyes(blue lines)
| > | p12:=plot([-.68*cos(t), -.75*sin(t+.40)+.47, t=5*Pi/3..2*Pi], color=blue, thickness=1): |
| > | p13:=plot([.68*cos(t), -.75*sin(t+.40)+.47, t=5*Pi/3..2*Pi], color=blue, thickness=1): |
| > |
Chin
| > | p14:=plot([.6*cos(t), .35*sin(t)-1.70, t=Pi..2*Pi], color=tan, thickness=2): |
Mustache
| > | p15:=plot([.5*cos(t), .45*sin(t)-1.2, t=Pi..2*Pi], color=black, thickness=3): |
| > | p16:=plot([cos(.5*t)+1.45, .05*sin(t)-.55, t=3*Pi/2..2*Pi], color=black, thickness=3): |
| > |
| > | p17:=plot([.35*cos(t)+.9, .15*sin(t)-.85, t=31.5*Pi/28..54*Pi/28], color=black, thickness=3): |
| > | p18:=plot([.6*cos(t), .25*sin(t)-.85, t=15*Pi/14..53.5*Pi/28], color=black, thickness=3): |
| > | p19:=plot([.35*cos(t)-.9, .15*sin(t)-.85, t=15*Pi/14..53*Pi/28], color=black, thickness=3): |
| > | p20:=plot([.35*cos(t)+1.4, .22*sin(t)-.7, t=38*Pi/28..61*Pi/28], color=black, thickness=3): |
| > | p21:=plot([.35*cos(t)-1.4, .22*sin(t)-.7, t=23*Pi/28..46*Pi/28], color=black, thickness=3): |
| > | p22:=plot([-cos(.5*t), .05*sin(t)-.55, t=3*Pi/2..2*Pi], color=black, thickness=3): |
| > | p23:=plot([-cos(.5*t)-1.45, .05*sin(t)-.55, t=3*Pi/2..2*Pi], color=black, thickness=3): |
| > | p24:=plot([cos(.5*t), .05*sin(t)-.55, t=3*Pi/2..2*Pi], color=black, thickness=3): |
| > | p25:=plot([.35*cos(t)-1.35, .15*sin(t)-.55, t=15*Pi/14..27*Pi/14], color=black, thickness=3): |
| > | p26:=plot([.35*cos(t)+1.35, .15*sin(t)-.55, t=Pi..2*Pi], color=black, thickness=3): |
| > |
Bottom brim of hat
| > | p27:=plot([2.35*cos(t), 2.35*sin(t)/10+1.2, t=0..Pi], color=red, thickness=2):
|
Tongue
| > | p28:=plot([ ((2-2*sin(theta))*.5*cos(theta))*(0.45), ((2-2*sin(theta)-1.7)*sin(theta))*0.165-1.35, theta=0..Pi], color=red, thickness=2): |
| > |
Cheeks(left,right)
| > | p29:=plot([3*sin(t)/2-.58, 3*cos(t)/2.3-.46, t=Pi..3*Pi/2], color=tan, thickness=2): |
| > | p30:=plot([-3*sin(t)/2+.58, 3*cos(t)/2.3-.46, t=Pi..3*Pi/2], color=tan, thickness=2): |
| > |
| > |
Hair
| > | p31:=plot([-1.2*sin(t)/2+1.5, 1.6*cos(t)/2.3+.7, t=20*Pi/14...26.85*Pi/14], color=black, thickness=3): |
| > | p32:=plot([1.2*sin(t)/2-1.5, 1.6*cos(t)/2.3+.7, t=20*Pi/14...26.85*Pi/14], color=black, thickness=3): |
| > | p33:=plot([.3*sin(t)+1.92, .3*cos(t)+.8, t=17*Pi/20..33*Pi/20], color=black, thickness=3): |
| > | p34:=plot([-.3*sin(t)-1.92, .3*cos(t)+.8, t=17*Pi/20..33*Pi/20], color=black, thickness=3): |
| > | p35:=plot([-.5*sin(t)-1.75, .5*cos(t)+1.45, t=21*Pi/20..29*Pi/20], color=black, thickness=3): |
| > | p36:=plot([.5*sin(t)+1.75, .5*cos(t)+1.45, t=21*Pi/20..29*Pi/20], color=black, thickness=3): |
| > |
Ears
| > | p37:=plot([1*sin(t)/2+2.08, 1.3*cos(t)/2.3, t=0..Pi], color=tan, thickness=2): |
| > | p38:=plot([-1*sin(t)/2-2.08, 1.3*cos(t)/2.3, t=0...Pi], color=tan, thickness=2): |
| > |
Top Brim of hat
| > | p39:=plot([2.35*cos(t), 2.35*sin(t)/10+1.35, t=0..Pi], color=red, thickness=2): |
| > |
Inside circle of hat
| > | p40:=plot([1.05*cos(t), 1.05*sin(t)/2+2.1, t=0..2*Pi], color=red, thickness=2): |
| > |
Outside of hat
| > | p41:=plot([2*cos(t), 2.25*sin(t)/2+2.1, t=0..Pi], color=red, thickness=2): |
| > | p42:=plot([-1.2*sin(t)/2-1.75, 1.6*cos(t)/2.3+1.35, t=7*Pi/14...7.8*Pi/14], color=red, thickness=2): |
| > | p43:=plot([1.2*sin(t)/2+1.75, 1.6*cos(t)/2.3+1.35, t=7*Pi/14...7.8*Pi/14], color=red, thickness=2): |
| > | p44:=plot([1.05*cos(t)-.93, 1.05*sin(t)/2+2.1, t=Pi..6*Pi/4], color=red, thickness=2): |
| > | p45:=plot([-1.05*cos(t)+.93, 1.05*sin(t)/2+2.1, t=Pi..6*Pi/4], color=red, thickness=2): |
M on inside of his hat
| > | p46:=plot(3.5,x=-3.5..3.5, color=white, thickness=1): |
| > | p47:=plot(x+2,x=0..(.3), color=red, thickness=2): |
| > | p48:=plot(-x+2, x=(-.3)..0, color=red, thickness=2): |
| > | p49:=plot(-x+2.2,x=(-.36)..0, color=red, thickness=2): |
| > | p50:=plot(x+2.2,x=0..(.36), color=red, thickness=2): |
| > | p51:=plot(-2.45*x+3.02, x=.3..(.5), color=red, thickness=2): |
| > | p52:=plot(2.45*x+3.02, x=-.5..(-.3), color=red, thickness=2): |
| > | p53:=plot(2.45*x+3.45, x=-.67..(-.37), color=red, thickness=2): |
| > | p54:=plot(-2.45*x+3.45, x=.37..(.67), color=red, thickness=2): |
| > | p55:=plot(1.8, x=.48..(.65), color=red, thickness=2): |
| > | p56:=plot(1.8, x=-.65..(-.48), color=red, thickness=2): |
Top of shirt
| > | p57:=plot([.8*(2.55*cos(.5*t)+.72), 2.1*sin(.5*t)/10-1.97, t=0..Pi], color=blue, thickness=2): |
| > | p58:=plot([.8*(-2.55*cos(.5*t)-.72), 2.1*sin(.5*t)/10-1.97, t=0..Pi], color=blue, thickness=2): |
| > | p59:=plot(-3.5,x=-3.5..3.5, color=white, thickness=1): |
Suspenders
| > | p60:=plot([1.8, t, t = -1.8..-3.5], color = red, thickness=2): |
| > | p61:=plot([-1.8, t, t = -1.8..-3.5], color = red, thickness=2):
|
| > | p62:=plot([1.21, t, t = -1.78..-2.6], color = red, thickness=2): |
| > | p63:=plot([-1.21, t, t = -1.78..-2.6], color = red, thickness=2): |
| > | p64:=plot([1.2*cos(t), .45*sin(t)-2.6, t=Pi..2*Pi], color=red, thickness=2): |
Buttons
| > | p65:=plot([.3*sin(t)-1.25, .3*cos(t)-3.15, t=0..2*Pi], color=yellow, thickness=2): |
| > | p66:=plot([.3*sin(t)+1.25, .3*cos(t)-3.15, t=0..2*Pi], color=yellow, thickness=2): |
| > | 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, p312, 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);
|
| > |