Fichier surfaces.mp (figure 8) — Modifié le 28 Mars 2008 à 21 h 33

surfaces.mp (figure 8)
Source

prologues:=2;

input geometriesyr16;

unit:=1cm;

figureespace(-2u,-2u,2u,2.5u);
Initialisation(10,45,30,500);
InitialiseParametre(-pi/2,pi/2,pi/15,-pi,pi,pi/15);
FamilleDesCourbesEnU;
FamilleDesCourbesEnV;
finespace;

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

figureespace(-2u,-2u,2u,2.5u);
  Initialisation(10,45,30,500);
  InitialiseParametre(-pi/2,pi/pi,pi/20,0,pi,pi/20);
  FamilleDesCourbesEnU;
  FamilleDesCourbesEnV;
finespace;

vardef FX(expr t,v)=t
enddef;

vardef FY(expr t,v)=v
enddef;

vardef FZ(expr t,v)=t*t-v*v
enddef;

figureespace(-2u,-2u,2u,2.5u);
  Initialisation(10,60,30,200);
  InitialiseParametre(-1,1,0.1,-1,1,0.1);
  FamilleDesCourbesEnU;
  FamilleDesCourbesEnV;
finespace;
  
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;

figureespace(-2.5u,-1.5u,2u,1.5u);
  Initialisation(10,60,30,200);
  InitialiseParametre(-pi/2,pi/2,pi/20,-pi,pi,pi/20);
  FamilleDesCourbesEnU;
  FamilleDesCourbesEnV;
finespace;

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;

figureespace(-2.5u,-2u,3u,2.5u);
  Initialisation(10,30,30,200);
  InitialiseParametre(-pi,pi,pi/20,-pi,pi,pi/20);
  FamilleDesCourbesEnU;
  FamilleDesCourbesEnV;
finespace;

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;

figureespace(-3unit,-3unit,5unit,3unit);
  Initialisation(10,30,30,200);
  InitialiseParametre(-pi,pi,pi/20,-pi,pi,pi/20);
  FamilleDesCourbesEnU;
  FamilleDesCourbesEnV;
finespace;

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;

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

figureespace(-3unit,-5unit,6unit,1.5unit);
  Initialisation(5,60,10,300);
  InitialiseParametre(-pi/2,2*pi/3,pi/15,-2,-0.5,0.1);
  FamilleDesCourbesEnU;
  FamilleDesCourbesEnV;
finespace;

end