torus.m

hi i have a huge collection are you interested

function  [xx,yy,zz] = torus(r,n,a)
%TORUS Generate a torus
%      torus(r,n,a) generates a plot of a torus with central
%      radius  a  and lateral radius  r.  n  controls the number
%      of facets on the surface.  These input variables are optional
%      with defaults  r = 0.5, n = 20, a = 1.
%
%      [x,y,z] = torus(r,n,a) generates three (n+1)-by-(2n+1)
%      matrices so that surf(x,y,z) will produce the torus.
% 
%      See also SPHERE, CYLINDER

%%%  Kermit Sigmon, 11-22-93
if nargin < 3, a = 1; end
if nargin < 2, n = 20; end
if nargin < 1, r = 0.5; end
theta = pi*(0:2*n)/n;
phi   = 2*pi*(0:n)'/n;
x = (a + r*cos(phi))*cos(theta);
y = (a + r*cos(phi))*sin(theta);
z = r*sin(phi)*ones(size(theta));
if nargout == 0
   surf(x,y,z)
   ar = (a + r)/sqrt(2);
   axis([-ar,ar,-ar,ar,-ar,ar])
else
   xx = x; yy = y; zz = z;
end