呵呵！

[复制链接]

追梦者

13 主题	4 听众	594 积分

收听TA
发消息

群组: 数模应用

群组: LINGO

群组: 四川农业大学数学建模协会

群组: 重庆交通大学数学建模协会

群组: Mathematica研究小组

电梯直达

1^#

发表于 2008-12-12 17:41 |只看该作者 |倒序浏览

以下是我变得一个程序，用来求给定自然数中间的质数
clear all,clc
mark=zeros(10000,1);
for i=3:10000
for j=3:i-1
if mod(i,j)==0
mark(i)=i;
end
end
end
n=0;
for i=1:10000
if mark(i)==0
n=n+1;
end
end
c=1;
for i=1:10000
for j=c:n
if mark(i)==0
x(j)=i;
c=c+1;
break;
end
end
end
大家来开一下，把这个程序改变改变，试试能编出个什么程序