home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS2.DI$ / CHSTR.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  387 b   |  23 lines
  1. function out = chstr(in)
  2.  for i=0:9
  3.   tmp = int2str(i);
  4.   in = in(find(in ~= tmp));
  5.  end
  6.  if isempty(in)
  7.   out = 0;
  8.  elseif strcmp(in,'.')
  9.   out = 0;
  10.  elseif strcmp(in,'e+')
  11.   out = 0;
  12.  elseif strcmp(in,'e-')
  13.   out = 0;
  14.  elseif strcmp(in,'.e+')
  15.   out = 0;
  16.  elseif strcmp(in,'.e-')
  17.   out = 0;
  18.  else
  19.   out = 1;
  20.  end
  21. %
  22. % Copyright MUSYN INC 1991,  All Rights Reserved
  23.