偶数N方根以内素数对的个数

ysr

验证这些数据是很消耗精力的，但是在当代，电脑普及到了家庭，有电脑会一点儿编程就应该不是问题了。
这不是啥大数值，仅仅是数据长，只要你愿意付出精力和一点儿时间都不成问题，当前验证一下自己的理论是没有困难的。当然，如果是纯手工计算，那没有几年功夫几乎是不可能的，虽然数值不大。
您有快速软件验证一下肯定是没问题的，当然您得付出时间精力，很忙的话确实影响研究，爱好这个那就可能不是事，起码愿意做这个事。我知道您花的功夫不是一天两天的了，这不是缺点，是应该赞扬的。尤其当代遭某些狗屁冒牌的“专门家”“权威”“叫兽‘“大师”的严重粉刺排挤和打压下，多年坚持钻研下来，不容易，值得赞扬鼓励和支持！
欢迎探讨，欢迎各位老师和朋友关注和交流！！

ysr

偶数200000和210000之间的偶数的方根内最少拆分个数为：3， 分别列表如下：
（偶数） （偶数方根内的素数和对个数，超过4的不发，节约空间） （总素数和对个数）
200276 4  1073
201638 4  1075
201662 4  1077
202564 3  1064
202612 4  1127
202982 4  1206
204272 3  1132
204452 4  1095
204968 4  1065
205028 4  1061
206138 4  1094
206168 3  1060
206912 4  1111
207008 4  1083
207038 4  1190
208844 4  1123

ysr

我以前一个不落的验证到了24万，可惜数据没有全部保留下来。
为了普及知识，弘扬科学精神，我就花一些精力，验证到160万，这个数值不大不过才7位数，但是数据多，占空间，而且消耗时间呢，程序咋就显得慢了？无法，花两天时间弄出来吧，我的程序速度无法提高了。

为了节约点空间，我是把偶数方根内的解的个数大于4的都不显示了，仅仅显示偶数方根内的解的个数低于4的

愚工688

ysr 发表于 2023-2-17 01:46
愚公688：要说明一个观点，不能只看合乎观点的数据，而对不合乎观点的数据视而不见。
愚公688：偶数46、 ...

素数对数量波动式的增加是建立在【偶数方根外的素数数量】波动式增加的基础上面的，而不是建立在【偶数方根内的素数数量】波动式的增加的基础上面的，这个高搞清楚。
由于【偶数方根外的素数数量】在大偶数区域远多于【偶数方根内的素数数量】，以至于造成【偶数的素数数量】形成波动式的增多。

例如：
M= 48         ,S(m)= 5      ( s1= 4 ,s2= 1 ),   Sp(m)≈ 4      ,δ(m)≈-.2     ,δ1(m)≈ 0
M= 50         ,S(m)= 4      ( s1= 3 ,s2= 1 ),   Sp(m)≈ 2      ,δ(m)≈-.5     ,δ1(m)≈-.333
M= 52         ,S(m)= 3      ( s1= 2 ,s2= 1 ),   Sp(m)≈ 2      ,δ(m)≈-.333   ,δ1(m)≈ 0
M= 54         ,S(m)= 5      ( s1= 4 ,s2= 1 ),   Sp(m)≈ 4      ,δ(m)≈-.2     ,δ1(m)≈ 0
M= 56         ,S(m)= 3      ( s1= 2 ,s2= 1 ),   Sp(m)≈ 2      ,δ(m)≈-.333   ,δ1(m)≈ 0
M= 58         ,S(m)= 4      ( s1= 3 ,s2= 1 ),   Sp(m)≈ 2      ,δ(m)≈-.5     ,δ1(m)≈-.333
M= 60         ,S(m)= 6      ( s1= 5 ,s2= 1 ),   Sp(m)≈ 5      ,δ(m)≈-.167   ,δ1(m)≈ 0
M= 62         ,S(m)= 3      ( s1= 2 ,s2= 1 ),   Sp(m)≈ 2      ,δ(m)≈-.333   ,δ1(m)≈ 0
M= 64         ,S(m)= 5      ( s1= 3 ,s2= 2 ),   Sp(m)≈ 2      ,δ(m)≈-.6     ,δ1(m)≈-.333
M= 66         ,S(m)= 6      ( s1= 4 ,s2= 2 ),   Sp(m)≈ 5      ,δ(m)≈-.167   ,δ1(m)≈ .25

