Question

编程求10000以内所有的完全数 matlab

Answer 1

说明:打开matlab，新建一个.m文件，把下面的代码在这个.m文件，文件名保存为perfnum.m
然后在matlab中调用即可，形如：perfnum(1000)
代码如下：

function [v,len] = perfnum(maxscale)
%求maxscale内的所有完全数，
%v存储结果，len是个数

if maxscale<2
len=0;
end

len = 0;
v=[];
for n=2:1:maxscale
sum = 0;
for m=1:1:n/2
if mod(n,m) == 0
sum = sum + m;
end
end

if sum == n
len = len + 1;
v=[v,n];
end
end

Answer 2

clear all;
clc;
tic;
w=1;
N=zeros(1,1000); % N为存放完全数的矩阵
for i=1:10000
k=1;
num=zeros(fix(i/2),1); % num存放每一个数的因子
for j=1:i/2
if mod(i,j)==0
num(k)=j;
k=k+1;
else
end
end
if sum(num(:))==i;
N(w)=i;
w=w+1;
else
end
end
toc;
tic和toc是我想看看程序执行多长时间加的