Album Espace 2

 input geometriesyr16;
 
 unit:=1cm;
 

 beginfig(1);
 %figureespace(-2u,-2u,2u,2.5u);
 %trace feuillet;
   Initialisation(10,45,30,500);
   InitialiseParametre(-pi/2,pi/2,pi/15,-pi,pi,pi/15);
   FamilleDesCourbesEnU;
   FamilleDesCourbesEnV;
 %  finespace;
 endfig;
 
 

 beginfig(2);
 %figureespace(-2u,-2u,2u,2.5u);
 %trace feuillet;
   Initialisation(10,45,30,500);
   InitialiseParametre(-pi,0,pi/15,-pi,pi,pi/15);
   FamilleDesCourbesEnU;
   FamilleDesCourbesEnV;
 %  finespace;
 endfig;
 

 beginfig(3);
 %figureespace(-2u,-2u,2u,2.5u);
 %trace feuillet;
   Initialisation(10,45,30,500);
   InitialiseParametre(-pi/2,pi/pi,pi/20,0,pi,pi/20);
   FamilleDesCourbesEnU;
   FamilleDesCourbesEnV;
 %  finespace;
 endfig;
 
 vardef FX(expr t,v)=t
 enddef;
 
 vardef FY(expr t,v)=v
 enddef;
 
 vardef FZ(expr t,v)=t*t-v*v
 enddef;
 
 

 beginfig(4);
 %figureespace(-2u,-2u,2u,2.5u);
 %trace feuillet;
   Initialisation(10,60,30,200);
   InitialiseParametre(-1,1,0.1,-1,1,0.1);
   FamilleDesCourbesEnU;
   FamilleDesCourbesEnV;
 % finespace;
 endfig;
   
 vardef FX(expr t,v)=3*cosd(c*t)*cosd(c*v)
 enddef;
 
 vardef FY(expr t,v)=1.5*cosd(c*t)*sind(c*v)
 enddef;
 
 vardef FZ(expr t,v)=1*sind(c*t)
 enddef;
 
 

 beginfig(5);
 %figureespace(-2.5u,-1.5u,2u,1.5u);
 %trace feuillet;
 %beginfig(5);%Surface Ellipsoide
   Initialisation(10,60,30,200);
   InitialiseParametre(-pi/2,pi/2,pi/20,-pi,pi,pi/20);
   FamilleDesCourbesEnU;
   FamilleDesCourbesEnV;
 %finespace;
 endfig;
 
 vardef FX(expr t,v)=(2+1*cosd(c*t))*cosd(c*v)
 enddef;
 
 vardef FY(expr t,v)=(2+1*cosd(c*t))*sind(c*v)
 enddef;
 
 vardef FZ(expr t,v)=sind(c*t)
 enddef;
 
 

 beginfig(6);
 %figureespace(-2.5u,-2u,3u,2.5u);
 %trace feuillet;
   Initialisation(10,30,30,200);
   InitialiseParametre(-pi,pi,pi/20,-pi,pi,pi/20);
   FamilleDesCourbesEnU;
   FamilleDesCourbesEnV;
 %  finespace;
 endfig;
 
 vardef FX(expr t,v)=(1.5+1.5*cosd(c*t))*cosd(c*v)
 enddef;
 
 vardef FY(expr t,v)=(1.5+1.5*cosd(c*t))*sind(c*v)
 enddef;
 
 vardef FZ(expr t,v)=1.5sind(c*t)
 enddef;
 
 

 beginfig(7);
 %figureespace(-3unit,-3unit,5unit,3unit);
 %trace feuillet;
   Initialisation(10,30,30,200);
   InitialiseParametre(-pi,pi,pi/20,-pi,pi,pi/20);
   FamilleDesCourbesEnU;
   FamilleDesCourbesEnV;
 %finespace;
 endfig;
 
 vardef FX(expr t,v)=v*cosd(c*t)*sind(30)
 enddef;
 
 vardef FY(expr t,v)=v*sind(c*t)*sind(30)
 enddef;
 
 vardef FZ(expr t,v)=v*cosd(30)
 enddef;
 
 

 beginfig(8);
 %figureespace(-3unit,-7unit,6unit,2unit);
 %trace feuillet;
   Initialisation(5,60,10,300);
   InitialiseParametre(-pi,pi,pi/15,-2,-0.5,0.1);
   FamilleDesCourbesEnU;
   FamilleDesCourbesEnV;
 %  finespace;
 endfig;
 
 

 beginfig(9);
 %figureespace(-3unit,-5unit,6unit,1.5unit);
 %trace feuillet;
   Initialisation(5,60,10,300);
   InitialiseParametre(-pi/2,2*pi/3,pi/15,-2,-0.5,0.1);
   FamilleDesCourbesEnU;
   FamilleDesCourbesEnV;
 %finespace;
 endfig;
 end