home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l460 / 3.ddi / DEMOS.DI$ / CPLXMAP.M < prev    next >
Encoding:
Text File  |  1993-03-07  |  675 b   |  36 lines
  1. function cplxmap(z,w,B)
  2. %CPLXMAP Plot a function of a complex variable.
  3. %    CPLXMAP(z,f(z),(optional bound))
  4. %    Used by CPLXSHOW.
  5. %
  6. %    See also CPLXGRID.
  7.  
  8. %    Copyright (c) 1984-93 by The MathWorks, Inc.
  9.  
  10. blue = 0.2;
  11. x = real(z);
  12. y = imag(z);
  13. u = real(w);
  14. v = imag(w);
  15.  
  16. if nargin > 2
  17.    k = find((abs(w) > B) | isnan(abs(w)));
  18.    if length(k) > 0
  19.       u(k) = B*sign(u(k));
  20.       v(k) = zeros(size(k));
  21.       v = v/max(max(abs(v)));
  22.       v(k) = NaN*ones(size(k));
  23.    end
  24. end
  25.       
  26. M = max(max(u));
  27. m = min(min(u));
  28. axis([-1 1 -1 1 m M]);
  29. caxis([-1 1]);
  30. s = ones(size(z));
  31. mesh(x,y,m*s,blue*s);
  32. hold on
  33. surf(x,y,u,v);
  34. hold off
  35. colormap(hsv(64))
  36.