Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1997
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1997

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Mathematica 3.0.0 bug in LerchPhi function
  • Next by Date: Mathematica questions
  • Previous by thread: Re: Help with findroot
  • Next by thread: RE: Help with findroot