home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 6.ddi / CHEM.DI$ / PLSNORM.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  391 b   |  20 lines
  1. function [x, xssq] = plsnorm(x)
  2. % PLSNORM  Normalize data in absorbance or concentration matrix.
  3. % Copyright (c) 1989-92 by The MathWorks, Inc.
  4. %
  5. %  [a, b] = plsnorm(c) 
  6. %
  7. %  where:
  8. %
  9. %   a = normalized data
  10. %   b = variable root sum of squares
  11. %
  12. [tt1, tt2] = size(x);
  13. x = x';
  14. xssq = sqrt(sum(x .* x));
  15. for h = 1:tt1
  16.     x(:,h) = x(:,h) ./ xssq(h);
  17. end
  18. x = x';
  19. xssq = xssq';
  20.