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

ysr · 发表于 2023-1-26 11:38

有160组/173543062225=416585^2=25672050625+147871011600=160225^2+384540^2
/181459812361=425981^2=121609125625+59850686736=348725^2+244644^2
/641801265625=801125^2=231048455625+410752810000=480675^2+640900^2
/419008941481=647309^2=249525225625+169483715856=499525^2+411684^2
/641801265625=801125^2=410752810000+231048455625=640900^2+480675^2
/173543062225=416585^2=70812225+173472250000=8415^2+416500^2
/173543062225=416585^2=173472250000+70812225=416500^2+8415^2
/280794010000=529900^2=173472250000+107321760000=416500^2+327600^2
/173543062225=416585^2=86638864+173456423361=9308^2+416481^2
/173543062225=416585^2=173456423361+86638864=416481^2+9308^2
/173543062225=416585^2=141610000+173401452225=11900^2+416415^2
/1708582225=41335^2=141610000+1566972225=11900^2+39585^2
/173543062225=416585^2=173401452225+141610000=416415^2+11900^2
/173543062225=416585^2=313962961+173229099264=17719^2+416208^2
/173543062225=416585^2=173229099264+313962961=416208^2+17719^2
/173543062225=416585^2=876219201+172666843024=29601^2+415532^2
/13317390801=115401^2=876219201+12441171600=29601^2+111540^2
/173543062225=416585^2=172666843024+876219201=415532^2+29601^2
/173543062225=416585^2=973440000+172569622225=31200^2+415415^2
/173543062225=416585^2=172569622225+973440000=415415^2+31200^2
/1708582225=41335^2=1566972225+141610000=39585^2+11900^2
/173543062225=416585^2=1566972225+171976090000=39585^2+414700^2
/173543062225=416585^2=171976090000+1566972225=414700^2+39585^2
/173543062225=416585^2=2385443281+171157618944=48841^2+413712^2
/173543062225=416585^2=171157618944+2385443281=413712^2+48841^2
/295566195600=543660^2=171157618944+124408576656=413712^2+352716^2
/173543062225=416585^2=2643502225+170899560000=51415^2+413400^2
/173543062225=416585^2=170899560000+2643502225=413400^2+51415^2
/173543062225=416585^2=2696413329+170846648896=51927^2+413336^2
/173543062225=416585^2=170846648896+2696413329=413336^2+51927^2
/173543062225=416585^2=3067387456+170475674769=55384^2+412887^2
/173543062225=416585^2=170475674769+3067387456=412887^2+55384^2
/173543062225=416585^2=3270467344+170272594881=57188^2+412641^2
/173543062225=416585^2=170272594881+3270467344=412641^2+57188^2
/248946113025=498945^2=170272594881+78673518144=412641^2+280488^2
/173543062225=416585^2=3677088321+169865973904=60639^2+412148^2
/173543062225=416585^2=169865973904+3677088321=412148^2+60639^2
/173543062225=416585^2=4059346369+169483715856=63713^2+411684^2
/419008941481=647309^2=169483715856+249525225625=411684^2+499525^2
/173543062225=416585^2=169483715856+4059346369=411684^2+63713^2
/173543062225=416585^2=4754378304+168788683921=68952^2+410839^2
/173543062225=416585^2=168788683921+4754378304=410839^2+68952^2
/181229855521=425711^2=168788683921+12441171600=410839^2+111540^2
/173543062225=416585^2=5186304256+168356757969=72016^2+410313^2
/173543062225=416585^2=168356757969+5186304256=410313^2+72016^2
/173543062225=416585^2=5692249809+167850812416=75447^2+409696^2
/173543062225=416585^2=167850812416+5692249809=409696^2+75447^2
/173543062225=416585^2=7732036624+165811025601=87932^2+407199^2
/173543062225=416585^2=165811025601+7732036624=407199^2+87932^2
/173543062225=416585^2=8905130689+164637931536=94367^2+405756^2
/173543062225=416585^2=164637931536+8905130689=405756^2+94367^2
/173543062225=416585^2=9905822784+163637239441=99528^2+404521^2
/173543062225=416585^2=163637239441+9905822784=404521^2+99528^2
/173543062225=416585^2=10515271936+163027790289=102544^2+403767^2
/173543062225=416585^2=163027790289+10515271936=403767^2+102544^2
/310898801889=557583^2=163027790289+147871011600=403767^2+384540^2
/173543062225=416585^2=11594767041+161948295184=107679^2+402428^2
/173543062225=416585^2=161948295184+11594767041=402428^2+107679^2
/13317390801=115401^2=12441171600+876219201=111540^2+29601^2
/181229855521=425711^2=12441171600+168788683921=111540^2+410839^2
/173543062225=416585^2=12441171600+161101890625=111540^2+401375^2
/173543062225=416585^2=161101890625+12441171600=401375^2+111540^2
/173543062225=416585^2=13004209296+160538852929=114036^2+400673^2
/173543062225=416585^2=160538852929+13004209296=400673^2+114036^2
/173543062225=416585^2=14310140625+159232921600=119625^2+399040^2
/173543062225=416585^2=159232921600+14310140625=399040^2+119625^2
/173543062225=416585^2=15119161600+158423900625=122960^2+398025^2
/173543062225=416585^2=158423900625+15119161600=398025^2+122960^2
/173543062225=416585^2=17154450625+156388611600=130975^2+395460^2
/173543062225=416585^2=156388611600+17154450625=395460^2+130975^2
/173543062225=416585^2=17555190016+155987872209=132496^2+394953^2
/173543062225=416585^2=155987872209+17555190016=394953^2+132496^2
/173543062225=416585^2=19725359809+153817702416=140447^2+392196^2
/173543062225=416585^2=153817702416+19725359809=392196^2+140447^2
/173543062225=416585^2=20656588176+152886474049=143724^2+391007^2
/173543062225=416585^2=152886474049+20656588176=391007^2+143724^2
/173543062225=416585^2=22253180625+151289881600=149175^2+388960^2
/173543062225=416585^2=151289881600+22253180625=388960^2+149175^2
/173543062225=416585^2=22980437649+150562624576=151593^2+388024^2
/173543062225=416585^2=150562624576+22980437649=388024^2+151593^2
/173543062225=416585^2=25672050625+147871011600=160225^2+384540^2
/173543062225=416585^2=147871011600+25672050625=384540^2+160225^2
/310898801889=557583^2=147871011600+163027790289=384540^2+403767^2
/173543062225=416585^2=147871011600+25672050625=384540^2+160225^2
/173543062225=416585^2=27418061056+146125001169=165584^2+382263^2
/173543062225=416585^2=146125001169+27418061056=382263^2+165584^2
/173543062225=416585^2=28210561600+145332500625=167960^2+381225^2
/173543062225=416585^2=145332500625+28210561600=381225^2+167960^2
/173543062225=416585^2=28485675729+145057386496=168777^2+380864^2
/173543062225=416585^2=145057386496+28485675729=380864^2+168777^2
/173543062225=416585^2=31129662096+142413400129=176436^2+377377^2
/173543062225=416585^2=142413400129+31129662096=377377^2+176436^2
/173543062225=416585^2=33864464529+139678597696=184023^2+373736^2
/173543062225=416585^2=139678597696+33864464529=373736^2+184023^2
/173543062225=416585^2=34395411600+139147650625=185460^2+373025^2
/173543062225=416585^2=139147650625+34395411600=373025^2+185460^2
/173543062225=416585^2=35022876736+138520185489=187144^2+372183^2
/173543062225=416585^2=138520185489+35022876736=372183^2+187144^2
/173543062225=416585^2=35560530625+137982531600=188575^2+371460^2
/173543062225=416585^2=137982531600+35560530625=371460^2+188575^2
/173543062225=416585^2=38431681600+135111380625=196040^2+367575^2
/85586672704=292552^2=38431681600+47154991104=196040^2+217152^2
/173543062225=416585^2=135111380625+38431681600=367575^2+196040^2
/242433140625=492375^2=135111380625+107321760000=367575^2+327600^2
/173543062225=416585^2=41381730625+132161331600=203425^2+363540^2
/173543062225=416585^2=132161331600+41381730625=363540^2+203425^2
/173543062225=416585^2=41699273616+131843788609=204204^2+363103^2
/173543062225=416585^2=131843788609+41699273616=363103^2+204204^2
/173543062225=416585^2=42625731600+130917330625=206460^2+361825^2
/173543062225=416585^2=130917330625+42625731600=361825^2+206460^2
/173543062225=416585^2=42810920464+130732141761=206908^2+361569^2
/173543062225=416585^2=130732141761+42810920464=361569^2+206908^2
/173543062225=416585^2=44730981009+128812081216=211497^2+358904^2
/173543062225=416585^2=128812081216+44730981009=358904^2+211497^2
/85586672704=292552^2=47154991104+38431681600=217152^2+196040^2
/173543062225=416585^2=47154991104+126388071121=217152^2+355511^2
/173543062225=416585^2=126388071121+47154991104=355511^2+217152^2
/173543062225=416585^2=49134485569+124408576656=221663^2+352716^2
/295566195600=543660^2=124408576656+171157618944=352716^2+413712^2
/173543062225=416585^2=124408576656+49134485569=352716^2+221663^2
/173543062225=416585^2=50305555521+123237506704=224289^2+351052^2
/173543062225=416585^2=123237506704+50305555521=351052^2+224289^2
/173543062225=416585^2=56540755089+117002307136=237783^2+342056^2
/173543062225=416585^2=117002307136+56540755089=342056^2+237783^2
/173543062225=416585^2=57758028241+115785033984=240329^2+340272^2
/173543062225=416585^2=115785033984+57758028241=340272^2+240329^2
/173543062225=416585^2=59130676224+114412386001=243168^2+338249^2
/173543062225=416585^2=114412386001+59130676224=338249^2+243168^2
/181459812361=425981^2=59850686736+121609125625=244644^2+348725^2
/173543062225=416585^2=59850686736+113692375489=244644^2+337183^2
/173543062225=416585^2=113692375489+59850686736=337183^2+244644^2
/173543062225=416585^2=61234966849+112308095376=247457^2+335124^2
/173543062225=416585^2=112308095376+61234966849=335124^2+247457^2
/173543062225=416585^2=62475502401+111067559824=249951^2+333268^2
/173543062225=416585^2=111067559824+62475502401=333268^2+249951^2
/173543062225=416585^2=64605438976+108937623249=254176^2+330057^2
/173543062225=416585^2=108937623249+64605438976=330057^2+254176^2
/173543062225=416585^2=65859983424+107683078801=256632^2+328151^2
/173543062225=416585^2=107683078801+65859983424=328151^2+256632^2
/173543062225=416585^2=66221302225+107321760000=257335^2+327600^2
/280794010000=529900^2=107321760000+173472250000=327600^2+416500^2
/242433140625=492375^2=107321760000+135111380625=327600^2+367575^2
/173543062225=416585^2=107321760000+66221302225=327600^2+257335^2
/173543062225=416585^2=67272278161+106270784064=259369^2+325992^2
/173543062225=416585^2=106270784064+67272278161=325992^2+259369^2
/173543062225=416585^2=69643210000+103899852225=263900^2+322335^2
/173543062225=416585^2=103899852225+69643210000=322335^2+263900^2
/173543062225=416585^2=74529000000+99014062225=273000^2+314665^2
/173543062225=416585^2=99014062225+74529000000=314665^2+273000^2
/173543062225=416585^2=75190575681+98352486544=274209^2+313612^2
/173543062225=416585^2=98352486544+75190575681=313612^2+274209^2
/248946113025=498945^2=78673518144+170272594881=280488^2+412641^2
/173543062225=416585^2=78673518144+94869544081=280488^2+308009^2
/173543062225=416585^2=94869544081+78673518144=308009^2+280488^2
/173543062225=416585^2=82541290000+91001772225=287300^2+301665^2
/173543062225=416585^2=91001772225+82541290000=301665^2+287300^2
/173543062225=416585^2=83620445584+89922616641=289172^2+299871^2
/173543062225=416585^2=89922616641+83620445584=299871^2+289172^2
/173543062225=416585^2=86045422225+87497640000=293335^2+295800^2
/173543062225=416585^2=87497640000+86045422225=295800^2+293335^2
/平方数416585^2的拆分解有:67组/416585^2=8415^2+416500^2
/416585^2=9308^2+416481^2
/416585^2=11900^2+416415^2
/416585^2=17719^2+416208^2
/416585^2=29601^2+415532^2
/416585^2=31200^2+415415^2
/416585^2=39585^2+414700^2
/416585^2=48841^2+413712^2
/416585^2=51415^2+413400^2
/416585^2=51927^2+413336^2
/416585^2=55384^2+412887^2
/416585^2=57188^2+412641^2
/416585^2=60639^2+412148^2
/416585^2=63713^2+411684^2
/416585^2=68952^2+410839^2
/416585^2=72016^2+410313^2
/416585^2=75447^2+409696^2
/416585^2=87932^2+407199^2
/416585^2=94367^2+405756^2
/416585^2=99528^2+404521^2
/416585^2=102544^2+403767^2
/416585^2=107679^2+402428^2
/416585^2=111540^2+401375^2
/416585^2=114036^2+400673^2
/416585^2=119625^2+399040^2
/416585^2=122960^2+398025^2
/416585^2=130975^2+395460^2
/416585^2=132496^2+394953^2
/416585^2=140447^2+392196^2
/416585^2=143724^2+391007^2
/416585^2=149175^2+388960^2
/416585^2=151593^2+388024^2
/416585^2=160225^2+384540^2
/416585^2=165584^2+382263^2
/416585^2=167960^2+381225^2
/416585^2=168777^2+380864^2
/416585^2=176436^2+377377^2
/416585^2=184023^2+373736^2
/416585^2=185460^2+373025^2
/416585^2=187144^2+372183^2
/416585^2=188575^2+371460^2
/416585^2=196040^2+367575^2
/416585^2=203425^2+363540^2
/416585^2=204204^2+363103^2
/416585^2=206460^2+361825^2
/416585^2=206908^2+361569^2
/416585^2=211497^2+358904^2
/416585^2=217152^2+355511^2
/416585^2=221663^2+352716^2
/416585^2=224289^2+351052^2
/416585^2=237783^2+342056^2
/416585^2=240329^2+340272^2
/416585^2=243168^2+338249^2
/416585^2=244644^2+337183^2
/416585^2=247457^2+335124^2
/416585^2=249951^2+333268^2
/416585^2=254176^2+330057^2
/416585^2=256632^2+328151^2
/416585^2=257335^2+327600^2
/416585^2=259369^2+325992^2
/416585^2=263900^2+322335^2
/416585^2=273000^2+314665^2
/416585^2=274209^2+313612^2
/416585^2=280488^2+308009^2
/416585^2=287300^2+301665^2
/416585^2=289172^2+299871^2
/416585^2=293335^2+295800^2

