《数论探秘》电子版

ysr

代码如下：
Private Sub Command1_Click()
Dim a, b
a1 = Val(Text1)
a = 2
Do While a <= a1
b = 1
Do While b <= a1
x = a + b
y = a - b
z = a
p = 2 * b
q = a ^ 2 + b ^ 2
X1 = x ^ (1 / 2): Y1 = Abs(y) ^ (1 / 2): z1 = z ^ (1 / 2): p1 = p ^ (1 / 2): q1 = q ^ (1 / 2)
If InStr(Y1, ".") = 0 And InStr(z1, ".") = 0 And InStr(X1, ".") = 0 And InStr(X1, ".") = 0 Then
s = s + 1
s1 = s1 & "a=" & a & " b=" & b & " x=" & x & " y=" & y & " z=" & z & " p=" & p & " q=" & q & vbCrLf
Else
s = s
End If

b = b + 1
Loop


a = a + 1
Loop

If s > 0 Then
Text2 = "a1=" & a1 & " s=" & s & vbCrLf & s1
Else
Text2 = "wu   jie"
End If

End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""

End Sub

ysr

哥德巴赫猜想并不难，有多种初等证明方法可以证明，哥德巴赫猜想是远远成立的。
1，由差定理（更容易证明）证明和定理（就是哥德巴赫猜想）成立。
2，设偶数2A的方根为M则其方根M内的素数的个数的下限是m=M/lnM，则偶数2A的哥德巴赫猜想解的个数的绝对下限就是m-1，这是对无穷大的偶数都成立的，随着偶数的增大实际解的个数远远大于m-1 ， 所以，哥德巴赫猜想远远成立。
3，据构成哥德巴赫猜想解的素数与偶数的方根的大小，把解分为两类：小根拆和大根拆，大于4的偶数，仅仅有73个偶数只有大根拆而不含有小根拆，其他的都是既有小根拆也有大根拆，而4=2+2.

所以，哥德巴赫猜想远远成立，容易证明，仅仅初等数学就可以证明，中学以上的学历都i可以完全解决。

至今不能解决的原因仅仅有两个：一是数学家喜欢本末倒置从解析数论下手解决问题，二是中国数学界到处是汉奸洋奴才等破环了中国数学界的学术氛围！！

ysr

1267650600228229401496703254299内有s=2个：
1267650600228229401496703251307   1267650600228229401496703251309  n1= 158456325028528675187087906413
1267650600228229401496703253347   1267650600228229401496703253349  n1= 158456325028528675187087906668

这是连续1000项内找到的两对孪生素数

ysr

我的《数论探秘》在淘宝上有销售，价格也不贵因为是首发，点开淘宝，搜索“筑书文化”店铺，点击进入店铺，就可以看到我的《数论探秘》了。欢迎浏览和购买，欢迎结缘！

希望普及知识 ，弘扬科学精神！
我的书得到普及的话，由于用到的知识点儿不高，有关知识将有可能很快会进入中学课本。

我有著作权登记证，受中国知识产权保护中心保护呢，虽然不能证明我的知识点儿高级，但是能证明我的论文不与别人的学术重复是受保护的。

ysr

前天发某院快递内包装一本新书我的《数论探秘》，请该院转交一位在数学方面有影响力的名人，软件显示9.16日上午10:21已经签收，可是我到现在也没收到回复  ，谁知道是不是没有给转交？据网友介绍该院有俩人处理这样的事，该俩人每天会往收费站卖大量废纸，可能我的书已经送往收费站了。
中国人发表一个成果何其艰难？似这样下去如何才能发展科技？