home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / utils / mathstud / fac.m < prev    next >
Encoding:
Text File  |  1995-05-19  |  269 b   |  16 lines
  1. function [y]=fac(n) 
  2. % y=fac(n) 
  3. % computes n factorial (demonstrate a recursive function call)
  4. % n should be a positive integer
  5.  
  6. %       S.Halevy 7/31/92
  7. %       Copyright (c) 1992 by the MathWizards
  8.  
  9. if (n<=1) 
  10.     y=n; 
  11.     return
  12. end
  13.  
  14. y=n*fac(n-1);
  15.  
  16.