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

lxy444

我想用mathematica编写一个求根函数，用牛顿切线法，我编的函数如下：
Newton[f_,{x_,x0_},e_]:=
Module[{df,x1,y0,y1,k},
df=D[f,x];
8 n& `" k% E/ R2 m) Ay0=f/.x->x0;y1=df/.x->x0;
* h/ R9 Y* l/ k0 ?# D  j- R7 rx1=x0-y0/y1;
$ _- m8 Z0 t  b- Ck=1;
- ^+ ?( g5 W% D+ W$ YWhile[Abs[x1-x0]>e,
x0=x1;
  a4 l5 `/ P* m- b8 W& I1 x$ h9 I. O) X: Gy0=f/.x->x0;y1=df/.x->x0;
$ k1 H. ]' b6 v1 |9 I+ s8 px1=x0-y0/y1;
k=k+1;
]
Print["迭代次数为：",k];
/ Q2 I  q' X5 J" \( |' uPrint["近似根为：",x1];
! o3 Q" U! x5 ^! q9 c]

: N! w# ^0 S2 X  ^% N. z但是当我调用它时，会出现这样的提示，如下：

这是为什么啊？求高手解答，应该怎么修改啊
& f6 p! t2 z5 f7 q
7 m' A+ e8 B* {; z, o1 |4 L& @
/ W% q) N' o: o

lxy444

恳请大神解答！@madio  

madio

1. Newton[f_, {x_, x0_}, e_] := Module[{df, x1, y0, y1, k}, df = D[f, x];
   ) T' F8 J. S5 P
2.   y0 = f /. {x -> x0; y1 = df} /. x -> x0;# v# u0 F# A# I' }
   
3.   x1 = x0 - y0/y1;
   ) H5 i5 b: W- T1 [6 k0 |4 A
4.   k = 1;- Z5 Y  x+ h# |; W1 G
   
5.   While[Abs[x1 - x0] > e, x0 = x1;
   6 n! ?1 U9 }, s: U9 g
6.     y0 = f /. x -> x0; y1 = df /. x -> x0;' n' [( k- d: v6 M
   
7.     x1 = x0 - y0/y1;\" [$ b9 x8 t& F$ K1 b. _2 g
   
8.     k = k + 1;] Print["迭代次数为：", k];
   . u8 G0 S8 g1 ~\" G( ]! M- u
9.   Print["近似根为：", x1];]

复制代码

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

lxy444

madio 发表于 2014-8-31 21:59
' a, M; q5 U( t5 q9 }3 Z8 Y可选参数应该放在一个表里面

( M6 G5 Z0 _. P" x8 }哦，明白了，十分感谢！

Agent-Zero

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