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 >