ysr · 发表于 2023-1-26 11:54

本帖最后由 ysr 于 2023-1-26 07:22 编辑

Private Sub Command1_Click()
Dim a, B, ak()
a = Trim(Text1)
a1 = 1
Do While a1 ^ 2 <= (a + 1) ^ 2 / 2
a2 = a ^ 2 - a1 ^ 2
If InStr(a2 ^ (1 / 2), ".") = 0 Then
js = js + 1
s2 = s2 & "/" & a & "^2=" & a1 & "^2+" & a2 ^ (1 / 2) & "^2" & vbCrLf
s13 = s13 & "/" & a1 ^ 2 & "/" & a2
Else
s13 = s13
End If

a1 = a1 + 1
Loop
s = ",160225, 204425, 226525, 292825, 320450, 337025, 348725, 386425, 403325, 408850, 416585, 453050, 456025, 480675, 491725, 493025, 499525, 505325, 531505, 535925, 544765, 558025, 574925, 585650, 588965, 602225, 613275, 624325, 637325, 640900"
s4 = Split(s, ",")
j = UBound(s4)
For k = 1 To j
   n1 = n1 + 1
   ReDim Preserve ak(1 To n1)
   ak(n1) = s4(n1)
   s12 = s12 & "/" & Val(ak(n1)) ^ 2
