跳转到内容

File:Kampyle Eudoxus.png

页面内容不支持其他语言。
這個文件來自維基共享資源
维基百科,自由的百科全书

原始文件 (622 × 1,092像素,文件大小:13 KB,MIME类型:image/png


摘要

描述 Graph of Kampyle of Eudoxus
日期
来源 自己的作品
作者 Donald Hosek
 
本PNG 位图使用MATLAB创作.

许可协议

Public domain 本作品已被作者Donald Hosek释出到公有领域。这适用于全世界。

在一些国家这可能不合法;如果是这样的话,那么:
Donald Hosek无条件地授予任何人以任何目的使用本作品的权利,除非这些条件是法律规定所必需的。

Source code (MATLAB)

% Kampyle 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 = -3; Lx2 = 3; Ly1 = -4; Ly2 = -Ly1;

   bd = 0.01;
   for i = 1:10

% 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;
	  Z = x.^4-(x.^2+y.^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);
	  end
	  
	  figure(1); axis equal; axis ([Lx1, Lx2, Ly1, Ly2]);
   end

   axis([-2.2 2.2 -4, 4]);
   saveas(gcf, 'Kampyle.eps', 'psc2')

说明

添加一行文字以描述该文件所表现的内容

此文件中描述的项目

描繪內容

文件历史

点击某个日期/时间查看对应时刻的文件。

日期/时间缩⁠略⁠图大小用户备注
当前2017年4月19日 (三) 05:462017年4月19日 (三) 05:46版本的缩略图622 × 1,092(13 KB)Ayane m61% file size reduction
2007年7月14日 (六) 05:212007年7月14日 (六) 05:21版本的缩略图622 × 1,092(34 KB)Oleg Alexandrovtweak, same license
2007年6月15日 (五) 00:342007年6月15日 (五) 00:34版本的缩略图1,305 × 913(53 KB)Donald Hosek{{Information |Description=Graph of Kampyle of Eudoxus |Source=self-made |Date=14 June 2007 |Author= Donald Hosek }}

以下页面使用本文件:

全域文件用途

以下其他wiki使用此文件: