factor.m

很多matlab的源代码

function n = factor(x)
%FACTOR	Factor an integer
%
%      Y=FACTOR(X) returns factors of X in vector Y such that prod(Y)=X. 
%
%      FACTOR (with no input arguments) invokes the following example:
%
%        % Find the factors of 120
%        >>k=120;f=factor(k)


% ADSP Toolbox: Version 2.0 
% For use with "Analog and Digital Signal Processing", 2nd Ed.
% Published by PWS Publishing Co.
%
% Ashok Ambardar, EE Dept. MTU, Houghton, MI 49931, USA
% http://www.ee.mtu/faculty/akambard.html
% e-mail: [e-mail]
% Copyright (c) 1998


if nargin==0,help factor,disp('Strike a key to see results of the example')
pause,k=120;f=factor(k),return,end

if x ~= round(x),error('Number must be an integer'),return,end
if x == 1, n=1;return,end
d=x;m=1;n=[];
while d>1
m=m+1;
if rem(d,m)==0
d=d/m;
n=[n;m];
m=1;
end
end