求助：编一个Mathematica小程序
求助：编一个Mathematica小程序
编一个Mathematica程序，求符合右边两式的非负整数:
a1+a2+a3=(k-a1)+(k-a2)+(k-a3),
a1^2+a2^2+a3^2=(k-a1)^2+(k-a2)^2+(k-a3)^2
如(1,5,6)与(2,3,7)
用QB已编出过，因QB运算的位数一般不超过十位数（双精度），且运行的速度慢，不能求出更大的整数。用QB编，只要用IF-THEN和FOR-NEXT就可编出。
在Mathematica中，怎样用If（或其它分支语句）For（或其它循环语句）结合起来编呢？？？
向各位请教，谢谢！！！！
|
发表于 2007-6-8 23:06:34
楼主