Re: Help with findroot
- To: mathgroup at smc.vnet.net
- Subject: [mg9171] Re: [mg9169] Help with findroot
- From: "MITJA LAKNER" <mlakner at fagg.uni-lj.si>
- Date: Tue, 21 Oct 1997 02:02:45 -0400
- Organization: Univ. of Ljubljana, Civ.Eng.Dept.
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
New variable
y = Sqrt[x/(1.2 10^-4)]
simplifies equation and taking into
account poles of the Tan function do the job:
eps = 10.^-12;
yy = Table[y/.FindRoot[y == -1/10Tan[y],
{y, k Pi-Pi/2+eps, k Pi+Pi/2-eps},
MaxIterations->100,
WorkingPrecision->50],
{k,0,500}];
0.00012#^2&/@yy
Have a nice day!
Mitja