本文介绍了一种使用MATLAB实现的算法，该算法用于寻找亲和数对，即两个整数，其中一个整数的所有真因数之和等于另一个整数，反之亦然。通过循环迭代和函数调用，程序能够找出10000以内的一系列亲和数对。
%Amicable_numbers_20.m
%求一对亲和数：任一个数的所有因数的和等于另一个数
close all;
Factor=zeros(2,100); %构造 2 X 100 的数组
k=1;
for i=1:10000
num_1=func_factor(i); %计算 i 的所有因数的和
if(i==func_factor(num_1)) %若相等，则找到
Factor(1,k)=i;
Factor(2,k)=num_1;
k=k+1;
end
end
%disp(Factor)
%求一对亲和数：任一个数的所有因数的和等于另一个数
function sum_prime=func_factor(x)
sum_prime=0;
for i=1:round(x/2)
if(rem(x,i)==0)
sum_prime=sum_prime+i;
end
end
close all;
Factor=zeros(2,100); %构造 2 X 100 的数组
k=1;
for i=1:10000
num_1=func_factor(i); %计算 i 的所有因数的和
if(i==func_factor(num_1)) %若相等，则找到
Factor(1,k)=i;
Factor(2,k)=num_1;
k=k+1;
end
end
%disp(Factor)
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
