function ezcontour(f,varargin)
%EZCONTOUR General surface contour plotter.
%   EZCONTOUR(f) plots the contour lines of f(x,y) using CONTOUR where
%   f is a string or symbolic expression representing a mathematical
%   function of two variables, say 'x' and 'y'.  The function f is 
%   plotted over the default domain -2*pi < x < 2*pi, -2*pi < y <
%   2*pi.  The computational grid is chosen according to the amount
%   of variation that occurs.
%
%   EZCONTOUR(f,DOMAIN) plots f over the specified DOMAIN instead of the
%   default DOMAIN = [-2*pi,2*pi,-2*pi,2*pi].  The DOMAIN can be the
%   4-by-1 vector [xmin,xmax,ymin,ymax] or the 2-by-1 vector [a,b] (to
%   plot over a < x < b, a < y < b).
%
%   If f is a function of the variables u and v (rather than x and y),
%   then the domain endpoints umin, umax, vmin, and vmax are sorted
%   alphabetically.  Thus, EZCONTOUR(u^2 - v^3,[0,1],[3,6]) plots the
%   contour lines for u^2 - v^3 over 0 < u < 1, 3 < v < 6.
%
%   EZCONTOUR(...,fig) plots f over the default domain in the figure window
%   fig.
%
%   ROTATE3D always on.  To rotate the graph, click and drag with your mouse.
%
%   Examples:
%    syms x y z t u v
%    f = 3*(1-x)^2*exp(-(x^2) - (y+1)^2) ... 
%       - 10*(x/5 - x^3 - y^5)*exp(-x^2-y^2) ... 
%       - 1/3*exp(-(x+1)^2 - y^2);
%    ezcontour(f,[-pi,pi])
%    ezcontour(sin(sqrt(x^2+y^2))/sqrt(x^2+y^2),[-6*pi,6*pi])
%    ezcontour(x*exp(-x^2 - y^2))
%    ezcontour(-3*z/(1 + t^2 - z^2),[-4,4],120)
%    ezcontour(sin(u)*sin(v),[-2*pi,2*pi])
%
%   See also EZPLOT, EZPLOT3, EZPOLAR, EZCONTOURF, EZSURF, EZMESH,
%            EZSURFC, EZMESHC, CONTOUR.

%   Copyright (c) 1993-98 by The MathWorks, Inc.
%   $Revision: 1.2 $  $Date: 1998/04/07 21:21:04 $

F = makeinline(f);
ezcontour(F,varargin{:});

%------------------------

function F = makeinline(f)
% MAKEINLINE Makes an inline function out of the input sym f.

% Find all variables in f except 'pi'.
vars = symfind(f);
% Deblank vars.
vars(findstr(vars,' ')) = [];
% Find the commas in the string list vars.
ind = findstr(vars,',');
% Place the symbols inbetween the commas into a cell array V.
nvars = length(ind) + 1;
if nvars == 1
   V{1} = vars;
else
   V{1} = vars(1:ind(1)-1); V{nvars} = vars(ind(nvars-1)+1:end);
   for j = 2:nvars-1
      V{j} = vars(ind(j-1)+1:ind(j)-1);
   end
end

F = inline(f.s,V{:});

%-------------------------

function vars = symfind(f)
% SYMFIND Finds the Symbolic variables in a Symbolic Expression.
%  SYMFIND(f) returns a string, arranged in lexicographic order,
%  of all the symbolic variables in f EXCEPT pi.
%  Examples:
%     symfind(exp(a*t)*C1)  returns  C1, a, t
%     symfind(cos(pi*x*y))  returns  x, y

% Find the symbolic variables in f.
vars = [ '{' findsym(f) '}' ];
% Remove pi as a variable.
vars = maple([ vars ' minus ' '{pi}' ]);
% Remove blanks.
vars(findstr(vars,''));
% Remove '{' and '}' from vars.
vars = strrep(vars,'{',''); vars = strrep(vars,'}','');
% Insure that vars are in lexicographic order.
vars = maple(['sort( [' vars '], lexorder);']);
% Remove '[' and ']' from the list vars
vars = strrep(vars,'[',''); vars = strrep(vars,']','');
