朋友，请看一下重要启示！

ysr

'兔子数列程序
Private Function tzshulie(sa As String) As String
Dim a, b, c
a = Val(sa)
b = 1
B1 = 0
b2 = 1
b3 = 0
Do While b <= a
B1 = b2
s1 = s1 & "/" & Trim(b3)
b2 = b3
b3 = MPC1(Trim(B1), Trim(b2))
b = Val(b + 1)
Loop
tzshulie = s1
End Function

Private Sub Command1_Click()
Dim a, b, ak()
a1 = Trim(Text1)
s3 = tzshulie(Val(a1))
s5 = Split(s3, "/")
j1 = UBound(s5)
For k = 1 To j1
      n1 = n1 + 1
       ReDim Preserve ak(1 To n1)
      ak(n1) = s5(n1)
   
    Next
   
    For I = 2 To j1 - 2
a = MbC(Trim(ak(I)), Trim(ak(I)))
b = MbC(Trim(ak(I + 1)), Trim(ak(I + 1)))
c = MbC(Trim(ak(I + 2)), Trim(ak(I + 2)))
d = MBBC(MPC1(MbC(Trim(a), Trim(a)), MbC(Trim(b), Trim(b))))
e = MBBC(MPC1(MbC(Trim(c), Trim(c)), MbC(Trim(b), Trim(b))))
f = MBBC(MPC1(MbC(Trim(a), Trim(a)), MbC(Trim(c), Trim(c))))
g = MPC1(MbC(Trim(a), Trim(a)), MPC1(MbC(Trim(c), Trim(c)), MbC(Trim(b), Trim(b))))
If InStr(Trim(d), "/") = 0 And InStr(Trim(e), "/") = 0 And InStr(Trim(f), "/") = 0 Then
s = s & "不完美长方体是：a=" & a & " b=" & b & " c=" & c & " d=" & d & " e=" & e & " f=" & f & " g=" & Sqr(g) & vbCrLf
s1 = s1 + 1
Else
s = s
End If

Next
If s1 > 0 Then
Text2 ="不完美长方体有" &  s1 & "组解" & s
Else
Text2 = "无解"
End If


End Sub

Treenewbee

完美长方体是不存在的

Treenewbee

\[(a^2 + b^2 + c^2 + d^2)^2 = (a^2 + b^2 -c^2 -d^2)^2 + 4(ac + bd)^2 + 4(ad-bc)^2\]

Treenewbee

abcd为任意整数

Treenewbee

Treenewbee 发表于 2023-2-10 09:11
完美长方体是不存在的

Google搜索：The Non-existence of Perfect Cuboid - arXiv

Treenewbee

完美长方体是不存在的，数学的乐趣就在于她的不完美。探索是好事，理论支持和相关进展也是必要的

Treenewbee

Treenewbee 发表于 2023-2-10 09:11
完美长方体是不存在的

你需要算什么，我可以帮你优化下

ysr

Treenewbee 发表于 2023-2-10 01:24
Google搜索：The Non-existence of Perfect Cuboid - arXiv

都是英语，好在网上是自带翻译，翻译过来是：（这是权威解答吗？）

完美长方体的不存在
来自 钛学术
? 喜欢 0
阅读量：11
公开/公告号：10.48550/arXiv.2005.07514
公开/公告日期：2020/05/14
发明人：死了，S.
摘要：完美长方体，俗称完美欧拉砖/完美盒，是具有整数边长、整数面对角线和整数空间对角线的长方体。欧拉提供了一个例子，其中只有主体对角线对于整数值有缺陷，但它被称为欧拉砖。没有人发现任何完美的长方体，但我们中的许多人都尝试过。这项研究论文的结果证明，不存在完美的长方体。
?收藏 ?引用 ?批量引用 ?报错 ?分享
全部来源免费下载求助全文
arXiv.org  研究门  学术范  钛学术  钛学术 (全网免费下载)  查看更多
相似文献
完美长方体不存在的证据

本文通过使用两个工具展示了完美长方体的不存在，第一个工具是用两个数字表示毕达哥拉斯三元组，第二个工具是在同一时间实现同一问题的两个相似方程的不可能性......

B·达维特

被引量: 0发表: 2014年
完美的长方体和不可约多项式。

它们在整数环上的不可约性在a，b和u的某些限制下意味着不存在完美的长方体。这。。。

沙里波夫

