求1000以内质数公式

wangg913 · 发表于 2011-3-26 01:17

看来找质数还是费力气的活。

灰袍法师 · 发表于 2011-3-26 17:40

VBA做就很简单了，而且速度比数组公式快几万倍

27楼整批处理速度会更快，唯一缺点是，循环到i-1，实际上只需要循环到 i^0.5

所以数值大的时候就会非常慢( i^0.5 变成 i，i=100万的时候就慢一千倍，不可接受吖)

以我个人经验，其实要列出范围内所有质数的情况不多，大多数时候只需要找出一个质数来用即可

northwolve版主有个非常快的找质数程序，方法是列出一定范围内所有质数，然后判断质数的循环就不用 step 2，直接跳到下一个质数开始即可

有兴趣的可以学习一下

[ 本帖最后由灰袍法师于 2011-3-26 17:49 编辑 ]

山菊花 · 发表于 2011-3-26 11:53

改一改，让piny版主的公式提速。
C2输入最小质数2
C3=C2+MATCH(,MMULT(N(MOD(C2+ROW($1:$20),TRANSPOSE(C$2:C2))=0),C$2:C2),)
公式2，长点：
C3=C2+MATCH(,MMULT(N(MOD(C2+ROW($1:$20),TRANSPOSE(C$2:INDEX(C:C,MATCH(MIN(C2,(C2+20)^0.5),C$1:C2))))=0),C$2:INDEX(C:C,MATCH(MIN(C2,(C2+20)^0.5),C$1:C2))),)

数组公式，按Ctrl+Shift+Enter结束。

chenhh803 · 发表于 2011-3-26 11:58

呵呵,看样子以后构造公式的时候,不仅要出结果,还要考虑效率.学习了

gxlwy513 · 发表于 2011-3-26 12:07

学习了，看到了函数的魅力，变化无穷。

半半瓶醋 · 发表于 2011-3-26 12:34

=SMALL(IF(MMULT(IF(ISERR(FIND(".",ROW($2:$1000)/COLUMN(A:AF)))*ROW($2:$1000)/COLUMN(A:AF)>=COLUMN(A:AF),1,0),ROW($1:$32))=1,ROW($2:$1000),9^9),ROW()-1)
比PINY老师的长多了，思路都是判断约数个数，判断到最大开方就可以吧，没必要都判断到1000

[ 本帖最后由半半瓶醋于 2011-3-26 12:39 编辑 ]

tyxh0916 · 发表于 2011-3-26 16:10

果然龟速，喝了两杯茶都没算完……电脑该升级了。

gufengaoyue · 发表于 2011-3-26 17:01

凑个热闹，公式不会写
用自定义函数写一个，还有一个宏代码

自定义函数 =zs(ROW(A1))

自定义函数代码

Function ZS(s%)
Dim f As Boolean, arr(), a%, i%
ReDim Preserve arr(1)
arr(0) = 2
For i = 3 To 999 Step 2
For j = 2 To i - 1
If i Mod j = 0 Then f = True: Exit For
Next
If Not f Then
a = a + 1
ReDim Preserve arr(a)
arr(a) = i
End If
f = False
Next
ZS = arr(s - 1)
End Function

复制代码

宏代码

Sub getZS()
Dim arr(), f As Boolean
ReDim Preserve arr(1)
arr(0) = 2
For i = 3 To 999 Step 2
For j = 2 To i - 1
If i Mod j = 0 Then f = True: Exit For
Next
If Not f Then
a = a + 1
ReDim Preserve arr(a)
arr(a) = i
End If
f = False
Next
[c2].Resize(a, 1) = Application.Transpose(arr)
End Sub

复制代码

安然祥和 · 发表于 2011-3-26 17:19

我正需好好学习PINY公式，慢慢消化吸收。

[ 本帖最后由安然祥和于 2011-3-26 17:21 编辑 ]

gufengaoyue · 发表于 2011-3-26 21:07

原帖由 灰袍法师 于 2011-3-26 17:40 发表
VBA做就很简单了，而且速度比数组公式快几万倍

27楼整批处理速度会更快，唯一缺点是，循环到i-1，实际上只需要循环到 i^0.5

所以数值大的时候就会非常慢( i^0.5 变成 i，i=100万的时候就慢一千倍，不可接受吖) ...

法师说的是
如果查找下一个质数的话，那速度就会快上许多
而且也不需要循环到i-1

		自动登录	找回密码
密码			免费注册

[求助] 求1000以内质数公式