Моя публикация выше тоже была математичекой шуткой. Я просто после прочтения книги озадачился более точным или близким неравентсвом, "опровергающим" теорему Фурье. Данный ответ более точного равентсва (неравентсва) был сгенерирован следующей программой VBA Excel:
Код |
---|
Sub PierredeFermat() Dim x As Long Dim y As Long Dim z As Double Dim n As Integer k = 0 For x = 3987 To 50000 For y = x + 1 To 50000 For n = 3 To 12 z = (x ^ n + y ^ n) ^ (1 / n) If (z - Fix(z)) < 0.0000001 And y <> Fix(z) Then k = k + 1 Cells(k, 1).Value = x Cells(k, 2).Value = y Cells(k, 3).Value = z Cells(k, 4).Value = n End If Next n Next y Next x End Sub |
Однако данные (результаты расчета) забитые в ячейки Excel уже "низвергли" теорему Фурье!
Расчет в ячейке Excel формулы =(24576^4+48767^4)^(1/4) даёт (числовой формат с числом десятичных знаков 25)
49535.0000000000000000000000000
Результат расчета в математичеком пакте Maple по формуле evalf((24576^4 + 48767^4)^0.25, 25) даёт
49535.00000000000631865609
Большое спасибо за отзывы и ваши сообщения!
Я совсем недавно (10 ноября 2023 года) зарегистрировался на планете Excel, буду раз знакомству и общению!