hujunhua 发表于 2013-2-28 00:47:50

39# wayne 不会的。全部分量为正数的解，不会导出负分量的解，不论朝哪个方向。

hujunhua 发表于 2013-3-5 01:44:53

试一下含“@”的表达式。
递推公式的M9代码：
Flatten[(Union@Table,m Times@@Drop[#,{j}]-#[]] ,{j,Length[#]-1}])/@x,1]

wayne 发表于 2013-3-15 13:13:50

27# wayne
此代码有一个弊端就是内存消耗呈指数级增长，而且容易 漏解，比如迭代到14步(15的话Mathematica就down掉了)，保留并集的32项，会漏掉一个解1542841：
{1, 1, 413403, 1542841}

改进代码如下，可以高效的解出给定的MAX值， 0<=a<=b<=c<=d< MAX 的所有解：
MAX=10^50;
data=NestWhile&/@Map&,Range],{ii,#}],1]],Max[#]<MAX&]&,{{1,1,1,1},{1,1,1,3}},UnsameQ,2];
Take

葡萄糖 发表于 2018-7-31 16:04:40

Уравнение Маркова.
\(x^2+y^2+z^2=qxyz\)
https://artofproblemsolving.com/community/c3046h1046721

mathematica 发表于 2018-7-31 16:37:35

葡萄糖 发表于 2018-7-31 16:04
Уравнение Маркова.
\(x^2+y^2+z^2=qxyz\)
https://artofproblemsolving.com/community/ ...

https://en.wikipedia.org/wiki/Markov_number
马尔科夫数

mathematica 发表于 2018-7-31 16:42:22

https://www.ocf.berkeley.edu/~wwu/cgi-bin/yabb/YaBB.cgi?board=riddles_medium;action=display;num=1214032409

mathe 发表于 2018-7-31 17:17:48

根据我们前面结论容易得出链接中n不超过4
页: 1 2 3 4 [5]
查看完整版本: 解丢番图方程x^2+y^2+z^2=3xyz