Next
s12 = s12 & "/" & s13
s6 = paixu3(Trim(s12), Trim(s12))
s3 = paixu33(Trim(s12), Trim(s12), Trim(s12))
's3 = "/" & s3
s5 = Split(s3, "/")
j1 = UBound(s5)
If js = 0 Then
Text2 = "有" & j1 & "组" & s3
Else
Text2 = "有" & j1 & "组" & s3 & "/平方数" & a & "^2的拆分解有:" & js & "组" & s2
End If

End Sub

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

End Sub

Private Function paixu33(a As String, B As String, c As String) As String
Dim i As Integer
Dim ak(), s105, cr(), f, bk(), cr1()
s103 = a
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "/")
s205 = Split(B, "/")
s206 = Split(c, "/")
j1 = UBound(s105)
j2 = UBound(s205)
j3 = UBound(s206)
Print j1
For k = 1 To j1
   n1 = n1 + 1
   ReDim Preserve ak(1 To n1)
   ak(n1) = s105(n1)
Next
For k = 1 To j2
   n2 = n2 + 1
      ReDim Preserve bk(1 To n2)
   bk(n2) = s205(n2)
Next
For k = 1 To j3
   n3 = n3 + 1
      ReDim Preserve cr(1 To n3)
   cr(n3) = s206(n3)
