home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l460 / 2.ddi / STRFUN.DI$ / HEX2DEC.M < prev    next >
Encoding:
Text File  |  1993-03-07  |  563 b   |  23 lines
  1. function d = hex2dec(h)
  2. %HEX2DEC Hexadecimal to decimal number conversion.
  3. %    HEX2DEC(D) returns hexadecimal number D in decimal form.
  4. %    For example, HEX2DEC('12B') and HEX2DEC('12b') both return 299.
  5. %
  6. %    See also DEC2HEX, HEX2NUM.
  7.  
  8. %    Author: L. Shure, Revised: 12-23-91, CBM.
  9. %    Copyright (c) 1984-93 by The MathWorks, Inc.
  10.  
  11. [m,n]=size(h);
  12. p = flipud(cumprod([1; 16*ones(n-1,1)]));
  13. for i=1:n
  14.     if (h(i) > 96)
  15.         h(i) = h(i) - 87;
  16.     elseif (h(i) > 64)
  17.         h(i) = h(i) - 55;
  18.     else
  19.         h(i) = h(i) - 48;
  20.     end
  21. end
  22. d = h*p;
  23.