From: <goffioul@us...>  20071130 15:55:50

Revision: 4334 http://octave.svn.sourceforge.net/octave/?rev=4334&view=rev Author: goffioul Date: 20071130 07:55:46 0800 (Fri, 30 Nov 2007) Log Message:  remove sphere.m; now part of core octave Removed Paths:  trunk/octaveforge/extra/jhandles/inst/sphere.m Deleted: trunk/octaveforge/extra/jhandles/inst/sphere.m ===================================================================  trunk/octaveforge/extra/jhandles/inst/sphere.m 20071130 15:52:57 UTC (rev 4333) +++ trunk/octaveforge/extra/jhandles/inst/sphere.m 20071130 15:55:46 UTC (rev 4334) @@ 1,40 +0,0 @@ ## Copyright (C) 2007 Michael Goffioul ## ## This program is free software; you can redistribute it and/or modify ## it under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 2 of the License, or ## (at your option) any later version. ## ## This program is distributed in the hope that it will be useful, ## but WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ## GNU General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with this program; if not, write to the Free Software ## Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA ## 021101301 USA  function [xx,yy,zz] = sphere (n)   if (nargin < 1)  n = 20;  endif   theta = linspace (0, 2*pi, n+1);  phi = linspace (pi/2, pi/2, n+1);  [theta,phi] = meshgrid (theta, phi);   x = cos(phi).*cos(theta);  y = cos(phi).*sin(theta);  z = sin(phi);   if (nargout > 0)  xx = x;  yy = y;  zz = z;  else  surf (x, y, z);  endif  endfunction This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. 