Next

   n = 0
      For k = 1 To 20
         For i = 1 To 20
         For i1 = 1 To 20
         n = n + 1
         ReDim Preserve cr1(1 To n)
         m = Val(ak(k)) + Val(bk(i)) + Val(cr(i1))
         f(m) = ""
         If InStr(Sqr(Val(m)), ".") = 0 And Val(ak(k)) <> 0 And Val(bk(i)) <> 0 Then
         s22 = s22 & "/" & m & "=" & m ^ (1 / 2) & "^2=" & Val(ak(k)) & "+" & Val(bk(i)) & "+" & Val(cr(i1)) & "=" & Val(ak(k)) ^ (1 / 2) & "^2+" & Val(bk(i)) ^ (1 / 2) & "^2+" & Val(cr(i1)) ^ (1 / 2) & "^2" & vbCrLf
         Else
         s22 = s22
         End If
   Next
   Next
Next

      MsgBox "ok"
   MsgBox s22  '显示数组
   paixu33 = s22
End Function

Private Function paixu3(a As String, B As String) As String
Dim i As Integer
Dim ak(), s105, cr(), f, bk()
s103 = a
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "/")
s205 = Split(B, "/")
j1 = UBound(s105)
j2 = UBound(s205)
Print j1
For k = 1 To j1
   n1 = n1 + 1
   ReDim Preserve ak(1 To n1)
   ak(n1) = s105(n1)
Next
For k = 1 To j2
   n2 = n2 + 1
      ReDim Preserve bk(1 To n2)
   bk(n2) = s205(n2)
Next

   n = 0
      For k = 1 To j1
         For i = 1 To j2
         n = n + 1
         ReDim Preserve cr(1 To n)
         m = Val(ak(k)) + Val(bk(i))
         f(m) = ""
   Next
Next
   n = 0
   m = f.Keys
   For i = 0 To j1
      ReDim Preserve cr(1 To i + 1)
      cr(i + 1) = m(i)
   Next
   For i = 1 To UBound(cr) - 1
      For j = i + 1 To UBound(cr)
         If cr(i) > cr(j) Then
            temp = cr(j)
            cr(j) = cr(i)
            cr(i) = temp  'c数组是排序好的
         End If
      Next j

   ' If i Mod 20 = 0 Then
   ' s104 = s104 & temp & "/" & vbCrLf
   ' Else
   ' s104 = s104 & temp & "/"
   ' End If
Next i

   For i = 1 To UBound(cr)
      If i Mod 20 = 0 Then
      s104 = s104 & cr(i) & "/" & vbCrLf
      Else
      s104 = s104 & cr(i) & "/"
      End If
   Next
      Print temp
      MsgBox "ok"
   MsgBox s104  '显示数组
   paixu3 = s104
End Function

Private Function paixu0(a As String, B As String) As String
Dim i As Integer
Dim ak(), s105, cr(), f, bk()
s103 = a
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "/")
s205 = Split(B, "/")
j1 = UBound(s105)
j2 = UBound(s205)
Print j1
For k = 1 To j1
   n1 = n1 + 1
   ReDim Preserve ak(1 To n1)
   ak(n1) = s105(n1)
Next
For k = 1 To j2
   n2 = n2 + 1
      ReDim Preserve bk(1 To n2)
   bk(n2) = s205(n2)
Next

   n = 0
      For k = 1 To j1
         For i = 1 To j2
         n = n + 1
         ReDim Preserve cr(1 To n)
         m = Val(ak(k)) + Val(bk(i))
         f(m) = ""
         If InStr(Sqr(Val(m)), ".") = 0 And Val(ak(k)) <> 0 And Val(bk(i)) <> 0 Then
         s22 = s22 & "/" & m & "=" & m ^ (1 / 2) & "^2=" & Val(ak(k)) & "+" & Val(bk(i)) & "=" & Val(ak(k)) ^ (1 / 2) & "^2+" & Val(bk(i)) ^ (1 / 2) & "^2" & vbCrLf
         Else
         s22 = s22
         End If
   Next
Next

      MsgBox "ok"
   MsgBox s22  '显示数组
   paixu0 = s22
End Function

ysr · 发表于 2023-1-26 13:13

本帖最后由 ysr 于 2023-1-26 08:14 编辑

