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
>