被引量: 0发表: 0年
关于不存在完美和近乎完美的代码

本文的主要结果是证明在一定距离正则图中不存在一类完全正则码。这一结果的推论确立了在i...

P Hammond - 《离散数学》

被引量: 17发表: 1982年
关于 q = 8 和 q = 9 符号上不存在完美的双汉明纠错码

这项工作是作者早期论文的延续，其中对值q = 7也取得了类似的结果。通过推广和扩展技术...

Alter， R - 《Information & Control》

被引量: 7发表: 1968年
完美长方体不可能存在的证明

我们使用二次恒等式来构建毕达哥拉斯链，以证明不可能存在一个完美的长方体整数砖，所有七个c...

DV弗拉基米罗维奇，LA亚历山德罗维奇

被引量: 0发表: 2014年
完美长方体存在的一些限制

完美长方体的存在与否至少从欧拉时代就已经存在。本文仅使用最基本的数学来...

TS Roberts - 《澳大利亚数学学会公报》

被引量: 0发表: 2010年
论完美长方体的存在

欧拉砖是具有整数边和整数面对角线的矩形棱柱。完美的长方体是具有整数空间对角线的欧拉砖。一。。。

S 厨房 - 欧勒

被引量: 0发表: 2015年
论完美理性长方体

一个$K$有理长方体如果它的身体对角线在$K$，则被称为完美的。完美 $\\mathbb{Q}$ -理性长方体的存在是......

A Bremner - 《澳大利亚数学学会公报》

被引量: 0发表: 2017年
完美长方体问题的渐近方法

完美长方体问题是数论中尚未解决的古老问题之一。通过各种方法，可以简化为找到一些单一的高次丢番图方程的解，服从某些限制...

RA Sharipov - 《乌法数学杂志》

ysr

Private Sub Command1_Click()
Dim a, B, q, m
Dim t As Double
t = Timer
a2 = Val(Text1)
m1 = Trim(Text4)
m2 = Trim(Text5)
m3 = MPC1(MbC(Trim(m2), 4), 66)
a1 = a2
If Right(a2, 1) Mod 2 = 0 Then
a2 = a2 + 1
Else
a2 = a2
End If
q = Val(Text2)
m = MPC1(MbC(Trim(m1), 4), 66)
Do While MBJC(Trim(m), Trim(m3)) <= 0
p1 = a2

Do While p1 <= q And p1 <= m

Do While InStr(fenjieyinzi0(Trim(p1)), "*") > 0
p1 = p1 + 2
Loop
a1 = 1
B1 = Sqr(Val(p1 - a1 ^ 2))
Do While InStr(B1, ".") <> 0 And p1 > Val(a1 ^ 2)
a1 = a1 + 1
B1 = Sqr(Abs(Val(p1 - a1 ^ 2)))
Loop
If InStr(B1, ".") = 0 Then
p2 = MPC(Trim(m), Trim(p1))



p3 = MPC1(Trim(p2), 2)


a = fenjieyinzi(Val(p1))
B = fenjieyinzi0(Trim(p2))
c = fenjieyinzi0(Trim(p3))


If InStr(a, "*") = 0 And InStr(B, "*") = 0 And InStr(c, "*") = 0 And InStr(B11, ".") = 0 And InStr(D12, ".") = 0 Then
s = s + 1
Print p1, p2, p3, p4
Text3 = Text3 & CStr(p1) & "," & CStr(p2) & "," & p3 & ",4n+2=" & m & vbCrLf

Else
s = s
End If
Else
p1 = p1
End If


p1 = Val(p1 + 2)


Loop
m = MPC1(Trim(m), 4)
Loop
Combo1 = q & "内有" & s & "组蔡氏素数:" & vbCrLf & Text3 & "用时" & Timer - t & "秒"

End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Combo1 = ""
Form1.Cls
End Sub
'这是找孪生素数的一种方法，其他方法没有保存代码有一个还在运行

ysr

Treenewbee 发表于 2023-2-10 01:27
你需要算什么，我可以帮你优化下

我的判断大素数的方法采用欧拉原理，具体方法就是RSA公钥密码我改一下功能而已，原理和公式都是科学家证明过的，代码还用到辗转相除法，快速幂模，和求大整数的乘法的逆元，都是大数据的，能优化吗？给你发一下吧，其中的大数的加减乘除，开方等可调用运算程序就不发了