论偶数分解.doc

论偶数分解2n=p1+p2 歌德巴赫散点矩阵图 2n 内的奇数对k的取值 要分解成两个素数之和，我们必须在数组的一个半集全部填上素数 那么偶数分解的数组就变成了以下数集了 现在计算Bk与Ak… 如果为合数，那么右半集内的最小奇数一定大于而左半集合内最大素数一定小于，它们都将远离2n 的中心向两端移动。 现在如果完全集的右半集，没有一个是素数，那么右半集所配对的奇数必然等于左半集合的奇素数+1的个数，设内奇素数个数为,2N 内奇素数个数为，而2n内总计n个奇数，2n到n 内素数为，内合数奇数为，2n内的奇数合数总数为n-，如果右半集所配对的奇数全部是合数那么参与配对的奇数合数有那么2n到n之间未参与配对的奇合数， 总奇数-（内合数奇数）-（2N内奇素数）-（参与配对的奇合数） =n-（k-）--个即加上参与配对的，那么2n到n之间的奇数合数为如果假设成立,那么我们可以验证部分2n到n之间的奇数验证如下 验证第一步 n小于10 时虽然合数验证存在不错案例，但是右半集存在至少一个素数 N=10, =2，而实际只有1个，不成立。 验证第二步 n10 N=50, =39，而实际只有15，可见假设是不成立的，也就是右集合中存在素数即 由此假设是不成立的，那么左半集合里面必然不全是合奇数。也就是存在至少一个是素数。由于由半集合全部是素数，所以偶数一定能够分解成为两个素数之和。 素数个数公式已经存在，验证反类只需要一个反类即可。 现在谈一下具体分解类别 当为素数时，就是个完全集合，而且这时2n=2, 现在讨论为合数时的集合是什么情况。。。如果不是素数，那么集合最后一个素数一定小于。那么它就是内最大素数。当2n 尾数为2时左半集所有尾数是7 的素数在右半集2n-pi的尾数均是5，这样一来就要排除左半集所有尾数是7 的素数对了，就是说2n尾数为2时，左半集中尾数1对9，3对7。就是说2n尾数为4时，1对3，1对7，就是说2n尾数为6时存在3对3，7对9，2n尾数为,8时存在1对7，9对9，其他均不存在素数对，现在先分析一下素组配对 在一下集合里，最后一组的AK 与实为小于或等于AK的内的最大素数。以下把1 也写入了筛选数组里是便于了解数组里可能存在的最大素数。偶数分解一般不包括2n-1与1这一对。 实际筛选组对并不用以上方法，这里列出是了解一下分解的实际类别。有几种。 偶数分解程序 Sub 偶数分解() Dim t As Variant Dim co As Variant Dim s As Variant Dim pointObj As AcadPoint Dim location(0 To 2) As Double Dim p(4 To 40000) As Double Dim i As Variant Dim J As Variant s = 0 For i = 852 To 900 Step 2 If i = 4 Then t = 1 Else t = 0.5 * (i / 2 + 0.5 * (1 - (-1) ^ (i / 2))) End If For J = 0 To t Step 1 location(0) = 15 * i: location(1) = 30 * (i / 2 - REP(i, J)): location(2) = 0# s = s + 1 Set pointObj = ThisDrawing.ModelSpace.AddPoint(location) pointObj.color = acGreen location(0) = 15 * i: location(1) = 30 * REP(i, J) - 15 * i: location(2) = 0# s = s Set pointObj = ThisDrawing.ModelSpace.AddPoint(location) pointObj.color = acBlue Next J Next i MsgBox 合计 s 组素数！ End Sub Function REP(N As Variant, i As Variant) As Variant Dim d As Variant Dim a As Variant Dim s As Variant a = 0.5 * (N / 2 + 0.5 * (1 - (-1) ^ (N / 2))) d = N - 1 If qp(d) 0 Then d = N - 1 Else d = N -