|
本帖最后由 ysr 于 2020-5-25 23:58 编辑
1,绝对下限公式:设偶数X其方根为M=X^(1/2),c=M/lnM,则绝对下限为c-1.
2,下限公式:设d=c/(ln(16*c)+1),则当偶数大于等于150时下限为:s=c*d-1.
3,下限公式:当偶数大于等于484时,则下限公式为:s=c*(c/ln(4*c)-1)-1.
代码如下(代码是把前3个公式结合起来的,当大于等于484时结果都是第3个公式的计算值):
Private Sub Command1_Click() 'gedebahhesushuhedui oushude xiaxian ???
Dim a, b, c, d
a = Val(Text1)
b = Sqr(a)
c = b / Log(b)
d = c / (Log(16 * c) + 1)
If a <= 150 Then
Text2 = "偶数 " & a & "拆分个数绝对下限 " & c - 1
Else
If a <= 484 Then
Text2 = "偶数 " & a & "拆分个数下限 " & c * d-1
Else
Text2 = c * (c / Log(4 * c) - 1) - 1
End If
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub
下面上传这个程序代码的可执行程序,欢迎使用沟通! |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|