一句话证明费马大定理

ysr

a1=100 s=6
a=10 b=55 x=65      a^(1/5)=1.58489319246111      p^(1/5)=4.05768693881163      q^(1/5)=5
a=25 b=50 x=75      a^(1/5)=1.90365393871588      p^(1/5)=4.78176249895019      q^(1/5)=5
a=38 b=41 x=79      a^(1/5)=2.06993505408161      p^(1/5)=4.99711667649533      q^(1/5)=5
a=41 b=38 x=79      a^(1/5)=2.10163247827578      p^(1/5)=4.99711667649533      q^(1/5)=5
a=50 b=25 x=75      a^(1/5)=2.18672414788656      p^(1/5)=4.78176249895019      q^(1/5)=5
a=55 b=10 x=65      a^(1/5)=2.22880738403352      p^(1/5)=4.05768693881163      q^(1/5)=5
其中p2ab，q=a^2+b^2，x=a+b，可见p和q不能同时开5次方

ysr

代码如下：

Private Sub Command1_Click()
Dim a, b
a1 = Val(Text1)
a = 1
Do While a <= a1
b = 1
Do While b <= a1
x = a + b
y = b
z = a
p = 2 * b * a
q = a ^ 2 + b ^ 2
X1 = x ^ (1 / 5): Y1 = Abs(y) ^ (1 / 5): z1 = z ^ (1 / 5): p1 = p ^ (1 / 5): q1 = q ^ (1 / 5)
Print q1
If InStr(q1, ".") = 0 And a <> b Then
s = s + 1
s1 = s1 & "a=" & a & " b=" & b & " x=" & x & "      a^(1/5)=" & z1 & "      p^(1/5)=" & p1 & "      q^(1/5)=" & q1 & 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 = ""
Me.Cls
End Sub

ysr

a1=100 s=18
a=1 b=16 x=17      z3^(1/5)=3.02906111670894      p^(1/5)=2      q^(1/5)=3.03379774832543
a=2 b=6 x=8      z3^(1/5)=2      p^(1/5)=1.8881750225898      q^(1/5)=2.09127910518255
a=2 b=8 x=10      z3^(1/5)=2.26793315526605      p^(1/5)=2      q^(1/5)=2.325422030439
a=7 b=9 x=16      z3^(1/5)=2      p^(1/5)=2.63071686525871      q^(1/5)=2.64721168070537
a=8 b=64 x=72      z3^(1/5)=5.26143373051742      p^(1/5)=4      q^(1/5)=5.29442336141074
a=9 b=18 x=27      z3^(1/5)=3      p^(1/5)=3.17767152314644      q^(1/5)=3.32269902974487
a=10 b=55 x=65      z3^(1/5)=4.93429572235941      p^(1/5)=4.05768693881163      q^(1/5)=5
a=16 b=32 x=48      z3^(1/5)=3.77635004517961      p^(1/5)=4      q^(1/5)=4.18255821036509
a=18 b=90 x=108      z3^(1/5)=6      p^(1/5)=5.03626996491233      q^(1/5)=6.09682418844957
a=24 b=40 x=64      z3^(1/5)=4      p^(1/5)=4.53586631053211      q^(1/5)=4.65084406087799
a=25 b=50 x=75      z3^(1/5)=4.51440225723717      p^(1/5)=4.78176249895019      q^(1/5)=5
a=38 b=41 x=79      z3^(1/5)=2.98503666015176      p^(1/5)=4.99711667649533      q^(1/5)=5
a=39 b=42 x=81      z3^(1/5)=3      p^(1/5)=5.04741226405622      q^(1/5)=5.05018252492566
a=45 b=99 x=144      z3^(1/5)=6      p^(1/5)=6.1656027659586      q^(1/5)=6.52480557138657
a=48 b=81 x=129      z3^(1/5)=5.31888658632873      p^(1/5)=6      q^(1/5)=6.15936226453657
a=50 b=75 x=125      z3^(1/5)=5      p^(1/5)=5.95678949083546      q^(1/5)=6.05291637553797
a=54 b=72 x=126      z3^(1/5)=4.68952235022279      p^(1/5)=6      q^(1/5)=6.049186910983
a=60 b=68 x=128      z3^(1/5)=4      p^(1/5)=6.05812223341788      q^(1/5)=6.06759549665085

其中p=2ab，q=a^2+b^2，x=a+b，z3=(a+b)(a-b)的绝对值，可见z3，p和q不能同时开5次方

ysr

代码如下：

Private Sub Command1_Click()
Dim a, b
a1 = Val(Text1)
a = 1
Do While a <= a1
b = a + 1
Do While b <= a1
x = a + b
y = b
z = a
z2 = Abs(b - a)
z3 = x * z2
p = 2 * b * a
q = a ^ 2 + b ^ 2
X1 = x ^ (1 / 5): Y1 = Abs(y) ^ (1 / 5): z1 = z3 ^ (1 / 5): p1 = p ^ (1 / 5): q1 = q ^ (1 / 5)
Print q1
If InStr(p1, ".") = 0 Or InStr(q1, ".") = 0 Or InStr(z1, ".") = 0 Then
s = s + 1
s1 = s1 & "a=" & a & " b=" & b & " x=" & x & "      z3^(1/5)=" & z1 & "      p^(1/5)=" & p1 & "      q^(1/5)=" & q1 & 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 = ""
Me.Cls
End Sub

ysr

