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

MathGroup Archive 2007

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

Search the Archive

Re: Zeroes of Zeta function

  • To: mathgroup at smc.vnet.net
  • Subject: [mg72923] Re: [mg72895] Zeroes of Zeta function
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Thu, 25 Jan 2007 07:07:29 -0500 (EST)
  • Reply-to: hanlonr at cox.net

Plot[Abs[Zeta[1/2+I*y]],{y,0,50},ImageSize->500];

zeroes=y/.FindRoot[Zeta[1/2+I*y]==0, {y, #}]&/@
      {15,21,25,30,33,38,41,43,48,50}//Chop

{14.1347,21.022,25.0109,30.4249,32.9351,37.5862,40.9187,43.3271,48.0052,49.\
7738}

Zeta[1/2+I*zeroes]//Chop

{0,0,0,0,0,0,0,0,0,0}


Bob Hanlon

---- Artur <grafix at csl.pl> 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: Better recursive method?
  • Previous by thread: Re: Using open brackets
  • Next by thread: Combinatorics -- Random spanning trees.