有15组/231048455625=480675^2=25672050625+102688202500+102688202500=160225^2+320450^2+320450^2
/376106225625=613275^2=41789580625+167158322500+167158322500=204425^2+408850^2+408850^2
/461822180625=679575^2=51313575625+205254302500+205254302500=226525^2+453050^2+453050^2
/231048455625=480675^2=102688202500+25672050625+102688202500=320450^2+160225^2+320450^2
/231048455625=480675^2=102688202500+102688202500+25672050625=320450^2+320450^2+160225^2
/376106225625=613275^2=167158322500+41789580625+167158322500=408850^2+204425^2+408850^2
/376106225625=613275^2=167158322500+167158322500+41789580625=408850^2+408850^2+204425^2
/659628230625=812175^2=167158322500+205254302500+287215605625=408850^2+453050^2+535925^2
/659628230625=812175^2=167158322500+287215605625+205254302500=408850^2+535925^2+453050^2
/461822180625=679575^2=205254302500+51313575625+205254302500=453050^2+226525^2+453050^2
/659628230625=812175^2=205254302500+167158322500+287215605625=453050^2+408850^2+535925^2
/461822180625=679575^2=205254302500+205254302500+51313575625=453050^2+453050^2+226525^2
/659628230625=812175^2=205254302500+287215605625+167158322500=453050^2+535925^2+408850^2
/659628230625=812175^2=287215605625+167158322500+205254302500=535925^2+408850^2+453050^2
/659628230625=812175^2=287215605625+205254302500+167158322500=535925^2+453050^2+408850^2
/平方数573040^2的拆分解有:13组/573040^2=67184^2+569088^2
/573040^2=94848^2+565136^2
/573040^2=129808^2+558144^2
/573040^2=141056^2+555408^2
/573040^2=156864^2+551152^2
/573040^2=205200^2+535040^2
/573040^2=220400^2+528960^2
/573040^2=231040^2+524400^2
/573040^2=280896^2+499472^2
/573040^2=290928^2+493696^2
/573040^2=304912^2+485184^2
/573040^2=343824^2+458432^2
/573040^2=395200^2+414960^2
这个项多了算不完，仅仅算了前20项

ysr · 发表于 2023-1-26 13:18

ysr 发表于 2023-1-26 03:54
Private Sub Command1_Click()
Dim a, B, ak()
a = Trim(Text1)

回复您的点评：“楼主VB6功力深厚！不过专业的问题还是建议学习pari 或者mathematica，事半功倍发表于 2023-1-26 04:21”

谢谢您的指点！我会一点VB6.0，其他的不会，向您们学习！据说python语言做的大数运算程序很快，想学习，没有入门，找资料也还没有找到。

ysr · 发表于 2023-1-26 15:01

本帖最后由 ysr 于 2023-1-26 07:48 编辑