a1=300 s=40
a=1 b=16 x=17      z3^(1/5)=3.02906111670894      p^(1/5)=2      q^(1/5)=3.03379774832543
a=2 b=6 x=8      z3^(1/5)=2      p^(1/5)=1.8881750225898      q^(1/5)=2.09127910518255
a=2 b=8 x=10      z3^(1/5)=2.26793315526605      p^(1/5)=2      q^(1/5)=2.325422030439
a=2 b=256 x=258      z3^(1/5)=9.18947465966374      p^(1/5)=4      q^(1/5)=9.1896990148114
a=4 b=128 x=132      z3^(1/5)=6.9630437394604      p^(1/5)=4      q^(1/5)=6.96576421059337
a=7 b=9 x=16      z3^(1/5)=2      p^(1/5)=2.63071686525871      q^(1/5)=2.64721168070537
a=8 b=64 x=72      z3^(1/5)=5.26143373051742      p^(1/5)=4      q^(1/5)=5.29442336141074
a=9 b=18 x=27      z3^(1/5)=3      p^(1/5)=3.17767152314644      q^(1/5)=3.32269902974487
a=10 b=55 x=65      z3^(1/5)=4.93429572235941      p^(1/5)=4.05768693881163      q^(1/5)=5
a=16 b=32 x=48      z3^(1/5)=3.77635004517961      p^(1/5)=4      q^(1/5)=4.18255821036509
a=16 b=243 x=259      z3^(1/5)=8.99218274343911      p^(1/5)=6      q^(1/5)=9.00779019076785
a=18 b=90 x=108      z3^(1/5)=6      p^(1/5)=5.03626996491233      q^(1/5)=6.09682418844957
a=18 b=216 x=234      z3^(1/5)=8.57385648131237      p^(1/5)=6      q^(1/5)=8.59770624204025
a=24 b=40 x=64      z3^(1/5)=4      p^(1/5)=4.53586631053211      q^(1/5)=4.65084406087799
a=24 b=162 x=186      z3^(1/5)=7.618656728227      p^(1/5)=6      q^(1/5)=7.68584735159523
a=25 b=50 x=75      z3^(1/5)=4.51440225723717      p^(1/5)=4.78176249895019      q^(1/5)=5
a=27 b=144 x=171      z3^(1/5)=7.24830391152804      p^(1/5)=6      q^(1/5)=7.3509958668263
a=36 b=108 x=144      z3^(1/5)=6.35534304629287      p^(1/5)=6      q^(1/5)=6.64539805948974
a=38 b=41 x=79      z3^(1/5)=2.98503666015176      p^(1/5)=4.99711667649533      q^(1/5)=5
a=39 b=42 x=81      z3^(1/5)=3      p^(1/5)=5.04741226405622      q^(1/5)=5.05018252492566
a=45 b=99 x=144      z3^(1/5)=6      p^(1/5)=6.1656027659586      q^(1/5)=6.52480557138657
a=48 b=81 x=129      z3^(1/5)=5.31888658632873      p^(1/5)=6      q^(1/5)=6.15936226453657
a=50 b=75 x=125      z3^(1/5)=5      p^(1/5)=5.95678949083546      q^(1/5)=6.05291637553797
a=54 b=72 x=126      z3^(1/5)=4.68952235022279      p^(1/5)=6      q^(1/5)=6.049186910983
a=57 b=105 x=162      z3^(1/5)=6      p^(1/5)=6.54061867559919      q^(1/5)=6.77499748742693
a=60 b=68 x=128      z3^(1/5)=4      p^(1/5)=6.05812223341788      q^(1/5)=6.06759549665085
a=64 b=192 x=256      z3^(1/5)=8      p^(1/5)=7.55270009035922      q^(1/5)=8.36511642073019
a=64 b=256 x=320      z3^(1/5)=9.07173262106422      p^(1/5)=8      q^(1/5)=9.30168812175599
a=90 b=126 x=216      z3^(1/5)=6      p^(1/5)=7.43239204876235      q^(1/5)=7.51545616378074
a=100 b=300 x=400      z3^(1/5)=9.56352499790037      p^(1/5)=9.02880451447434      q^(1/5)=10
a=121 b=122 x=243      z3^(1/5)=3      p^(1/5)=7.83492853235494      q^(1/5)=7.83498160661577
a=126 b=130 x=256      z3^(1/5)=4      p^(1/5)=7.99960933684744      q^(1/5)=8.00039058685861
a=147 b=196 x=343      z3^(1/5)=7      p^(1/5)=8.95613601201936      q^(1/5)=9.02955678948183
a=150 b=174 x=324      z3^(1/5)=6      p^(1/5)=8.78080030824847      q^(1/5)=8.80009365622653
a=180 b=260 x=440      z3^(1/5)=8.11537387762325      p^(1/5)=9.86859144471883      q^(1/5)=10
a=200 b=250 x=450      z3^(1/5)=7.42055696951029      p^(1/5)=10      q^(1/5)=10.0495073711949
a=207 b=225 x=432      z3^(1/5)=6      p^(1/5)=9.8590841135318      q^(1/5)=9.86593308444253
a=224 b=288 x=512      z3^(1/5)=8      p^(1/5)=10.5228674610348      q^(1/5)=10.5888467228215
a=235 b=251 x=486      z3^(1/5)=6      p^(1/5)=10.3360432017479      q^(1/5)=10.3405252450612
a=255 b=257 x=512      z3^(1/5)=4      p^(1/5)=10.5560310714379      q^(1/5)=10.5560955005351
其中p2ab，q=a^2+b^2，x=a+b，z3=(a+b)(a-b)的绝对值，可见z3，p和q不能同时开5次方