File:Triple torus illustration.png
De Wikimedia Commons, el repositorio multimedia libre
Ir a la navegación
Ir a la búsqueda
![File:Triple torus illustration.png](https://upload.wikimedia.org/wikipedia/commons/thumb/f/f0/Triple_torus_illustration.png/800px-Triple_torus_illustration.png?20080701030145)
Tamaño de esta previsualización: 800 × 563 píxeles. Otras resoluciones: 320 × 225 píxeles | 640 × 450 píxeles | 1024 × 720 píxeles | 1280 × 900 píxeles | 2204 × 1550 píxeles.
Archivo original (2204 × 1550 píxeles; tamaño de archivo: 670 kB; tipo MIME: image/png)
Información del archivo
Datos estructurados
Leyendas
Leyendas
Añade una explicación corta acerca de lo que representa este archivo
DescripciónTriple torus illustration.png | Illustration of a triple torus |
Fecha | (UTC) |
Fuente | Trabajo propio, MATLAB source code below |
Autor | Oleg Alexandrov |
Public domainPublic domainfalsefalse |
![]() |
Yo, el titular de los derechos de autor de esta obra, lo libero al dominio público. Esto aplica en todo el mundo. En algunos países esto puede no ser legalmente factible; si ello ocurriese: Concedo a cualquier persona el derecho de usar este trabajo para cualquier propósito, sin ningún tipo de condición al menos que éstas sean requeridas por la ley. |
function main()
% illustration of a triple torus
% torus radii
r = 1;
R = 3;
Kb = R+r;
Ks = R-r;
% Km controls the smoothness of the transition from one ring to the others
Km = 0.5125*Kb;
L = 2.5*(r+R);
h = 0.2; % grid size
X = (-L):h:L; m = length(X);
Y = (-L):h:L; n = length(Y);
Z = (-1.1*r):h:(1.1*r); k = length(Z);
W = zeros(m, n, k);
for i=1:length(X)
for j=1:length(Y)
x = X(i);
y = Y(j);
[x, y] = triple_torus_function (x, y, r, R, Kb, Km);
val = (sqrt(x^2+y^2)-R)^2-r^2;
W(i, j, :) = val + Z.^2;
end
end
figure(1); clf; hold on;
axis equal; axis off;
light_green=[184, 224, 98]/256; % light green
H = patch(isosurface(X, Y, Z, W, 0));
isonormals(X, Y, Z, W, H);
mycolor = light_green;
set(H, 'FaceColor', mycolor, 'EdgeColor','none', 'FaceAlpha', 1);
set(H, 'SpecularColorReflectance', 0.1, 'DiffuseStrength', 0.8);
set(H, 'FaceLighting', 'phong', 'AmbientStrength', 0.3);
set(H, 'SpecularExponent', 108);
daspect([1 1 1]);
axis tight;
colormap(prism(28))
view(-12, 40);
% add in a source of light
camlight (-50, 54); lighting phong;
print('-dpng', '-r400', ...
sprintf('Triple_torus_illustration.png'));
function [x, y] = triple_torus_function (x, y, r, R, Kb, Km)
% a deformation in the plane, which, when comosed with a torus will give
% a triple torus
% center of one of the torii
O = [-Kb, -Kb/sqrt(3)];
angle = 2*pi/3;
Mat = [ cos(angle) -sin(angle); sin(angle) cos(angle) ];
p =[x, y]';
phi = atan2(y, x);
if phi >= pi/6 & phi <= 5*pi/6
p = Mat*p; % rotate 120 degree counterclockwise
elseif phi >= -pi/2 & phi < pi/6
p = Mat*p; p = Mat*p; % rotate 240 degrees counterclockwise
end
x=p(1); y = p(2);
% reflect against a line, to merge two cases in one
if y > x/sqrt(3)
p = [x, y];
v = [cos(2*pi/3), sin(2*pi/3)];
p = p - 2*v*dot(p, v)/dot(v, v);
x = p(1); y = p(2);
end
if x > O(1)
% project to the y axis, to a point B
if y < O(2)
A = [O(1), y];
B = [0, y];
else
A = O;
p = [x, y];
rho = norm(p-O);
B = O+(Kb/rho)*(p-O);
% t = -O(1)/(x-O(1));
% B = [0, O(2)+t*(y-O(2))];
end
p = [x, y];
d=norm(p-A);
q = norm(B-A);
d = my_map(d, q, Km);
p = (d/q)*B+(1-d/q)*A;
x=p(1); y=p(2);
end
% shift towards the origin
x = x-O(1);
y = y-O(2);
function y = my_map(x, Kb, Km)
if x > Kb
y = Km + 1;
elseif x < Km
y = x;
else
y = Km+sin((pi/2)*(x-Km)/(Kb-Km));
end
Historial del archivo
Haz clic sobre una fecha y hora para ver el archivo tal como apareció en ese momento.
Fecha y hora | Miniatura | Dimensiones | Usuario | Comentario | |
---|---|---|---|---|---|
actual | 03:01 1 jul 2008 | ![]() | 2204 × 1550 (670 kB) | Oleg Alexandrov (discusión | contribs.) | change viewing angle |
02:48 1 jul 2008 | ![]() | 1958 × 1335 (530 kB) | Oleg Alexandrov (discusión | contribs.) | Implementation using isosurface. Much better quality and much simpler than using patches. Will upload source code too. Same license, public domain. | |
04:42 23 jun 2008 | ![]() | 1320 × 1000 (366 kB) | Oleg Alexandrov (discusión | contribs.) | Fix a small imperfection in Gimp | |
02:54 10 sep 2007 | ![]() | 1320 × 1000 (366 kB) | Oleg Alexandrov (discusión | contribs.) | Tweak | |
18:01 7 sep 2007 | ![]() | 372 × 263 (49 kB) | Oleg Alexandrov (discusión | contribs.) | {{Information |Description= Illustration of en:Triple torus |Source=self-made with MATLAB, source code below |Date=~~~~~ |Author= Oleg Alexandrov }} {{PD-self}} ==MATLAB source code== <pre> <nowiki> % illustration of a tripl |
No puedes sobrescribir este archivo.
Usos del archivo
No hay páginas que enlacen a este archivo.
Uso global del archivo
Las wikis siguientes utilizan este archivo:
- Uso en ar.wikipedia.org
- Uso en ca.wikipedia.org
- Uso en cs.wikipedia.org
- Uso en cv.wikipedia.org
- Uso en de.wikipedia.org
- Uso en de.wikiversity.org
- Uso en el.wikipedia.org
- Uso en en.wikipedia.org
- Uso en en.wiktionary.org
- Uso en eo.wikipedia.org
- Uso en es.wikipedia.org
- Uso en eu.wikipedia.org
- Uso en fa.wikipedia.org
- Uso en fi.wikipedia.org
- Uso en fr.wikipedia.org
- Uso en he.wikipedia.org
- Uso en hy.wikipedia.org
Ver más uso global de este archivo.