在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]

来源：学生作业帮助网编辑：六六作业网时间：2024/11/24 23:02:18

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

在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
  ]