home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / softsys / matlab / 117 < prev    next >
Encoding:
Text File  |  1993-01-23  |  1.9 KB  |  64 lines
  1. Newsgroups: comp.soft-sys.matlab
  2. Path: sparky!uunet!stanford.edu!nntp.Stanford.EDU!forsythe.stanford.edu!nova!maurer
  3. From: Michael Maurer <maurer@nova.stanford.edu>
  4. Subject: SOURCE: vfeval.m - feval with extra arguments
  5. Message-ID: <maurer.727750830@nova.Stanford.EDU>
  6. Sender: news@leland.Stanford.EDU (Mr News)
  7. Organization: STAR Lab, Stanford University, California USA
  8. Date: 23 Jan 93 01:00:30 GMT
  9. Lines: 53
  10.  
  11. Hoping to start a trend, here is an unsolicited matlab m-file.
  12. VFEVAL is like FEVAL but allows extra arguments.
  13.  
  14. #! /bin/sh
  15. # This is a shell archive, meaning:
  16. # 1. Remove everything above the #! /bin/sh line.
  17. # 2. Save the resulting text in a file.
  18. # 3. Execute the file with /bin/sh (not csh) to create the files:
  19. #    vfeval.m
  20. # This archive created: Fri Jan 22 16:56:12 1993
  21. export PATH; PATH=/bin:$PATH
  22. echo shar: extracting "'vfeval.m'" '(547 characters)'
  23. if test -f 'vfeval.m'
  24. then
  25.     echo shar: will not over-write existing file "'vfeval.m'"
  26. else
  27. sed 's/^XX//' << \SHAR_EOF > 'vfeval.m'
  28. XXfunction y=vfeval(fun,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10)
  29. XX
  30. XX%VFEVAL
  31. XX%    y=vfeval(fun,P1,...).  Like FEVAL, but allows up to 10 extra
  32. XX%    arguments named P1,P2,...,P10. 
  33. XX%    Example:
  34. XX%        y = vfeval('2*sin(P1+P2)',a,b)
  35. XX
  36. XX%    See FMIN.M for inspiration.
  37. XX%    Michael Maurer, 10 Feb 1992.
  38. XX%    Copyright (c) 1993 by Michael Maurer
  39. XX
  40. XXif any(fun<48),
  41. XX   evalstr=fun;
  42. XXelse
  43. XX   evalstr=[fun, '('];
  44. XX   for argc=1:nargin - 1
  45. XX      if argc>1, 
  46. XX     evalstr=[evalstr ','];
  47. XX      end
  48. XX      evalstr = [evalstr,'P',num2str(argc)];
  49. XX   end
  50. XX   evalstr = [evalstr, ')'];
  51. XXend
  52. XXy=eval(evalstr);
  53. SHAR_EOF
  54. if test 547 -ne "`wc -c < 'vfeval.m'`"
  55. then
  56.     echo shar: error transmitting "'vfeval.m'" '(should have been 547 characters)'
  57. fi
  58. fi # end of overwriting check
  59. #    End of shell archive
  60. exit 0
  61. --
  62. ______________________________________________________________________
  63. Michael Maurer          maurer@nova.stanford.edu        (415) 723-1024
  64.