Beschrijving

Deze wiskundige afbeelding zou opnieuw moeten worden aangemaakt als een SVG-bestand door vectorafbeeldingen te gebruiken. Dit heeft een aantal voordelen; zie Commons:Media for cleanup voor meer informatie. Als er een SVG-formaat van deze afbeelding bestaat, dan deze graag uploaden. Nadat u dit heeft gedaan, gelieve dit sjabloon te vervangen door het sjabloon {{vector version available|nieuwe bestandsnaam.svg}} op deze afbeeldingspagina.

Data file

This graphic was created in MATLAB using the following code:

%create u-v grid space
u=linspace(0,2*pi,120);
v=linspace(0,2*pi,120);
[u,v]=meshgrid(u,v);

R=0.5;                      %set large radius of torus
r=abs(cos(v/2))*0.2+0.05;   %set small radius to vary with angle

%parametrization
x=(R+r.*cos(u)).*cos(v);
y=(R+r.*cos(u)).*sin(v);
z=r.*sin(u);

H=surf(x,y,z);
hold on;			    %put a hold on this figure
set(H,'FaceColor',[0.25 0.25 0.75],'EdgeColor','none');
set(H,'SpecularColorReflectance', 0.2, 'DiffuseStrength', 0.8);
set(H,'AmbientStrength', 0.3,'FaceLighting','phong');
set(H,'SpecularExponent', 100);

daspect([1 1 1]);   %set ratio of x,y,z axes
axis tight;         %fit axes to figure
axis off;           %don't show axes
view(190, 40);      %set viewing angle
camlight (-50, 54); lighting phong; %add light source

%add another torus to show tightest place on the torus
R2=0.075;
r2=0.025;

x2=(R2+r2.*cos(u)).*cos(v)-0.5;
y2=r2.*sin(u);
z2=(R2+r2.*cos(u)).*sin(v);

H2=surf(x2,y2,z2);
set(H2,'FaceColor',[0.75 0.25 0.25],'EdgeColor','none');
set(H2,'SpecularColorReflectance', 0.2, 'DiffuseStrength', 0.8);
set(H2,'AmbientStrength', 0.5,'FaceLighting','phong');
set(H2,'SpecularExponent', 100);

Licentie

Ik, de auteursrechthebbende van dit werk, geef dit werk vrij in het publieke domein. Dit is wereldwijd van toepassing. In sommige landen is dit wettelijk niet mogelijk; in die gevallen geldt: Ik sta iedereen toe dit werk voor eender welk doel te gebruiken, zonder enige voorwaarden, tenzij zulke voorwaarden door de wet worden voorgeschreven.