在Mathematica中Module里可以用循环语句吗?hj[f_,a_,b_,eps_]:=Module[{t1,t2,n,t0},t1=a+0.382*(b-a);t2=a+0.618*(b-a);n=0;While[t2-t1>=eps,If[f[t1]

在Mathematica中Module里可以用循环语句吗?hj[f_,a_,b_,eps_]:=Module[{t1,t2,n,t0},t1=a+0.382*(b-a);t2=a+0.618*(b-a);n=0;While[t2-t1>=eps,If[f[t1]
在Mathematica中Module里可以用循环语句吗?
hj[f_,a_,b_,eps_]:=Module[{t1,t2,n,t0},t1=a+0.382*(b-a);t2=a+0.618*(b-a);n=0;
While[t2-t1>=eps,If[f[t1]

在Mathematica中Module里可以用循环语句吗?hj[f_,a_,b_,eps_]:=Module[{t1,t2,n,t0},t1=a+0.382*(b-a);t2=a+0.618*(b-a);n=0;While[t2-t1>=eps,If[f[t1]

可以的,比如定义一个函数（欧几里德Euclid算法）：

gcd[m0_, n0_] :=
 Module[{m = m0, n = n0},
  While[n != 0, {m, n} = {n, Mod[m, n]}];
  m
  ]