有28组/231048455625=480675^2=25672050625+102688202500=160225^2+320450^2
/376106225625=613275^2=41789580625+167158322500=204425^2+408850^2
/231048455625=480675^2=102688202500+25672050625=320450^2+160225^2
/231048455625=480675^2=102688202500+102688202500=320450^2+320450^2
/659628230625=812175^2=102688202500+389781705625=320450^2+624325^2
/376106225625=613275^2=167158322500+41789580625=408850^2+204425^2
/376106225625=613275^2=167158322500+167158322500=408850^2+408850^2
/659628230625=812175^2=167158322500+389781705625=408850^2+624325^2
/461822180625=679575^2=205254302500+205254302500=453050^2+453050^2
/659628230625=812175^2=205254302500+287215605625=453050^2+535925^2
/834619280625=913575^2=205254302500+526676775625=453050^2+725725^2
/659628230625=812175^2=287215605625+205254302500=535925^2+453050^2
/771718325625=878475^2=342985922500+342985922500=585650^2+585650^2
/659628230625=812175^2=389781705625+102688202500=624325^2+320450^2
/659628230625=812175^2=389781705625+167158322500=624325^2+408850^2
/924193822500=961350^2=410752810000+410752810000=640900^2+640900^2
/924193822500=961350^2=410752810000+410752810000=640900^2+640900^2
/634738857025=796705^2=17582760000+591484046400=132600^2+769080^2
/357289521169=597737^2=17582760000+314034710544=132600^2+560388^2
/177430500625=421225^2=36633960000+115124490000=191400^2+339300^2
/634738857025=796705^2=591484046400+17582760000=769080^2+132600^2
/1164942455625=1079325^2=556814440000+556814440000=746200^2+746200^2
/177430500625=421225^2=115124490000+36633960000=339300^2+191400^2
/834619280625=913575^2=526676775625+205254302500=725725^2+453050^2
/386946202500=622050^2=142129000000+142129000000=377000^2+377000^2
/924193822500=961350^2=410752810000+410752810000=640900^2+640900^2
/924193822500=961350^2=410752810000+410752810000=640900^2+640900^2
/357289521169=597737^2=314034710544+17582760000=560388^2+132600^2
/平方数801125^2的拆分解有:94组/801125^2=5219^2+801108^2
/801125^2=10205^2+801060^2
/801125^2=17900^2+800925^2
/801125^2=28101^2+800632^2
/801125^2=28860^2+800605^2
/801125^2=31941^2+800488^2
/801125^2=34075^2+800400^2
/801125^2=44268^2+799901^2
/801125^2=56925^2+799100^2
/801125^2=60000^2+798875^2
/801125^2=65960^2+798405^2
/801125^2=70928^2+797979^2
/801125^2=76125^2+797500^2
/801125^2=88740^2+796195^2
/801125^2=93925^2+795600^2
/801125^2=98875^2+795000^2
/801125^2=104052^2+794339^2
/801125^2=104805^2+794240^2
/801125^2=122525^2+791700^2
/801125^2=127680^2+790885^2
/801125^2=132600^2+790075^2
/801125^2=150220^2+786915^2
/801125^2=163995^2+784160^2
/801125^2=166085^2+783720^2
/801125^2=169100^2+783075^2
/801125^2=181475^2+780300^2
/801125^2=187293^2+778924^2
/801125^2=191400^2+777925^2
/801125^2=197200^2+776475^2
/801125^2=207075^2+773900^2
/801125^2=209467^2+773256^2
/801125^2=214500^2+771875^2
/801125^2=219300^2+770525^2
/801125^2=224315^2+769080^2
/801125^2=225044^2+768867^2
/801125^2=241443^2+763876^2
/801125^2=251875^2+760500^2
/801125^2=254800^2+759525^2
/801125^2=256824^2+758843^2
/801125^2=278396^2+751197^2
/801125^2=281285^2+750120^2
/801125^2=281996^2+749853^2
/801125^2=286875^2+748000^2
/801125^2=291525^2+746200^2
/801125^2=296380^2+744285^2
/801125^2=298680^2+743365^2
/801125^2=308125^2+739500^2
/801125^2=312936^2+737477^2
/801125^2=313635^2+737180^2
/801125^2=317520^2+735515^2
/801125^2=323000^2+733125^2
/801125^2=334565^2+727920^2
/801125^2=337364^2+726627^2
/801125^2=339300^2+725725^2
/801125^2=348517^2+721344^2
/801125^2=351973^2+719664^2
/801125^2=367965^2+711620^2
/801125^2=372387^2+709316^2
/801125^2=377000^2+706875^2
/801125^2=381597^2+704404^2
/801125^2=392700^2+698275^2
/801125^2=397900^2+695325^2
/801125^2=401563^2+693216^2
/801125^2=402220^2+692835^2
/801125^2=406725^2+690200^2
/801125^2=415484^2+684963^2
/801125^2=417600^2+683675^2
/801125^2=422045^2+680940^2
/801125^2=426275^2+678300^2
/801125^2=431325^2+675100^2
/801125^2=433920^2+673435^2
/801125^2=452980^2+660765^2
/801125^2=454740^2+659555^2
/801125^2=457275^2+657800^2
/801125^2=466235^2+651480^2
/801125^2=472472^2+646971^2
/801125^2=480675^2+640900^2
/801125^2=484840^2+637755^2
/801125^2=488800^2+634725^2
/801125^2=494875^2+630000^2
/801125^2=502860^2+623645^2
/801125^2=503451^2+623168^2
/801125^2=507500^2+619875^2
/801125^2=515355^2+613360^2
/801125^2=525000^2+605125^2
/801125^2=527325^2+603100^2
/801125^2=528931^2+601692^2
/801125^2=531811^2+599148^2
/801125^2=539400^2+592325^2
/801125^2=548709^2+583712^2
/801125^2=552500^2+580125^2
/801125^2=556100^2+576675^2
/801125^2=559845^2+573040^2
/801125^2=560388^2+572509^2

ysr · 发表于 2023-1-26 15:10

本帖最后由 ysr 于 2023-1-26 07:30 编辑

/659628230625=812175^2=167158322500+205254302500+287215605625=408850^2+453050^2+535925^2
/659628230625=812175^2=167158322500+287215605625+205254302500=408850^2+535925^2+453050^2

这2组是否可以构成完美长方体，需要验证一下。

经过验证，线段def都不是整数，故，不是完美长方体。

ysr · 发表于 2023-1-26 17:10

本帖最后由 ysr 于 2023-1-26 09:30 编辑

平方数419520^2的拆分解有:1组/419520^2=251712^2+335616^2

平方数491725^2的拆分解有:67组/491725^2=7995^2+491660^2
/491725^2=17875^2+491400^2
/491725^2=20915^2+491280^2
/491725^2=25236^2+491077^2
/491725^2=28900^2+490875^2
/491725^2=36667^2+490356^2
/491725^2=38760^2+490195^2
/491725^2=46515^2+489520^2
/491725^2=46725^2+489500^2
/491725^2=54468^2+488699^2
/491725^2=72197^2+486396^2
/491725^2=75205^2+485940^2
/491725^2=83096^2+484653^2
/491725^2=92204^2+483003^2
/491725^2=92820^2+482885^2
/491725^2=100045^2+481440^2
/491725^2=100659^2+481312^2
/491725^2=103635^2+480680^2
/491725^2=109701^2+479332^2
/491725^2=113275^2+478500^2
/491725^2=117480^2+477485^2
/491725^2=120432^2+476749^2
/491725^2=121040^2+476595^2
/491725^2=128773^2+474564^2
/491725^2=137683^2+472056^2
/491725^2=138285^2+471880^2
/491725^2=145340^2+469755^2
/491725^2=154752^2+466739^2
/491725^2=165189^2+463148^2
/491725^2=165581^2+463008^2
/491725^2=172500^2+460475^2
/491725^2=181720^2+456915^2
/491725^2=181916^2+456837^2
/491725^2=189125^2+453900^2
/491725^2=192507^2+452476^2
/491725^2=196480^2+450765^2
/491725^2=205500^2+446725^2
/491725^2=208260^2+445445^2
/491725^2=208828^2+445179^2
/491725^2=215475^2+442000^2
/491725^2=224315^2+437580^2
/491725^2=231400^2+433875^2
/491725^2=234080^2+432435^2
/491725^2=242724^2+427643^2
/491725^2=249645^2+423640^2
/491725^2=256320^2+419635^2
/491725^2=256500^2+419525^2
/491725^2=263109^2+415412^2
/491725^2=264880^2+414285^2
/491725^2=271405^2+410040^2
/491725^2=278036^2+405573^2
/491725^2=280540^2+403845^2
/491725^2=288600^2+398125^2
/491725^2=294533^2+393756^2
/491725^2=295035^2+393380^2
/491725^2=301392^2+388531^2
/491725^2=308652^2+382789^2
/491725^2=309140^2+382395^2
/491725^2=311500^2+380475^2
/491725^2=314835^2+377720^2
/491725^2=317645^2+375360^2
/491725^2=322363^2+371316^2
/491725^2=325125^2+368900^2
/491725^2=330616^2+363987^2
/491725^2=330924^2+363707^2
/491725^2=331080^2+363565^2
/491725^2=343629^2+351728^2

