求助，用牛顿切线法编写的一个求根程序，恳请各位大侠指点一下

lxy444

我想用mathematica编写一个求根函数，用牛顿切线法，我编的函数如下：
Newton[f_,{x_,x0_},e_]:=
" X" F! c+ g: r) W$ m6 s# Y6 \3 F! eModule[{df,x1,y0,y1,k},
df=D[f,x];
& P5 b' _: @% b) py0=f/.x->x0;y1=df/.x->x0;
x1=x0-y0/y1;
k=1;
While[Abs[x1-x0]>e,
x0=x1;
; v, D- F: a; t) H* ^/ r& Jy0=f/.x->x0;y1=df/.x->x0;
: z' O0 _- F1 R, y  t# Qx1=x0-y0/y1;
k=k+1;
1 [% h1 v. k( c9 @7 i7 v]
Print["迭代次数为：",k];
Print["近似根为：",x1];
4 j% r! n5 V  D: I% \. C]
8 I9 e* Y+ O& z* K
) }3 J& }8 v: x1 e但是当我调用它时，会出现这样的提示，如下：

这是为什么啊？求高手解答，应该怎么修改啊
4 D- a- j7 _0 |
* z0 b: b8 o# D

lxy444

恳请大神解答！@madio  

madio

1. Newton[f_, {x_, x0_}, e_] := Module[{df, x1, y0, y1, k}, df = D[f, x];
   0 N, w0 `4 g$ Y& T1 e7 _  O
2.   y0 = f /. {x -> x0; y1 = df} /. x -> x0;
   * l0 d' t2 Y9 i% d2 Z2 f\" J3 R- D( h
3.   x1 = x0 - y0/y1;
   : j# p% [2 E: [
4.   k = 1;
   $ A& |0 w( e7 Y) o& u5 P
5.   While[Abs[x1 - x0] > e, x0 = x1;
   $ ]+ T! N! A* z+ f
6.     y0 = f /. x -> x0; y1 = df /. x -> x0;+ W$ J9 H( {9 ?5 D$ |8 X
   
7.     x1 = x0 - y0/y1;
   \" Q- _- V, n. S' I- a5 I1 T
8.     k = k + 1;] Print["迭代次数为：", k];
   ! d+ U* [- ^( Z$ E' T7 e4 m, d
9.   Print["近似根为：", x1];]

复制代码

可选参数应该放在一个表里面

lxy444

madio 发表于 2014-8-31 21:59
可选参数应该放在一个表里面

/ ?5 I) Y: q7 `+ h# ?% i哦，明白了，十分感谢！

Agent-Zero

不明觉厉。就是看看。。。