File:Tschirnhausen_cubic.png
De Wikipedia, la enciclopedia encyclopedia
![Archivo:Tschirnhausen cubic.png](http://upload.wikimedia.org/wikipedia/commons/thumb/2/26/Tschirnhausen_cubic.png/402px-Tschirnhausen_cubic.png)
Tamaño de esta previsualización: 402 × 599 píxeles. Otras resoluciones: 161 × 240 píxeles · 322 × 480 píxeles · 516 × 768 píxeles · 1100 × 1638 píxeles.
Ver la imagen en su resolución original (1100 × 1638 píxeles; tamaño de archivo: 63 kB; tipo MIME: image/png)
![]() |
Este es un archivo de Wikimedia Commons, un depósito de contenido libre hospedado por la Fundación Wikimedia. Más abajo se reproduce su página de descripción con la información sobre su origen y licencia. |
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. |
Source code (MATLAB)
% Tschirnhausen cubic illustration
function main()
% linewidth and font size
lw= 6;
fs = 20;
% colors
red=[0.867 0.06 0.14];
blue = [0, 129, 205]/256;
green = [0, 200, 70]/256;
black = [0, 0, 0];
white = 0.99*[1, 1, 1];
N=500; % number of points (don't make it big, code will be slow)
Lx1 = -5; Lx2 = 5; Ly1 = -4; Ly2 = -Ly1;
bd = 0.1;
for i = 1:1
% Set up the plotting window
figure(1); clf; set(gca, 'fontsize', fs, 'linewidth', lw/4);
hold on; axis equal; grid on;
figure(2); clf; hold on; axis equal; axis off;
[X, Y]=meshgrid(linspace(Lx1, Lx2, N), linspace(Ly1, Ly2, N));
x = X; y = Y;
a = 1; b = 1;
Z = y.^2-(x.^3+3*x.^2);
% graph the curves using 'contour' in figure (2)
figure(2); [c, stuff] = contour(X, Y, Z, [0, 0]);
% extract the curves from c and graph them in figure(1) using 'plot'
% need to do this kind of convoluted work since plot2svg can't save
% the result of 'contour' but can save the result of 'plot'
[m, n] = size(c);
while n > 0
l=c(2, 1);
x=c(1,2:(l+1)); y=c(2,2:(l+1)); % get x and y of contours
figure(1); plot(x, y, 'color', red, 'linewidth', lw/2);
c = c(:, (l+2):n);
[m, n] = size(c);
% Lx1 = min(Lx1, min(x) - bd); Lx2 = max(Lx2, max(x) + bd);
% Ly1 = min(Ly1, min(y) - bd); Ly2 = max(Ly2, max(y) + bd);
Lx1 = min(x) - bd; Lx2 = max(x) + bd;
Ly1 = min(y) - bd; Ly2 = max(y) + bd;
end
figure(1); axis equal; axis([-3.2 2 -4 4]);
end
saveas(gcf, 'Tschirnhausen cubic.eps', 'psc2')
Leyendas
Añade una explicación corta acerca de lo que representa este archivo
Elementos representados en este archivo
representa a
14 jul 2007
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 | 16:31 14 jul 2007 | ![]() | 1100 × 1638 (63 kB) | Oleg Alexandrov | {{Information |Description=Illustration of Tschirnhausen cubic |Source=self-made with en:Matlab |Date= ~~~~~ |Author= Oleg Alexandrov }} {{PD-self}} ==Source code (MATLAB)== <pre> <nowiki> % Ts |
Usos del archivo
No hay páginas que enlacen a este archivo.
Uso global del archivo
Las wikis siguientes utilizan este archivo: