Fichier surfaces.mp (figure 8) — Modifié le 28 Mars 2008 à 21 h 33
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