MathGroup Archive 2007

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

Search the Archive

Re: Zeroes of Zeta function



Hi Artur,

try this quick and dirty code where we search succesive minimas and maximas:

y=.;

f=Abs[Zeta[1/2+I y]];

eps=10^-6;

y0=13;

Do[

   y0=y/.FindMinimum[f,{y,y0+eps}][[2]];

   Print["zero=",y0];

   y0=y/.FindMaximum[f,{y,y0+eps}][[2]];

   ,{10}]

Daniel



Artur wrote:

> Who know how write procedure to finding successive zeroes of Riemann Zeta  

> function.

> 

> See zeros on the Plot:

> 

> Plot[Abs[Zeta[1/2+I y]],{y,0,30}]

> 

> ARTUR

> 



  • Prev by Date: Re: 2D interpolation
  • Next by Date: Re: pdf
  • Previous by thread: Re: Re: How do quickest
  • Next by thread: Re: Zeroes of Zeta function