欧几里得算法的Mathematica编程

来源：百度知道编辑：UC知道时间：2024/07/02 04:35:49

euclid[d_, f_] := Module[{x1 = 1, x2 = 0, x3 = f,
y1 = 0, y2 = 1, y3 = d, q, t1, t2, t3}, x1 = 1; While[1 == 1, If[
y3 == 0, Return[{x3, 0}]; Break[]]; If[y3 == 1, Return[{y3, y2}];
Break[]]; q =
Quotient[x3, y3]; t1 = x1 -
qy1; t2 = x2 - qy2, t3 = x3 - qy3; x1 = y1; x2 = y2; x3 =
y3; y1 = t1; y2 = t2; y3 = t3]]
这个程序有什么问题？不能运行.

euclid[d_, f_] :=
Module[{x1 = 1, x2 = 0, x3 = f, y1 = 0, y2 = 1, y3 = d, q, t1, t2,
t3}, x1 = 1;
While[1 == 1, If[y3 == 0, Return[{x3, 0}]; Break[]];
If[y3 == 1, Return[{y3, y2}];
Break[]]; q = Quotient[x3, y3]; t1 = x1 - q y1; t2 = x2 - q y2;
t3 = x3 - q y3; x1 = y1; x2 = y2; x3 = y3; y1 = t1; y2 = t2;
y3 = t3]]
这样就可以了

请问欧几里得怎样定义的?什么是欧几里得辗转相除算法? 谁能更详细的讲一下辗转相除法(欧几里得算法) 急欧几里得算法是什么原理啊? 如何用计算机语言表示欧几里得算法？阿基米德和欧几里得的国籍关于欧几里得算法，主要是看不懂。请高手指点迷津。。。。欧几里得取得的巨大成就的方面是请问一下：欧几里得几何的公理有哪些？哪里能在网上阅读欧几里得的几何原本？就数学领域来说欧几里得与阿基米德谁的影响更加大些？