12-5-1.mp

需要通过验证才能下载！希望大家多多合作！否则不能下载！请谅解！

% 12-5-1.mp
beginfig(1);
u:=1mm;
draw (0,0)..(20u,13u)..(13u,30u)..(3u,23u)--(8u,16u)--cycle;
draw (30u,0)..(50u,13u)..(43u,30u)..(33u,23u)..(38u,16u)
..cycle;
endfig;

beginfig(2);
u:=1mm;
z1=-z2=(25u,0);
x3=-x6=35u;
x3-2y3=x6+2y6=5u;
z4=1/3[z3,z6];
z5=2/3[z3,z6];
z20=whatever[z1,z3]=whatever[z2,z4];
z30=whatever[z1,z4]=whatever[z2,z5];
z40=whatever[z1,z5]=whatever[z2,z6];
draw z1--z20--z2--z30--z1--z40--z2;
pickup pencircle scaled 1pt;
draw z1--z2;
draw z3--z6;
endfig;

beginfig(3);
u:=1mm;
z0 = (0,0);    z1 = (60,40);
z2 = (40,90);  z3 = (10,70);
z4 = (30,50);
draw z0..z1{up}..z2{left}..z3..z4;
endfig;

beginfig(4);
u:=1mm;
z0 = (0,0);    z1 = (25u,5u);
z2 = (50u,0);
draw z0{up}..z1{right}..z2{down};
endfig;

beginfig(5);
u:=1mm;
z0 = (0,0);    z1 = (25u,5u);
z2 = (50u,0);
draw z0{up}...z1{right}...z2{down};
endfig;

beginfig(6);
u:=1mm;
z0 = (0,0);    z1 = (10u,8u);
z2 = (40u,8u);  z3 = (50u,0);
draw z0..z1..z2..z3;
endfig;

beginfig(7);
u:=1mm;
z0 = (0,0);    z1 = (10u,8u);
z2 = (40u,8u);  z3 = (50u,0);
draw z0..z1..tension 1.3..z2..z3;
endfig;

beginfig(8);
u:=1mm;
z0 = (0,0);    z1 = (10u,8u);
z2 = (40u,8u);  z3 = (50u,0);
draw z0..z1..tension 1.8 and 1..z2..z3;
endfig;

beginfig(9);
u:=1mm;
d=15u;
z0 = (0,0);    z1 = (-6u,17u);
z2 = (0,34u);
for i=0 upto 2:
  draw z0 shifted (i*d,0){curl i}..z1 shifted (i*d,0)..{curl i}z2 shifted (i*d,0);
endfor
draw z0 shifted (3d,0){curl infinity}..z1 shifted (3d,0)..{curl infinity}z2 shifted (3d,0);
endfig;

beginfig(10);
a=.7in; b=.5in;
z0=(0,0);
z1=-z3=(a,0);
z2=-z4=(0,b);
draw z1..z2..z3..z4..cycle;
draw z1--z0--z2;
label.top("a", .5[z0,z1]);
label.lft("b", .5[z0,z2]);
dotlabel.bot("(0,0)", z0);
endfig;

beginfig(11);
numeric u;
u = 1cm;
draw (0,2u)--(0,0)--(4u,0);
pickup pencircle scaled 1pt;
draw (0,0){up}
  for i=1 upto 8: ..(i/2,sqrt(i/2))*u  endfor;
label.lrt(btex $\sqrt x$ etex, (3,sqrt 3)*u);
label.bot(btex $x$ etex, (2u,0));
label.lft(btex $y$ etex, (0,u));
endfig;

beginfig(13);
path p;
p = (-1cm,0)..(0,-1cm)..(1cm,0);
fill p{up}..(0,0){-1,-2}..{up}cycle;
draw p..(0,1cm)..cycle;
endfig;

beginfig(14);
path a, b, aa, ab;
a = fullcircle scaled 30mm;
b = a shifted (15mm,0);
aa = halfcircle scaled 30mm rotated -90;
ab = buildcycle(aa, b);
picture pa, pb;
pa = thelabel(btex $A$ etex, (-7.5mm,0));
pb = thelabel(btex $B$ etex, (22.5mm,0));
fill a withcolor .8white;
fill b withcolor .8white;
fill ab withcolor .5white;
unfill bbox pa;
draw pa;
unfill bbox pb;
draw pb;
label.top(btex $U$ etex, (7.5mm,17mm));
draw bbox currentpicture;
endfig;

beginfig(16);
z[-1]=(0,0); z0=(1in,0);
for i=1 upto 6:
  z[i]-z[i-2] = (0,-15pt);
  if x[i]=0: label.lft(decimal i, z[i]);
  fi
endfor
drawarrow z1..z2;
drawdblarrow z3..z4;
ahlength:=8; ahangle:=20;
drawarrow z5..z6;
label.rt(btex 2 \tt\ drawarrow z1..z2 etex, z2);
label.rt(btex 4 \tt\ drawdblarrow z3..z3 etex, z4);
label.rt(btex 6 \tt\ ahlength:=8; ahangle:=20; etex, z6);
endfig;

end