I need some help about this error

*To*: mathgroup at smc.vnet.net*Subject*: [mg39305] I need some help about this error*From*: spin9 at terra.com.br (baruch)*Date*: Mon, 10 Feb 2003 01:08:01 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

f[x_] := x^2 - 2 Ne[x_] := x - f[x]/f'[x] ap = NestList[Ne, 1.5, 5] tang[h_] := f[h] + f'[h](x - h) t = tang /@ ap Plot[{t}, {x, -10, 10}, AxesOrigin -> {0, 0}, PlotRange -> {{-5, 5}, {-3, 5}}] Now, How can I plot the last command? I got the following errors: Plot::"plnr": "\!\(te[x]\) is not a machine-size real number at \!\(x\) = \ \!\(-9.999999166666667`\)." Plot::"plnr": "\!\(te[x]\) is not a machine-size real number at \!\(x\) = \ \!\(-9.188660168541684`\)." I want to make a "program" that will plot the successives tangent lines of approximations of any function (when possible) using the Newton Methods... any idea on how can I implement or solve that problem? Thank you very much!

**Follow-Ups**:**Re: I need some help about this error***From:*Tomas Garza <tgarza01@prodigy.net.mx>

**Re: I need some help about this error***From:*"milkcart" <milkcart@m17.alpha-net.ne.jp>