M= 850        ,S(m)= 25     ( s1= 22 ,s2= 3 ),  Sp(m)≈ 20     ,δ(m)≈-.2     ,δ1(m)≈-.091
M= 852        ,S(m)= 31     ( s1= 28 ,s2= 3 ),  Sp(m)≈ 28     ,δ(m)≈-.097   ,δ1(m)≈ 0
M= 854        ,S(m)= 20     ( s1= 20 ,s2= 0 ),  Sp(m)≈ 17     ,δ(m)≈-.15    ,δ1(m)≈-.15
M= 856        ,S(m)= 19     ( s1= 16 ,s2= 3 ),  Sp(m)≈ 14     ,δ(m)≈-.263   ,δ1(m)≈-.125
M= 858        ,S(m)= 39     ( s1= 36 ,s2= 3 ),  Sp(m)≈ 34     ,δ(m)≈-.128   ,δ1(m)≈-.056
M= 860        ,S(m)= 18     ( s1= 16 ,s2= 2 ),  Sp(m)≈ 19     ,δ(m)≈ .056   ,δ1(m)≈ .188
M= 862        ,S(m)= 17     ( s1= 14 ,s2= 3 ),  Sp(m)≈ 14     ,δ(m)≈-.176   ,δ1(m)≈ 0
M= 864        ,S(m)= 33     ( s1= 30 ,s2= 3 ),  Sp(m)≈ 29     ,δ(m)≈-.121   ,δ1(m)≈-.033
M= 866        ,S(m)= 17     ( s1= 14 ,s2= 3 ),  Sp(m)≈ 14     ,δ(m)≈-.176   ,δ1(m)≈ 0
M= 868        ,S(m)= 21     ( s1= 18 ,s2= 3 ),  Sp(m)≈ 17     ,δ(m)≈-.19    ,δ1(m)≈-.056
M= 870        ,S(m)= 46     ( s1= 42 ,s2= 4 ),  Sp(m)≈ 40     ,δ(m)≈-.13    ,δ1(m)≈-.048
M= 872        ,S(m)= 18     ( s1= 16 ,s2= 2 ),  Sp(m)≈ 14     ,δ(m)≈-.222   ,δ1(m)≈-.125
M= 874        ,S(m)= 19     ( s1= 17 ,s2= 2 ),  Sp(m)≈ 16     ,δ(m)≈-.158   ,δ1(m)≈-.059

上面的两个区域的偶数的素数对的波动明显是不是由S2值造成的。

ysr

偶数210000和220000之间的偶数的方根内最少拆分个数为：2， 分别列表如下：
（偶数） （偶数方根内的素数和对个数） （总素数和对个数）
211556 4  1128
213842 3  1104
215444 4  1110
215708 4  1107
215822 4  1194
216058 4  1156
216394 4  1151
217156 3  1134
217904 4  1144
217934 2  1145
217964 4  1157
218102 4  1160

ysr

愚公688：请问一下，你的程序是用什么语言编写的？

回复您：我的程序是用vb6.0编写的，速度慢，对付小数值的数据还可以

ysr

ysr 发表于 2023-2-17 09:49
愚公688：请问一下，你的程序是用什么语言编写的？

回复您：我的程序是用vb6.0编写的，速度慢，对付小数 ...

'代码如下，有vb6.0的话复制黏贴就可以运行的：

Private Function fenjieyinzi(sa As String) As String
Dim x, A, B
x = sa
B = Int(Sqr(Val(x)) / 2)
If x = 3 Or x = 2 Then
A = True
Else
If x Mod 2 = 0 Then
A = False
Else

For I = 3 To 2 * B + 1 Step 2
If x Mod I = 0 Then
A = False
Exit For

Else: A = True

End If
Next
End If
End If
If A = True Then
fenjieyinzi = "这是个素数"
Else
fenjieyinzi = "2*2"
End If

End Function




Private Sub Command1_Click()
Dim a, b
a = Val(Text1)
a3 = a
q = Val(Text2)
Do While a <= q
s = 0
m = Sqr(a)
a1 = 3
Do While a1 <= m
b = a - a1
c = fenjieyinzi(Val(a1))
d = fenjieyinzi(Val(b))
If InStr(c, "*") = 0 And InStr(d, "*") = 0 Then
s = s + 1

