Namespaces
Variants
Actions

Difference between revisions of "User:EddieBates/Asymptote-testing"

From Encyclopedia of Mathematics
Jump to: navigation, search
Line 1: Line 1:
 +
<asy>
 +
size(10cm);
 +
 +
path g=box((-1,-1),(1,1));
 +
pen [] col= new pen[]{gray,yellow};
 +
real k=sqrt(10)/4;
 +
transform T=scale(k)*rotate(degrees(acos(17/(16*k*sqrt(2)))));
 +
int nb=10;
 +
 +
for (int i=0; i<nb; ++i) filldraw(T^i*g,col[i%2]);
 +
</asy>
 +
 +
 
<asy>
 
<asy>
 
size(10cm,0);
 
size(10cm,0);
Line 17: Line 30:
  
 
tree(trk,12,a=25,b=40,r=.75);
 
tree(trk,12,a=25,b=40,r=.75);
</asy>
 
 
<asy>
 
import graph3;
 
ngraph=200;
 
size(12cm,0);
 
currentprojection=orthographic(-4,-4,5);
 
 
real x(real t), y(real t), z(real t);
 
 
real R=2;
 
void xyzset(real s){
 
  x=new real(real t){return (R+s*cos(t/2))*cos(t);};
 
  y=new real(real t){return (R+s*cos(t/2))*sin(t);};
 
  z=new real(real t){return s*sin(t/2);};
 
}
 
 
 
int n=ngraph;
 
real w=1;
 
real s=-w, st=2w/n;
 
path3 p;
 
triple[][] ts;
 
for (int i=0; i <= n; ++i) {
 
  xyzset(s);
 
  p=graph(x,y,z,0,2pi);
 
 
  ts.push(new triple[] {});
 
  for (int j=0; j <= ngraph; ++j) {
 
    ts[i].push(point(p,j));
 
  }
 
  s += st;
 
}
 
 
pen[] pens={black, yellow, red, yellow, black};
 
draw(surface(ts, new bool[][]{}), lightgrey);
 
for (int i=0; i <= 4; ++i) {
 
  xyzset(-w+i*w/2);
 
  draw(graph(x,y,z,0,2pi), 2bp+pens[i]);
 
}
 
 
</asy>
 
</asy>

Revision as of 15:32, 22 October 2014


How to Cite This Entry:
EddieBates/Asymptote-testing. Encyclopedia of Mathematics. URL: http://encyclopediaofmath.org/index.php?title=EddieBates/Asymptote-testing&oldid=33990