home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS2.DI$ / SEESUB.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  368 b   |  21 lines
  1. % function str = seesub(mij,form)
  2. function str = seesub(mij,form)
  3.  
  4. loc=find(form=='.')-find(form=='%');
  5. if isempty(loc), loc=1; end
  6. if any(form=='e') & loc==1
  7.     pad = ' ';
  8. else
  9.     pad = [];
  10. end %if
  11.     if mij < 0
  12.         str = sprintf(form,mij);
  13.     else
  14.         str = sprintf([pad form], abs(mij));
  15.     end
  16.     
  17. end
  18.  
  19. %
  20. % Copyright MUSYN INC 1991,  All Rights Reserved
  21.