不定方程问题(I)

moranhuishou

下面引用由moranhuishou在 2011/09/10 08:28am 发表的内容：
那个simpley呢？

唉，不来玩玩可惜了----要万一我真的闹笑话呢

moranhuishou

好了，不卖关子了，准备好看笑话吧...

任在深

下面引用由moranhuishou在 2011/09/10 08:51am 发表的内容：
好了，不卖关子了，准备好看笑话吧...

笑话是不好看的！------数学论坛谈学术，
实话是不好说的！------溜须拍马，阿谀奉承时兴；批评挑错，指出缺点不受欢迎？！
鬼话是连篇累读！-----ygq的马甲----鬼画符！

moranhuishou

此贴先别沉。

moranhuishou

这就是lucas——谢霆锋与张柏芝的儿子——这题就是这小子出的？

kanyikan

跟(II)靠一靠。

zhaolu48

[这个贴子最后由zhaolu48在 2011/09/14 04:56am 第 1 次编辑]

这个程序在VF下很容易编：
CLEAR
CLEAR ALL
use ls
DIMENSION b(4)
h=1
FOR n=2 to 10000000000
h=h+n*n
IF h>99999999999999999999
EXIT
ENDIF
a=SQRT(h)
IF INT(a)=a
b(1)=n
b(2)=h
b(3)=a
b(4)=h
APPEND FROM arra b
ENDIF
endf
执行结果为：
      NZ                   NFH             MZ                     MF
      24                   4900              70                    4900
   33483         12513283657754         3537412          12513283657754
1414456     942961671972882600       971062136      942961671972882600
3145927    1.0377934511475E+19      3221480174     1.0377934511475E+19
从结果上看在VF允许的计算范围内只有两个解：
即n=24     m=70
  n=33483  m=3537412  错!
因为VF只能显示16位有效数字，因此
  n=1414456   m=971062136
  n=3145927   m=3221480174
只能算近似解。

zhaolu48

把程序稍作改动：
CLEAR
CLEAR ALL
use ls
DELETE ALL
PACK
DIMENSION b(4)
h=1
FOR n=2 to 10000000000
h=h+n*n
IF h>99999999999999999999
EXIT
ENDIF
a=SQRT(h)
d=INT(a)
c=d*d
IF c=h
b(1)=n
b(2)=h
b(3)=a
b(4)=h
APPEND FROM arra b
ENDIF
endf
执行结果为：
     NZ                    NFH             MZ                       MF
     24                   4900             70                     4900
2828093    7539803649504685000     2745870290      7539803649504685000
3974004    2.0920102541822E+19     4573849860      2.0920102541822E+19
只有n=24  m=70 一个解，
n=2828093    m=2745870290
n=3974004    m=4573849860
才是两个近似解。

任在深

楼上赵老师的证明彻底揭穿了某高人把牛皮吹破了！[br][br]-=-=-=-=- 以下内容由 任在深 在 时添加 -=-=-=-=-
显然有无穷多组接！

kanyikan

这个帖子会有这么大的反响，真是始料未及啊。