Olá,
Tô construindo a função zeta de riemman no Fortran!!!
program zetareal
integer a,b,c,d,s
dimension w(100000),y(100000)
real h,g
a=1
print*, ‘’
print*,‘Total de N£meros’
read*, b
print*, ‘’
print*, ‘’
print*,‘N£mero de Convergˆncia e Divergˆncia’
read*, s
print*, ‘’
print*, ‘’
w(0)=0
do c=1,b
w(a)=1.0/(c**s)
y(a)=w(a-1)+w(a)
print*,‘Fra‡Æo’
print*, ‘’
print*, ‘’
print*,c
print*,w(a)
print*,‘Resultado’
print*, ‘’
print*, ‘’
print*,y(a)
a=a+1
enddo
y(0)=0
do a=1,b
y(a)=y(a-1)+w(a)
print*, ‘’
print*, ‘’
print*, ‘Resultado Final’
print*, y(a)
print*, ‘__________________’
enddo
pause
end program zetareal
O programa está certo mas na hora de colocar o número de divergencia e convergencia para os zeros triviais , era para dar zero está dando infinito, alguém sabe o erro?