![](https://csdnimg.cn/release/download_crawler_static/86899606/bg8.jpg)
脚本调用
clear;
clc;
A=fix(rand(5,6)*10+20);
[n,m]=size(A);
B=zeros(size(A));
for i=1:n
B(i,:)=f9(A(i,:));
end
B
脚本文件和函数文件案例分析
例 1 求 100 以内间隔为 2 的素数对。例如 3,5 为一对,11,13 为一对。
%prime.m
function [x]=prime(n)
x=1;
for i=2:n-1
if mod(n,i)==0,break
end
end
if i<n-1,x=0;
end
%prime1.m
for i=2:100
x=prime(i);
y=prime(i+2);
if x==1&y==1
fprintf('%4d%4d\n',i,i+2);
end
end
例 2 求 1~99 中所有完全数。所谓完全数是指该数据出现在它的平方右边。例如 5 是完
全数,25 是完全数。
%wanquan.m