ysr · 发表于 2023-1-26 18:32

本帖最后由 ysr 于 2023-1-26 11:11 编辑

有42组/231048455625=480675^2=25672050625+102688202500 +102688202500=160225^2+320450^2+102688202500
/376106225625=613275^2=41789580625+167158322500 +167158322500=204425^2+408850^2+167158322500
/461822180625=679575^2=51313575625+205254302500 +205254302500=226525^2+453050^2+205254302500
/231048455625=480675^2=102688202500+25672050625 +102688202500=320450^2+160225^2+102688202500
/231048455625=480675^2=102688202500+102688202500 +25672050625=320450^2+320450^2+25672050625
/659628230625=812175^2=102688202500+389781705625 +167158322500=320450^2+624325^2+167158322500
/834619280625=913575^2=102688202500+526676775625 +205254302500=320450^2+725725^2+205254302500
/376106225625=613275^2=167158322500+41789580625 +167158322500=408850^2+204425^2+167158322500
/376106225625=613275^2=167158322500+167158322500 +41789580625=408850^2+408850^2+41789580625
/659628230625=812175^2=167158322500+205254302500 +287215605625=408850^2+453050^2+287215605625
/659628230625=812175^2=167158322500+287215605625 +205254302500=408850^2+535925^2+205254302500
/659628230625=812175^2=167158322500+389781705625 +102688202500=408850^2+624325^2+102688202500
/461822180625=679575^2=205254302500+51313575625 +205254302500=453050^2+226525^2+205254302500
/659628230625=812175^2=205254302500+167158322500 +287215605625=453050^2+408850^2+287215605625
/461822180625=679575^2=205254302500+205254302500 +51313575625=453050^2+453050^2+51313575625
/659628230625=812175^2=205254302500+287215605625 +167158322500=453050^2+535925^2+167158322500
/834619280625=913575^2=205254302500+526676775625 +102688202500=453050^2+725725^2+102688202500
/659628230625=812175^2=287215605625+167158322500 +205254302500=535925^2+408850^2+205254302500
/659628230625=812175^2=287215605625+205254302500 +167158322500=535925^2+453050^2+167158322500
/771718325625=878475^2=342985922500+342985922500 +85746480625=585650^2+585650^2+85746480625
/659628230625=812175^2=389781705625+102688202500 +167158322500=624325^2+320450^2+167158322500
/659628230625=812175^2=389781705625+167158322500 +102688202500=624325^2+408850^2+102688202500
/924193822500=961350^2=410752810000+410752810000 +102688202500=640900^2+640900^2+102688202500
/924193822500=961350^2=410752810000+410752810000 +102688202500=640900^2+640900^2+102688202500
/634738857025=796705^2=17582760000+591484046400 +25672050625=132600^2+769080^2+25672050625
/357289521169=597737^2=17582760000+314034710544 +25672050625=132600^2+560388^2+25672050625
/177430500625=421225^2=36633960000+115124490000 +25672050625=191400^2+339300^2+25672050625
/723222680625=850425^2=38887840000+476376040000 +207958800625=197200^2+690200^2+207958800625
/560888655625=748925^2=38887840000+290952360000 +231048455625=197200^2+539400^2+231048455625
/634738857025=796705^2=591484046400+17582760000 +25672050625=769080^2+132600^2+25672050625
/1164942455625=1079325^2=556814440000+556814440000 +51313575625=746200^2+746200^2+51313575625
/177430500625=421225^2=115124490000+36633960000 +25672050625=339300^2+191400^2+25672050625
/834619280625=913575^2=526676775625+102688202500 +205254302500=725725^2+320450^2+205254302500
/834619280625=913575^2=526676775625+205254302500 +102688202500=725725^2+453050^2+102688202500
/386946202500=622050^2=142129000000+142129000000 +102688202500=377000^2+377000^2+102688202500
/723222680625=850425^2=476376040000+38887840000 +207958800625=690200^2+197200^2+207958800625
/689107515625=830125^2=205190880400+252868179600 +231048455625=452980^2+502860^2+231048455625
/924193822500=961350^2=410752810000+410752810000 +102688202500=640900^2+640900^2+102688202500
/924193822500=961350^2=410752810000+410752810000 +102688202500=640900^2+640900^2+102688202500
/689107515625=830125^2=252868179600+205190880400 +231048455625=502860^2+452980^2+231048455625
/560888655625=748925^2=290952360000+38887840000 +231048455625=539400^2+197200^2+231048455625
/357289521169=597737^2=314034710544+17582760000 +25672050625=560388^2+132600^2+25672050625
/平方数801125^2的拆分解有:94组/801125^2=5219^2+801108^2
/801125^2=10205^2+801060^2
/801125^2=17900^2+800925^2
/801125^2=28101^2+800632^2
/801125^2=28860^2+800605^2
/801125^2=31941^2+800488^2
/801125^2=34075^2+800400^2
/801125^2=44268^2+799901^2
/801125^2=56925^2+799100^2
/801125^2=60000^2+798875^2
/801125^2=65960^2+798405^2
/801125^2=70928^2+797979^2
/801125^2=76125^2+797500^2
/801125^2=88740^2+796195^2
/801125^2=93925^2+795600^2
/801125^2=98875^2+795000^2
/801125^2=104052^2+794339^2
/801125^2=104805^2+794240^2
/801125^2=122525^2+791700^2
/801125^2=127680^2+790885^2
/801125^2=132600^2+790075^2
/801125^2=150220^2+786915^2
/801125^2=163995^2+784160^2
/801125^2=166085^2+783720^2
/801125^2=169100^2+783075^2
/801125^2=181475^2+780300^2
/801125^2=187293^2+778924^2
/801125^2=191400^2+777925^2
/801125^2=197200^2+776475^2
/801125^2=207075^2+773900^2
/801125^2=209467^2+773256^2
/801125^2=214500^2+771875^2
/801125^2=219300^2+770525^2
/801125^2=224315^2+769080^2
/801125^2=225044^2+768867^2
/801125^2=241443^2+763876^2
/801125^2=251875^2+760500^2
/801125^2=254800^2+759525^2
/801125^2=256824^2+758843^2
/801125^2=278396^2+751197^2
/801125^2=281285^2+750120^2
/801125^2=281996^2+749853^2
/801125^2=286875^2+748000^2
/801125^2=291525^2+746200^2
/801125^2=296380^2+744285^2
/801125^2=298680^2+743365^2
/801125^2=308125^2+739500^2
/801125^2=312936^2+737477^2
/801125^2=313635^2+737180^2
/801125^2=317520^2+735515^2
/801125^2=323000^2+733125^2
/801125^2=334565^2+727920^2
/801125^2=337364^2+726627^2
/801125^2=339300^2+725725^2
/801125^2=348517^2+721344^2
/801125^2=351973^2+719664^2
/801125^2=367965^2+711620^2
/801125^2=372387^2+709316^2
/801125^2=377000^2+706875^2
/801125^2=381597^2+704404^2
/801125^2=392700^2+698275^2
/801125^2=397900^2+695325^2
/801125^2=401563^2+693216^2
/801125^2=402220^2+692835^2
/801125^2=406725^2+690200^2
/801125^2=415484^2+684963^2
/801125^2=417600^2+683675^2
/801125^2=422045^2+680940^2
/801125^2=426275^2+678300^2
/801125^2=431325^2+675100^2
/801125^2=433920^2+673435^2
/801125^2=452980^2+660765^2
/801125^2=454740^2+659555^2
/801125^2=457275^2+657800^2
/801125^2=466235^2+651480^2
/801125^2=472472^2+646971^2
/801125^2=480675^2+640900^2
/801125^2=484840^2+637755^2
/801125^2=488800^2+634725^2
/801125^2=494875^2+630000^2
/801125^2=502860^2+623645^2
/801125^2=503451^2+623168^2
/801125^2=507500^2+619875^2
/801125^2=515355^2+613360^2
/801125^2=525000^2+605125^2
/801125^2=527325^2+603100^2
/801125^2=528931^2+601692^2
/801125^2=531811^2+599148^2
/801125^2=539400^2+592325^2
/801125^2=548709^2+583712^2
/801125^2=552500^2+580125^2
/801125^2=556100^2+576675^2
/801125^2=559845^2+573040^2
/801125^2=560388^2+572509^2
是否是完美长方体都需要验证

