Advertisement
Guest User

Untitled

a guest
Jun 15th, 2015
422
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. include graph;
  2.  size(15cm);
  3.  real su=1.5;
  4.  for(int k=0;k<4;++k){
  5.  draw(circle((4k,su),1),black+linewidth(1.3pt));
  6.  draw(circle((4k,-su),1),black+linewidth(1.3pt));
  7.  label("$"+string(k+2)+"$",(4k,su),fontsize(30pt));
  8.  label("$"+string(k+6)+"$",(4k,-su),fontsize(30pt));
  9.  if(k!=0){
  10.      draw((4(k-1)+cos(pi/6),su+sin(pi/6))..(4k-2,su+0.9)..(4k-cos(pi/6),su+sin(pi/6)),black+linewidth(1.3pt));
  11.      label("$a_1$",(4k-2,su+0.4),fontsize(15pt));
  12.      draw((4(k-1)+cos(pi/6),-su-sin(pi/6))..(4k-2,-su-0.9)..(4k-cos(pi/6),-su-sin(pi/6)),black+linewidth(1.3pt));
  13.      label("$a_2$",(4k-2,-su-0.4),fontsize(15pt));
  14.  }
  15.  }
  16.  filldraw(circle((-3.2,0),1),green,black+linewidth(1.3pt));
  17.  filldraw(circle((15.2,0),1),red,black+linewidth(1.3pt));
  18.  label("$1$",(-3.2,0),fontsize(30pt));
  19.  label("$10$",(15.2,0),fontsize(30pt));
  20.  draw((-3.2+cos(pi/3),sin(pi/3))..(-2,su)..(-cos(pi/9),sin(pi/9)+su),black+linewidth(1.3pt));
  21.  draw((-3.2+cos(pi/3),-sin(pi/3))..(-2,-su)..(-cos(pi/9),-sin(pi/9)-su),black+linewidth(1.3pt));
  22.  draw((12+cos(pi/9),su+sin(pi/9))..(14,su)..(15.2-cos(pi/3),sin(pi/3)),black+linewidth(1.3pt));
  23.  draw((12+cos(pi/9),-su-sin(pi/9))..(14,-su)..(15.2-cos(pi/3),-sin(pi/3)),black+linewidth(1.3pt));
  24.  label("$a_1$",(-1.7,1.15),fontsize(15pt));
  25.  label("$a_2$",(-1.7,-1.15),fontsize(15pt));
  26.  label("$a_1$",(13.7,1.15),fontsize(15pt));
  27.  label("$a_2$",(13.7,-1.15),fontsize(15pt));
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement