¥Ë¥å¡¼¥È¥ó¤ÎÈ¿ÉüË¡¤Ë¤è¤ê ­õ3 ¤Î¶á»÷Ãͤòµá¤á¤ë¡¥

Mathematica ¥×¥í¥°¥é¥àÎã

1. f[x_]:=x^2-3
2. x[n_]:=x[n-1]-f[x[n-1]]/f'[x[n-1]];x[1]=2;
3. Do[Print["x_{", n, "}=", N[x[n],30]], {n,1,7}]

·×»»·ë²Ì