Zhi_Li.mw

> with(plots):

Warning, the name changecoords has been redefined

> p1:=plot(sqrt(1-x^2), x=-2..2,color=black, thickness=3):

>

> p2:=plot(7/5*x+1.1, x=-.071..0.250,color=black, thickness=3):

> p3:=plot(-13*x+13*.35+1.7, x=.37..0.41,thickness=3, color=black):

>

> p4:=plot([.15*cos(t)+.6,.17*sin(t)-2, t=0..2*Pi], color=black, thickness=3):

> p40:=plot([.15*cos(t)+.36,.17*sin(t)+1.60, t=0..2*Pi], color=black, thickness=3):

> p41:=plot([.15*cos(t)-.4,.17*sin(t)-1.56, t=0..2*Pi], color=black, thickness=3):

>

> p6:=plot(-.75*arcsin(x)-1.1, x=-1..-0.4,color=black, thickness=3):

> p5:=plot(-.04/((x)^2+.02)-.56, x=-.5..-0.1, y=-8..2.5, color=black,thickness=3):

> p12:=plot(-.04/((x)^2+.02)-.56, x=.1..0.5, y=-8..2.5, color=black, thickness=3):

> p7:=plot(.75*arcsin(x)-1.1, x=.4..1, color=black, thickness=3):

> p8:=plot([.8*cos(2*t)+1.1, 1.2*sin(2*t)+.14,t=-Pi/2.65..Pi/2.545],color=black, thickness=3):

> p9:=plot([.8*cos(2*t)-1.1, 1.2*sin(2*t)+.14,t=Pi/9.3..Pi/1.135], color=black, thickness=3):

> p38:=plot([.05*cos(t)-.4,.05*sin(t)-.4, t=0..2*Pi], color=black, thickness=3):

> p39:=plot([.05*cos(t)+.4,.05*sin(t)-.4, t=0..2*Pi], color=black, thickness=3):

> f:=[[-.4,-.4],[.4,-.4]]:

> p10:=plot(f, style=point, symbolsize=10, symbol=circle, color=black, thickness=3):

> p11:=plot([.18*cos(2*t),.18*sin(2*t)-1.89, t=Pi/2.7..Pi+.5], color=black, thickness=3):

> p13:=plot(-4/8*x+(-1.6), x=.12..0.5, color=black, thickness=3):

> p14:=plot(-4/8*x+(-1.85), x=.11..0.49, color=black, thickness=3):

> p15:=plot(-4/8*x+(-1.6), x=-.28..-.15, color=black, thickness=3):

> p16:=plot(-4/8*x+(-1.85        ), x=-0.3..-.13, color=black, thickness=3):

> p17:=plot(-8.5*(x+.23)^3-5.2, x=-1.016..-.90, color=black, thickness=3):

> p18:=plot(8.5*(x-.23)^3-5.2, x=.90..1.016, color=black, thickness=3):

> p19:=plot(cos(x*4*Pi)/(2.7*Pi)-2.345, x=-.9..-.005, thickness=3,color=black):

> p20:=plot(cos(x*4*Pi)/(2.7*Pi)-2.345,x=.005..0.9, thickness=3, color=black):

> p21:=plot(.005*(x^3)-2.65,x=-.77..-.005, thickness=3,color=black):

> p22:=plot(.005*x^3-2.65,x=.005..0.77,thickness=3,color=black):

> p25:=plot(cos(x*4.1*Pi+.7)/(9.6*Pi)-2.619, x=-.9..-.04, thickness=3,color=black):

> p26:=plot(cos(x*(-4.1)*Pi+.7)/(9.6*Pi)-2.619, x=.04..0.9, thickness=3,color=black):

> p23:=plot([1.5*cos(2*t)-0,.6*sin(2*t)-2.63, t=Pi/2.78...Pi+.445], thickness=3,color=black):

> p27:=plot(20*x-2.14, x=-0.0253..0,color=black, thickness=3):

> p24:=plot([1.7*cos(2*t)-0,.6*sin(2*t)-4, t=Pi/2.05...Pi+.05], color=black, thickness=3):

> p28:=plot(20*x-2.14, x=-0.0253..0,color=black, thickness=3):

> p29:=plot(-20*x-2.14, x=0..0.0253,color=black, thickness=3):

> p30:=plot(7.2*x+8.25, x=-1.71..-1.51,color=black, thickness=3):

> p31:=plot(-7.2*x+8.25, x=1.51..1.71, color=black, thickness=3):

> p32:=plot(3*x-7.3, x=.93..1.52, color=black, thickness=3):

> p33:=plot(-2*x-2.7, x=.257..0.892, color=black, thickness=3):

> p34:=plot(3*x-4, x=-.2..0.257, color=black, thickness=3):

> p35:=plot(-2*x-5, x=-.925..-.2, color=black, thickness=3):

> p36:=plot(1.2*x-2, x=-1.7..-.925, color=black, thickness=3):

> p37:=polarplot(.35*sin(3*theta),theta=0..Pi, color=black, thickness=3):

> p42:=plot([.15*cos(t)-1,.17*sin(t)-4, t=0..2*Pi], color=black, thickness=3):

> p43:=plot([.15*cos(t)+.3,.17*sin(t)-4.2, t=0..2*Pi], color=black, thickness=3):

> p44:=plot([.15*cos(t)+1.67,.17*sin(t)-3.880, t=Pi/2..3*Pi/2], color=black, thickness=3):

> p45:=plot([.005*cos(t)+1.67,.007*sin(t)-3.880, t=0..2*Pi], color=black, thickness=3):

> p48:=plot([.005*cos(t),.007*sin(t)+.3, t=0..2*Pi], color=black, thickness=3):

> p49:=plot([.005*cos(t)-.051,.007*sin(t)+.2, t=0..2*Pi], color=black, thickness=3):

> p46:=plot([.005*cos(t)-1,.007*sin(t)-4, t=0..2*Pi], color=black, thickness=3):

> p47:=plot([.005*cos(t)+.3,.007*sin(t)-4.2, t=0..2*Pi], color=black, thickness=3):

> p50:=plot([.005*cos(t)+.051,.007*sin(t)+.2, t=0..2*Pi], color=black, thickness=3):

> p51:=plot([.005*cos(t),.007*sin(t)+.1, t=0..2*Pi], color=black, thickness=3):

> p52:=plot([.05*cos(t),.07*sin(t)+.1, t=0..2*Pi], color=black, thickness=3):

>

>

> 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);

[Plot]

>

>

>

>

>

>