Else
s = s
End If
a1 = a1 + 2
Loop
a2 = a1
s1 = s
Do While a2 <= a / 2
B1 = a - a2
C1 = fenjieyinzi(Val(a2))
D1 = fenjieyinzi(Val(B1))

If InStr(C1, "*") = 0 And InStr(D1, "*") = 0 Then
s1 = s1 + 1

Else
s1 = s1
End If

a2 = a2 + 2

Loop
If s <= 4 Then
Text3 = Text3 & CStr(a) & " " & CStr(s) & "  " & CStr(s1) & vbCrLf
Print a, s, s1
s2 = s2 & "/" & s
If s = 0 Then s5 = s5 & CStr(a) & " " & CStr(s) & "  " & CStr(s1) & vbCrLf: s7 = s7 + 1
Else
s2 = s2
End If
a = a + 2
Loop
s3 = Mid(s2, 2)
s4 = min(Trim(s3))
s6 = "（偶数） （偶数方根内的素数和对个数,仅输出个数低于4的） （总素数和对个数）"
s8 = "含有0个小根拆的偶数有" & s7 & "个分别如下："
Combo1.Text = "偶数" & a3 & "和" & q & "之间的偶数的方根内最少拆分个数为：" & s4 & "， 分别列表如下：" & vbCrLf & s6 & vbCrLf & Text3.Text
Text4 = s8 & vbCrLf & s5
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Combo1 = ""
Form1.Cls
End Sub

Private Function min(ByVal lists As String) As String
Dim temp As Long
Dim a() As String
a = Split(lists, "/")
Dim b As Long
temp = a(0)
For b = 0 To UBound(a)
If temp > a(b) Then temp = a(b)
Next
min = temp
End Function

ysr

ysr 发表于 2023-2-17 10:05
'代码如下，有vb6.0的话复制黏贴就可以运行的：

Private Function fenjieyinzi(sa As String) As St ...

愚公688：我就了解一下。看你计算了很多数据，以为计算很容易的。
愚公688：好像各种程序中，用C＋＋编程的运行速度比较快。而我只会最基础的Basic 语言编程。基本上是能够运行程序中最慢的，属于将要淘汰的语言。

回复您：程序是慢一点，主要是消耗时间，做好程序开始运行，数据长的话就可以睡一觉醒了再看结果，数据也不能太长，否则就会超过一天甚至由于中间数据过多内容太多内存溢出了。显示结果的控件的容量也是有限的，结果内容太多就显示不完整了。VB速度是没有C++快。

会Basic很好，我也是先会了一点Basic才开始学习VB的，有了Basic的基础就可以明白VB的语句了，VB是从Basic发展来的。有了基础，学习练习一下就很容易学会了。

愚工688

我在86-87年期间学习了Basic 语言的编程，就编写了偶数拆分成两个素数的程序，但是那时的电脑运行速度不行，仅仅只能运算100左右的偶数，再大的偶数就几乎成死机状态，没有输出，最后只保留一个程序文本。
好多年后，有机会在单位的windows 95上面运行这个程序，就能够很容易的运行，得到偶数的素数对数据了。
98年在书店看到一本《Quick Basic 程序设计教程》，买回后学会了程序绘图。
如下：


这个图形的素数对的波动是由于方根外的素数对S1的波动造成的，而偶数全部素数对数量S(m)的图形的波动，只是S1的波动叠加S2的数值而合成的波动。
更大偶数的素数对数量的波动折线图：





现在的电脑Win 10根本不支持QBasic语言，不能运行，Win 7只能运行数据类的程序，不能运行图形程序。Windows Xp 能够运行图形软件但是不能拷贝出。这样windows 98才能完美的把运行得到的图形用拷贝屏幕的方式得到图像。现在我使用的图像都是在98时代保存的。
前段时间我Win 7电脑坏了，就无法计算偶数的素数对了，只能用W10上网看看。
老的知识都面临着淘汰。

愚工688

黑色背景的绘图程序是高精度显示的程序；显示的图形不够清楚；
白色背景的是低精度显示的绘图程序，显示的图形更清晰。
所以我一般用白色背景的图形。

Win10是64位的，我不能运行自编的所有程序；
Win7 是32位的，我只能运行数据类的程序；
Xp可能也是32位的，我搞不清；就是没有了打印屏幕的功能，图形输不出来；
Windows 2000，Windows Me 都能够运行，可能上面背景有的红的图形就是其中之一运行程序得到的。
Windows 98 是16位的，我最合适运行Basic,QBasic程序。