matlab四叶玫瑰数

Question

四叶玫瑰数，是指一个四位数，其各位数字的四次方之和等于该数本身，用matlab程序找出所有四位数

Answer 1

引自免费微信小程序：皆我百晓生

要找出所有的四位四叶玫瑰数，也就是满足条件的数，其中每个数字的四次方之和等于该数本身，可以通过遍历所有四位数并检查条件是否满足来实现。以下是使用MATLAB实现这一功能的代码：

% 初始化一个空数组用于存储找到的四叶玫瑰数
roseNumbers = [];

% 遍历从1000到9999的所有四位数
for num = 1000:9999
    % 将当前数字转换为字符串以便访问各个位上的数字
    strNum = num2str(num);
    
    % 初始化一个变量用于计算各位数字的四次方之和
    sumOfPowers = 0;
    
    % 遍历每一位数字
    for i = 1:length(strNum)
        % 将字符转换回数字，并计算四次方
        digit = str2double(strNum(i));
        powerOfFour = digit^4;
        
        % 将当前位的四次方结果加到总和上
        sumOfPowers = sumOfPowers + powerOfFour;
    end
    
    % 如果总和等于原数，则该数是四叶玫瑰数
    if sumOfPowers == num
        % 将找到的四叶玫瑰数添加到数组中
        roseNumbers = [roseNumbers, num];
    end
end

% 打印找到的所有四叶玫瑰数
disp(roseNumbers);

这段代码首先定义了一个空数组roseNumbers用于存储找到的四叶玫瑰数。然后，它遍历所有四位数，对每一个数进行检查。对于每个数，它首先将其转换为字符串，以便可以轻松地访问每一位上的数字。接着，它初始化一个变量sumOfPowers用于计算各位数字的四次方之和。

在内部循环中，它将每一位数字转换回数字类型，计算其四次方，并将其加到sumOfPowers上。最后，如果sumOfPowers与原始数字相等，那么这个数字就是我们要找的四叶玫瑰数，于是将其添加到roseNumbers数组中。

当所有可能的四位数都被检查过后，roseNumbers数组将包含所有找到的四叶玫瑰数，然后打印出来。这个过程是通过遍历和比较来完成的，确保了所有符合条件的数都被正确地识别和收集。