MathGroup Archive 1996

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

Search the Archive

Re: Re: Calculating Sums Of Roots For Trans. Functions


Allan Hayes gave an answer on the question "How do i calculate the  
first n roots of tan(z) = -z, and then sum them in one command?"
of Frank Stagnitti.

The answer was the program

Sum[ z/.FindRoot[Tan[z] == -z, {z,Pi/2 + n Pi + .02/(n+1)},
		MaxIterations ->50
	],
    {n,0,49}
 ]


Since tan(z) + z is not defined for pi/2 + n*Pi and the derivative of  
tan(z) + z  will become very large in z equal to the zero close to  
pi/2 + n*pi for greater values of n, it is better to rewrite the  
equation tan(z) = - z. 

Two suggestions:

Sum[ z/.FindRoot[Sin[z] == -z*Cos[z], {z,Pi/2 + n Pi}
	],
    {n,0,49}
 ]

Sum[ z/.FindRoot[z + n*Pi == ArcTan[-z], {z,Pi/2 + n Pi + .02/(n+1)},
		MaxIterations ->50
	],
    {n,1,50}
 ]

Frans Martens
Eindhoven
The Netherlands




  • Prev by Date: Re: Q: Function for volume calculation
  • Next by Date: How to get rid of Continuation character?
  • Previous by thread: Re: Calculating Sums Of Roots For Trans. Functions
  • Next by thread: The << command on a Mac???