fact.m

来自「《Digital and Analog Communications Syste」· M 代码 · 共 19 行

function y = fact(N)

% File: FACT.M
% CALL: y = fact(N)
% This file computes N! (factorial).


y = 1;
while (N > 0)
  y = y*N;
  N = N-1;
end;
end;