ysr · 发表于 2023-1-27 12:48

输入100，内又8组解：（g和d是整数，e和f可能不是整数）
/g=25 a=9b=12c=20
/g=25 a=12b=9c=20
/g=25 a=12b=16c=15
/g=25 a=16b=12c=15
/g=100 a=36b=48c=80
/g=100 a=48b=36c=80
/g=100 a=48b=64c=60
/g=100 a=64b=48c=60

ysr · 发表于 2023-1-27 13:02

Private Sub Command1_Click()
'求完美长方体的程序其中g和d是整数，e和f不一定是整数

Dim a, b, c, r
a1 = Val(Text1)

r = 1
Do While r <= a1
a = 1
Do While a <= a1
b = 1
Do While b <= a1
c = 1
Do While c <= a1
g = r ^ 2
x = a ^ 2 + b ^ 2 + c ^ 2
d = a ^ 2 + b ^ 2
e = b ^ 2 + c ^ 2
f = c ^ 2 + a ^ 2

If x = g ^ 2 And InStr(Sqr(d), ".") = 0 Then
s = s + 1
s22 = s22 & " /g=" & g & " a=" & a & " b=" & b & " c=" & c & vbCrLf
Else
s = s
End If

c = c + 1
Loop

b = b + 1
Loop

a = a + 1
Loop

r = r + 1
Loop

If Val(s) > 0 Then
Text2 = "输入 " & a1 & "，内有 " & s & " 组解：" & vbCrLf & s22
Else
Text2 = "无解"
End If

End Sub

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

End Sub

		自动登录	找回密码
密码			注册