wpropimg.m
上传用户:haiyisale
上传日期:2013-01-09
资源大小:3246k
文件大小:1k
源码类别:

波变换

开发平台:

Matlab

  1. function [w,h] = wpropimg(is,wmax,hmax,in4)
  2. %WPROPIMG Give image proportions.
  3. %   [w,h] = wpropimg(is,wmax,hmax,in4)
  4. %
  5. %   is      = image size
  6. %   wmax    = maximum width possible
  7. %   hmax    = maximum height possible
  8. %
  9. %   in4 = 'pixels' or in4 = 'normalized'
  10. %   wpropimg(is,wmax,hmax) is equivalent to 
  11. %   wpropimg(is,wmax,hmax,'normalized')
  12. %
  13. %   w       = image width
  14. %   h       = image height
  15. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
  16. %   Last Revision: 01-Jun-1998.
  17. %   Copyright 1995-2002 The MathWorks, Inc.
  18. % $Revision: 1.10 $
  19. if nargin==3 , in4 = 'normalized'; end
  20. in4 = lower(in4);
  21. switch in4
  22.   case 'pixels' , td = [1 1];
  23.   otherwise     , td = mextglob('get','Terminal_Prop');
  24. end
  25. a = (td(2)*hmax*is(1))/(td(1)*wmax*is(2));
  26. w = wmax*min(1,a);
  27. h = hmax*min(1,1/a);