gráfica de Riemann-Siegel theta(t) para 0<t<50