Calculating Sums Of Roots For Trans. Functions

*To*: mathgroup at smc.vnet.net*Subject*: [mg5498] Calculating Sums Of Roots For Trans. Functions*From*: frankst at deakin.edu.au (Frank Stagnitti)*Date*: Sat, 14 Dec 1996 19:26:04 -0500*Sender*: owner-wri-mathgroup at wolfram.com

Can anyone help? How do i calculate the first n roots of tan(z) = -z, and then sum them in one command. I think i need the right combinations of Findroot, Table and N/Sum commands. Findroot and Table give me a non-unique and non-ordered set of roots e.g. RootTable = Table[{FindRoot[Tan[z]==-z, {z,i}, MaxIterations ->50],i},{i,0,EndRange,Pi}] // TableForm In short, i'd like a procedure/command that essentially sums the first n (unique and ordered) roots of tan(z) = - z with no user intervention Any ideas?? thanks frank -------------------------------------------------------------------------- Dr Frank Stagnitti School of Computing and Mathematics, Deakin University, P.O. Box 423, Warrnambool, Vic. 3280 AUSTRALIA Email: frankst at deakin.edu.au Voice: +61 (0)55 633 535 WWW: http://www.cm.deakin.edu.au/~frankst "Imagination is more important than knowledge." (Albert Einstein) --------------------------------------------------------------------------