home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l460 / 2.ddi / ELMAT.DI$ / ISIEEE.M < prev    next >
Encoding:
Text File  |  1993-03-07  |  437 b   |  14 lines
  1. function y = isieee(x)
  2. %ISIEEE    True for computers with IEEE arithmetic.
  3. %    ISIEEE returns 1 on machines with IEEE arithmetic
  4. %    and 0 on machines without IEEE arithmetic.
  5. %     Machines with IEEE:  IBM PC, most UNIX workstations, Macintosh.
  6. %     Machines without: VAX, Cray.
  7. %
  8. %    See also COMPUTER.
  9.  
  10. %    Copyright (c) 1984-93 by The MathWorks, Inc.
  11.  
  12. comp = [computer '   '];
  13. y = ~(strcmp(comp(1:3),'VAX') | strcmp(comp(1:4),'CRAY'));
  14.